Pregunta: | 55518 - ERROR 3021 AL LANZAR CONSULTA SQL UTILIZANDO UN TEXTBOX |
Autor: | david piedrahita |
Buenas: Intento algo que supuestamente debe ser muy sencillo. Quiero desde visual lanzar una consulta sql sobre una base de datos de access utilizando un textbox para que desde él recoja un dato que uso en el where de la sql. El código lo he puesto para un botón de comando y el error que dá es error 3021 en tiempo de ejecución. No hay registro activo. Todo lo que he encontrado sobre este error no me ayuda. El código es: Private Sub Command1_Click() Dim BDD As Database Dim TBL As Recordset Set BDD = OpenDatabase("c:\Documents and Settings\A126813\Escritorio\db1.mdb") Dim SQL As String SQL = "select nombre from tabla1 where nombre like '" & Text3.Text & "%'" Set TBL = BDD.OpenRecordset(SQL) TBL.MoveFirst Do Until TBL.EOF List5.AddItem TBL("nombre") & " " & TBL("apellido") & " tiene " & TBL("edad") TBL.MoveNext Loop End Sub y el error da en TBL.MoveFirst Alguien puede ayudarme? Gracias de ante mano. |