Filtros con maskedit

[novato03]

Gracias por la ayuda, pero me sigue presentando el mismo error, en todo caso el código que escribi arriba me finciona perfectamente con Código con su respectivo acento en el combobox, tambien funciona con empresa, contacto, etc, el problema ocurre al implemntar la busqueda por teléfono en este formato, sin estos simbolos ()- me funciona pero al incluirlos bam error, ya sea con maskedit o edit.

[[enecumene]]

Hola, Creo que te faltan comillas aqui:

Código Delphi [-]
If ComboBox1.Text = 'Teléfono' then Filtro := 'telefono Like '+MaskEdit1.Text+ '*'''

intentalo, luego nos comentas.

Saludos.

[[Lepe]]

Filtro := ComboBox1.Text + 'LIKE ' + QuotedStr( MaskEdit1.Text ) + '%';

ummmm, el comodin debe estar dentro del QuotedStr y antes de la palabra "like" falta un espacio (o dará fallo al ejecutar el sql)

Código Delphi [-]
Filtro := ComboBox1.Text + ' LIKE ' + QuotedStr( MaskEdit1.Text+ '%') ;

y ahora si, todo el texto y el comodín se encierran entre comillas.

Saludos

[waly2k1]

Empezado por Lepe

ummmm, el comodin debe estar dentro del QuotedStr y antes de la palabra "like" falta un espacio (o dará fallo al ejecutar el sql)

Efectivamente Sr., totalmente de acuerdo con tu acotación. Lo escribí rápido y no presté atención a esos 'detalles'.

Saludos

[novato03]

Gracias a todos por la ayuda, logré solucionar el problema para filtrar por el maskedit el único problema es que cuado limpio el mask edit no se muestran todos los registros en el DBGrid se queda en blanco, aúnque ese problema no sucede cuando realizo la busqueda por código, empresa, contacto, etc, inmediatamente limpio regresan al DBDgrid los registros pero con el maskedit no sucede la misma situación. Acaso debo agregar algo más?

[[Lepe]]

Acabo de releer el hilo y me parece extraño que funcione. Tenía entendido que "Like" era incompatible con la propiedad Filter (o sea que no funcionaba). Revisa que devuelva los datos correctos.

Yo hablaba de sql, es decir de un TADOQuery en el que su claúsula where fuese la comentada.

En cuanto a lo que comentas, puede que esté interfiriendo las otras condiciones de búsqueda, en resumen, debería quedar algo así:

Código Delphi [-]
 Dmodulo.tblContactos.Filtered := False;
 if ChequedaCondiciones then
   Dmodulo.tblContactos.Filtered := True;

Ya que si cada condición pone el Filtered a True/False, puede que al final no haga lo que deseas.


Saludos

[[Caral]]

Hola
Aquí la pregunta seria:
Los campos Teléfono y Celular son Numéricos o texto en la base de datos.
Si son numéricos no va a aceptar ().
Saludos