Privacidad: Recuerde que la información escrita en los foros de programación es 100% pública y que su ip será registrada asociada a su mensaje. Si encuentra un mensaje fuera de lugar, por favor, notifiquelo para su revisión y eliminación.
Error en ADODB
Enviado por Manuel Acosta Aceves el día 22 de junio de 2004
Estoy manejando ADODB pero a veces me marca los siguiente
Error '-2147467259(8000405)' en tiempo de ejecucion :
Error no especificado
Me lo marca cuando intenta abrir la conexion
Private Sub Form_Load()
Set MiConexion = New ADODB.Connection
Set MisRegistros = New ADODB.Recordset
MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + App.Path & "\PEPE.mdb" + ";Persist Security Info=False"
MiConexion.Open ' <--- Aqui me marca error
Revisa que en el proyecto tengas la referencia Microsoft Active X Data Objects Library (el número de versión depende de las actualizaciones de tu VB). Una vez hecha esta referencia, basta con que crees un objeto conecction, y VB lo asociará a un obejto ADO.
En tu caso, debería ser:
Public Miconexion As Connection
Public MisRegistros As Recordset
Set MiConexion = New Connection
Set MisRegistros = New Recordset
With MiConexion
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = " + App.Path & "\PEPE.mdb"
End With
MiConexion.Open
With MisRegistros
.Source= "Acá va tu instrucción SQL"
.ActiveConnection = MiConexion
.CursorType = AdOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
End With
MisRegistros.Open Options:=adCmdText
Foros de debate
Visual Basic
