Hola joaking.
Cita:
|
quiero que lo busque tanto si lo escribo en mayúsculas como en minúsculas sin saber como está metido en la tabla.
|
Como ejemplo, una búsqueda incremental desde un Edit:
Código Delphi
[-]
procedure TForm.bnombreChange(Sender: TObject);
begin
ZQbnombre.Close;
ZQbnombre.SQL.text := 'SELECT * FROM CLIENTES WHERE UPPER(NOMBRE) LIKE '+
QuotedStr(UpperCase(bnombre.Text)+'%');
ZQbnombre.Open;
end;
Pero, para evitar la
inyección SQL, mucho mejor sería:
Código Delphi
[-]
procedure TForm.bnombreChange(Sender: TObject);
begin
ZQbnombre.Close;
ZQbnombre.SQL.Text := 'SELECT * FROM CLIENTES WHERE UPPER(NOMBRE) LIKE :PNOMBRE';
ZQbnombre.ParamByName('PNOMBRE').AsString := UpperCase(bnombre.Text)+'%';
ZQbnombre.Open;
end;
Saludos.
