Conectar con DB
Publicado por Javi (1 intervención) el 28/06/2006 15:07:21
Hola a todos.
Con el siguiente codigo me sale un error 13. No Coinciden los tipos.
Me podeis decir como solucionarlo:
Dim MiRs As Recordset, MiWs As Workspace, MiDb As Database, MiCnx As Connection
Set MiWs = CreateWorkspace("WsJet", "admin", "", dbUseJet)
Set MiDb = MiWs.OpenDatabase("C:\Aprende.mdb", False, dbDriverComplete, ";pwd=miclave")
Set MiRs = MiDb.OpenRecordset("SELECT * FROM Libros", dbOpenDynaset, dbInconsistent, dbPessimistic)
*** Gracias ***
Con el siguiente codigo me sale un error 13. No Coinciden los tipos.
Me podeis decir como solucionarlo:
Dim MiRs As Recordset, MiWs As Workspace, MiDb As Database, MiCnx As Connection
Set MiWs = CreateWorkspace("WsJet", "admin", "", dbUseJet)
Set MiDb = MiWs.OpenDatabase("C:\Aprende.mdb", False, dbDriverComplete, ";pwd=miclave")
Set MiRs = MiDb.OpenRecordset("SELECT * FROM Libros", dbOpenDynaset, dbInconsistent, dbPessimistic)
*** Gracias ***
Valora esta pregunta
0