Error de Consulta
Publicado por eduardo (36 intervenciones) el 24/04/2002 12:20:49
el problema que tengo es que quiero hacer una consulta para mostrarla en un datagrid. quiero que cada vez que se pulse una tecla me haga una busqueda en el recordset, pero no quiero que muestre todos los datos, sino que me muestre nada mas que los que cumplen la condicion que estoy tecleando. yo he echo lo siguiente, pero no me muestra ningun registro:
Private Sub mskBusqueda_KeyUp(KeyCode As Integer, Shift As Integer)
SQL = "SELECT OFICINAS.NumOficina, OFICINAS.NombreOficina, OFICINAS.Direccion, OFICINAS.Localidad, OFICINAS.Provincia, OFICINAS.CodigoPostal, OFICINAS.Telefono1, OFICINAS.Telefono2, OFICINAS.Fax, OFICINAS.PersonaContacto, OFICINAS.CentralitaTipo" & _
" From OFICINAS" & _
" WHERE (((OFICINAS.NombreOficina) Like '*" & mskBusqueda.Text & "*'))"
AsignarRecordset RsBuscar, SQL
Set DataGrid1.DataSource = RsBuscar
End Sub
Private Sub mskBusqueda_KeyUp(KeyCode As Integer, Shift As Integer)
SQL = "SELECT OFICINAS.NumOficina, OFICINAS.NombreOficina, OFICINAS.Direccion, OFICINAS.Localidad, OFICINAS.Provincia, OFICINAS.CodigoPostal, OFICINAS.Telefono1, OFICINAS.Telefono2, OFICINAS.Fax, OFICINAS.PersonaContacto, OFICINAS.CentralitaTipo" & _
" From OFICINAS" & _
" WHERE (((OFICINAS.NombreOficina) Like '*" & mskBusqueda.Text & "*'))"
AsignarRecordset RsBuscar, SQL
Set DataGrid1.DataSource = RsBuscar
End Sub
Valora esta pregunta


0