Error 3001. Al hacer filtro en access
Publicado por Oscar (5 intervenciones) el 27/01/2009 09:09:16
Pues tengo este mismo codigo en otras aplicaciones y me funciona bien pero con esta base de datos cada vez que llega a la linea del filtro me vota el error, el codigo es:
Public rsDatos As New ADODB.Recordset
Public dbDatos As New ADODB.Connection
dbDatos.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:Fichasfichas.mdb"
dbDatos.Open
rsDatos.CursorLocation = adUseClient
rsDatos.Open "Fichas", dbDatos, adOpenDynamic, adLockOptimistic
rsDatos.MoveFirst
rsDatos.Filter = adFilterNone
oscar1 = Combo4.Text
rsDatos.Filter = "Calle= " & oscar1
rsdatos.close
Al llegar a la linea del filtro siempre me vota el error 3001 y ahi se queda.Muchas gracias por anticipado...Un saludo
Public rsDatos As New ADODB.Recordset
Public dbDatos As New ADODB.Connection
dbDatos.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:Fichasfichas.mdb"
dbDatos.Open
rsDatos.CursorLocation = adUseClient
rsDatos.Open "Fichas", dbDatos, adOpenDynamic, adLockOptimistic
rsDatos.MoveFirst
rsDatos.Filter = adFilterNone
oscar1 = Combo4.Text
rsDatos.Filter = "Calle= " & oscar1
rsdatos.close
Al llegar a la linea del filtro siempre me vota el error 3001 y ahi se queda.Muchas gracias por anticipado...Un saludo
Valora esta pregunta


0