Acceso sencillo a B.D.
Publicado por gorkavit (1 intervención) el 11/01/2003 20:34:55
Runtime error 13 - Type mismatch
Sólo quiero acceder por primera vez a una base de datos, pero me da este error al hacer el OpenRecordset. ¿Alguien me puede dar alguna idea? Este es el código:
Private Sub Form_Load()
'declaración
Dim bd As Database
Dim rec As Recordset
'con bd
Set bd = OpenDatabase("C:\3\Agenda\Agenda.mdb")
'con tabla
Set rec = bd.OpenRecordset("Subcategorias", 2)
'loop
Dim nombre As String
Do While Not rec.EOF
nombre = rec("Nombre")
MsgBox ("El nombre es: " & nombre)
rec.MoveNext
Loop
'cerrar
rec.Close
bd.Close
End Sub
Sólo quiero acceder por primera vez a una base de datos, pero me da este error al hacer el OpenRecordset. ¿Alguien me puede dar alguna idea? Este es el código:
Private Sub Form_Load()
'declaración
Dim bd As Database
Dim rec As Recordset
'con bd
Set bd = OpenDatabase("C:\3\Agenda\Agenda.mdb")
'con tabla
Set rec = bd.OpenRecordset("Subcategorias", 2)
'loop
Dim nombre As String
Do While Not rec.EOF
nombre = rec("Nombre")
MsgBox ("El nombre es: " & nombre)
rec.MoveNext
Loop
'cerrar
rec.Close
bd.Close
End Sub
Valora esta pregunta
0