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
|