Visual basic

Disculpa pero tengo problemas en un programa este es el código, me puedes ayudar. Me idica que no se reconoce el formato de la base de datos, este es el código
Option Explicit
Dim MIDATA As Database
Dim MIRECORD As Recordset
Private Sub cmdbusqueda_Click()
On Error Resume Next
MIRECORD.MoveFirst
Do Until MIRECORD.EOF
If txtbus.Text = MIRECORD!CmpTipo Then
lstcontacto.AddItem MIRECORD.Fields("CmpTipo")
End If
MIRECORD.MoveNext
Loop
End Sub
Private Sub cmdlimpiar_Click()
lstcontactos.Clear
txtpag.Text = ""
txtdes.Text = ""
txtnum.Text = ""
txtbus.Text = ""
txttipo.Text = ""
End Sub
Private Sub cmdsalir_Click()
End
End Sub
Private Sub Command1_Click()
Unload Form2
End Sub
Private Sub Form_Load()
Set MIDATA = OpenDatabase(App.Path + "\" + "DIRECTORIO.mdb") Aqui marca el error
HORA.Text = Time
FECHA.Text = Date
MIDATA.Close
End Sub
Private Sub Image1_Click()
End Sub
Private Sub lstcontactos_Click()
On Error Resume Next
Set MIRECORD = MIDATA.OpenRecordset("TblBUSQUEDA")
MIRECORD.MoveFirst
Do Until MIRECORD.EOF
If lstcontacto.Text = MIRECORD!CmpTipo Then
txttipo.Text = MIRECORD!CmpTipo
txtpag.Text = MIRECORD!CmpPagina
txtdes.Text = MIRECORD!CmpDescripcion
txtnum.Text = MIRECORD!CmpNumero
End If
MIRECORD.MoveNext
Loop
End Sub
De antemano gracias
1

1 respuesta

Respuesta
1
Veo que usas DAO. Ese es un error habitual y sucede cuando la base de datos Access está en una versión no soportada por la versión de DAO que uses. Visual Basic incorporaba por defecto DAO versión 3.51 y con esta se pueden abrir bases de datos hasta la versión de Access 97. Si intentas abrir una base de datos con versión Access 2000 debes instalar la versión 3.6 de DAO que se puede descargar desde el sitio de Microsoft.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas