Busqueda segun radiobutton seleccionado

[JoanKa]

coloque lo que dijistes ...
consulta:='SELECT * FROM T_CLIENTES WHERE'+ ' ' + nombre + 'LIKE '% texto %''';

pero no me lo compila..

Gracias

[[Ohcan]]

Prueba con

Código Delphi [-]
filtro := '%texto%';
consulta := 'SELECT * FROM MiTabla WHERE MiCampo LIKE ' + QuotedStr(filtro);

Saludos

[JoanKa]

Bueno este era lo que yo deseaba: posteo una rutina para ver los registros segun un filtro o el caracter ingresado
procedure TFrm_Busq_Clie.txt_buscarChange(Sender: TObject);

var consulta : String;
nombre: String;
texto:String;
filtro:String;
begin

if rb_nombres.Checked=True Then
begin
texto:=txt_buscar.Text;
QUERY1.Active := False;

filtro:='%'+texto+'%';

consulta := 'SELECT * FROM T_CLIENTES WHERE nom_nor LIKE ' + QuotedStr(filtro);

QUERY1.SQL.Clear;
QUERY1.SQL.ADD(consulta);
QUERY1.Open
end;


end;

Pero ahora tengo el problema siguiente tengo un cliente que esta registrado en la Tabla cuyo nombre es Llobet pero cuando escribo ll (doble l) no me sale pero cuando digito en el text si obtengo el registro, en otras palabras no me reconoce las mayusculas en la base de datos con las minusculas de lo ingresado.

Habra una funcion.....
Gracias

[[Ohcan]]

Bueno...
Haz la comparacion con todo en mayúsculas...

Código Delphi [-]
filtro := '%texto%';
consulta := 'SELECT * FROM MiTabla WHERE UPPER(MiCampo) LIKE ' + QuotedStr(UpperCase(filtro));

Esto en válido al menos en Oracle... ya me dirás

[JoanKa]

Te pongo un Ejemplo a ver si me entiendes mejor.
En la tabla cliente tengo los siguientes nombres

1 Pedro Pedro Ascoy
2 Carlos Rico Asto
3 Ximena Casos Neyra

consulta := 'SELECT * FROM T_CLIENTES WHERE nom_nor LIKE ' + QuotedStr(filtro);

Ahora en el text box escribo : as (en minusculas) solo me muestra el tercer registro

Pero con
consulta := 'SELECT * FROM T_CLIENTES WHERE nom_nor LIKE ' + QuotedStr(UpperCase(filtro));

Escribo en el textbox la letra 'a' y obtengo solo los registros 1 y 2 pero luego cuando escribo acontrinuacion de la letra 'a' la letra 's', es decir 'as' (el cual me debe seguir mostrando los dos registros anteriores , ya cuando escriba el tercero alli es cuando me va a diferenciar) y el dbgrid no me muestra nada(dbgrid en blanco).

Que debo hacer ...... O antes de hacer la consulta convierto todos los registros del campo nombre a mayusculas... si es asi como se haria eso.


Gracias

[[Ohcan]]

Efectivamente, como tú mismo dices:
"...... O antes de hacer la consulta convierto todos los registros del campo nombre a mayusculas... "
En el post anterior ya te lo pongo, pero con la etiqueta DELPHI quizás no se ve bien...

consulta :=
'SELECT * FROM MiTabla WHERE ' +
'UPPER(MiCampo) LIKE ' +
QuotedStr(UpperCase(filtro));

A mi me funciona bien en Oracle...
Ya nos contarás...

[JoanKa]

Gracias amigo eso era exactamente lo que deseaba, lo que pasa que deje de programar, y ahora despues de 4 años lo estoy retomando, antes usaba VB.

Gracias y Salu2