Abrir Tablas en BV
Publicado por Daniel Perez (1 intervención) el 03/05/2006 00:59:58
En la segunda linea de la rutina... Dim MyDb As Database, MyTable As Recordset
me dice el compilador que no reconoce a la variable MyDb que estoy declarando como base de datos, ¿porque? y ¿Como lo soluciono para poder habrir las tablas?
Private Sub Siguiente_Click()
Dim MyDb As Database, MyTable As Recordset
Set MyDb = Workspaces(0).OpenDatabase("C:\Archivos de programa\Microsoft Visual Studio\VB98\FUNERALES.MDB")
Set MyTable = MyDb.OpenRecordset("cliente", dbOpenTable)
MyTable.Index = "icliente"
MyTble.Seek "=", txtFields(0).Text
MyTable.MoveNext
If Not MyTable.EOF Then
txtFields(0).Text = MyTable!cedula
End If
End Sub
Agradeciendo vuestra ayuda,
Daniel
me dice el compilador que no reconoce a la variable MyDb que estoy declarando como base de datos, ¿porque? y ¿Como lo soluciono para poder habrir las tablas?
Private Sub Siguiente_Click()
Dim MyDb As Database, MyTable As Recordset
Set MyDb = Workspaces(0).OpenDatabase("C:\Archivos de programa\Microsoft Visual Studio\VB98\FUNERALES.MDB")
Set MyTable = MyDb.OpenRecordset("cliente", dbOpenTable)
MyTable.Index = "icliente"
MyTble.Seek "=", txtFields(0).Text
MyTable.MoveNext
If Not MyTable.EOF Then
txtFields(0).Text = MyTable!cedula
End If
End Sub
Agradeciendo vuestra ayuda,
Daniel
Valora esta pregunta
0