error openrecordset

oscar
05 de Enero del 2004
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

CESAR NAVA SOTO
05 de Enero del 2004
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