19/04/2006, 16:33
|
| | | Fecha de Ingreso: agosto-2003
Mensajes: 906
Antigüedad: 21 años, 10 meses Puntos: 3 | |
| Ya logre hacerlo, con este codigo:
Private Sub txtFiltro_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If txtFiltro <> "" Then
Adodc1.Recordset.Filter = "empresa LIKE '*" + txtFiltro + "*'"
Else
Adodc1.Recordset.Filter = ""
Adodc1.Refresh
End If
KeyAscii = 0
End If
End Sub
Gracias igual, ahora funciona...hago una pregunta, puedo tomar ese filtro y enviarlo al datareport para imprimir?, o sea que desde el txtFiltro.text tomar la palabra que busco y hacer un QUERY al datareport para que imprima solo el dato buscado?
Algo asi habia pensado pero dudo que sea correcto, pero logicamente algo asi quiero hacer:
SELECT * FROM tInmobiliaria WHERE tInmobiliaria.empresa = txtFiltro.text |