19/06/2007, 09:56
|
| | | Fecha de Ingreso: octubre-2006
Mensajes: 139
Antigüedad: 18 años, 6 meses Puntos: 1 | |
| Re: buscar por campo en msflexgrid
Primero debes crear un inputbox mediante el cuál el usuiario introduce el parámetro de búsqueda . Este sería un ejemplo para ADO
Dim cadena As String
cadena = InputBox("Ingrese el campo o parte del mismo. Buscaremos coincidencias con su ingreso dentro de la base de datos ", " Busqueda por campo")
' Si no escribe nada
If cadena = "" Then
Adodc.Refresh
'las lineas debajo On Error Resume Next
'evitan el error cuando no
'arroja resultados la busqueda
On Error Resume Next
Exit Sub
Else
Adodc2.RecordSource = "Select * from tabla Where campo like '%" & cadena & "%'"
Adodc2.Refresh
msflexgrid.SetFocus |