16/01/2006, 13:08
|
 | | | Fecha de Ingreso: noviembre-2004 Ubicación: Santa Fe (Argentina) Colon F.C
Mensajes: 1.362
Antigüedad: 20 años, 5 meses Puntos: 6 | |
| HACE ASI, PONE EL ADODB Y PONELE EN LA PESTAÑA "ORIGEN DE DATOS" LA OPCION ADCMDTEXT Y PONE ABAJO SELECT * FROM TU_TABLA
LUEGO DE ESO PONE UN DATAGRID UN TEXT Y UN BOTON, EN EL BOTON PONE EL SIG CODIGO
If Text1 <> "" Then
Adodc1.RecordSource = "SELECT * FROM PACIENTES WHERE APELLIDO LIKE '" & Text1 & "%' "
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "NO EXISTE EL APELLIDO"
Adodc1.RecordSource = "SELECT * FROM PACIENTES"
Adodc1.Refresh
End If
Else
Adodc1.RecordSource = "SELECT * FROM PACIENTES"
Adodc1.Refresh
End If
SALU2 Y ESPERO TE SIRVA .. BYE
__________________
LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA |