error openrecordset
quiero obtener registros a partir de una consulta en vb i acces.
el programa peta al hacer en 'set rs=db.openrecordset(....)
'Propiedades de abertura de la BBDD.
ModoExclusivo = True
SoloLectura = False
Set Db = OpenDatabase(Me.NomBBDD, ModoExclusivo, SoloLectura, ";pwd=" & Me.Password)
SQL = "SELECT * " & _
"FROM TPersona " & _
"WHERE TPersona!NIF = '" & Persona.NIF & "'"
*******PETA AQUI******
Set rs = Db.OpenRecordset(SQL, dbOpenDynaset)
rs.MoveLast
rs.MoveFirst
NumReg = rs.RecordCount
el programa peta al hacer en 'set rs=db.openrecordset(....)
'Propiedades de abertura de la BBDD.
ModoExclusivo = True
SoloLectura = False
Set Db = OpenDatabase(Me.NomBBDD, ModoExclusivo, SoloLectura, ";pwd=" & Me.Password)
SQL = "SELECT * " & _
"FROM TPersona " & _
"WHERE TPersona!NIF = '" & Persona.NIF & "'"
*******PETA AQUI******
Set rs = Db.OpenRecordset(SQL, dbOpenDynaset)
rs.MoveLast
rs.MoveFirst
NumReg = rs.RecordCount
En vez de utilizar el objeto Database (DAO), prueba a utilizar el objeto Connection (ADO). Ejemplo:
Dim cnPrueba As New ADODB.Connection
Dim rsPrueba As New ADODB.Recordset
cnPrueba.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "BasePrueba.mdb"
cnPrueba.CommandTimeout = 0
rsPrueba.Open "SELECT * FROM TablaPrueba", cnPrueba
Dim cnPrueba As New ADODB.Connection
Dim rsPrueba As New ADODB.Recordset
cnPrueba.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "BasePrueba.mdb"
cnPrueba.CommandTimeout = 0
rsPrueba.Open "SELECT * FROM TablaPrueba", cnPrueba