Uso de Upper en sentencia SQL

[Casimiro Noteví]

Esto no tiene nada que ver con OOP, lo paso a SQL

[jafera]

Ok Casimiro.

Lo he puesto en OPP ya que creia que hacia efecto al componente IBQuery, pero es mas sensato colocarlo en SQL, ahí dudé yo.

Gracias y no tendras una solucioncilla por ahí escondida? jejeej

Saludos

[jafera]

Gracias Ecfisa.

Ahora ya no da error, pero no puedo hacer la busqueda incremental con el like?
Solo me da valores en la busqueda si el campo es fijo

Saludos

[ecfisa]

Empezado por jafera

Ahora ya no da error, pero no puedo hacer la busqueda incremental con el like?

Si Josep, sólo tenes que reemplazar el "=" por el operador LIKE:

Código Delphi [-]
var
  C: string;
begin
  if ComboBox1.Text = 'RAO_COMERCIAL' then
    C:= 'B.'+ ComboBox1.Text
  else
    C:= 'A.'+ ComboBox1.Text;
  with OrdenarGrid do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT A.IDCOMPRA, A.DATA_COMPRA, A.IDPROVEIDOR, B.RAO_COMERCIAL');
    SQL.Add('FROM TR0004C A INNER JOIN TR0002 B ON B.IDPROVEIDOR = A.IDPROVEIDOR');
    SQL.Add(Format('AND UPPER(%s) LIKE UPPER(:PARAM)', [C]));
    SQL.Add(Format('ORDER BY %s', [C]));
    ParamByName('PARAM').AsString:= '%' + Edit1.Text + '%';
    Open;
  end;
end;

Saludos

[jafera]

Gracias Daniel.

He probado con el like sustituyendo el '=' como dices y no me hace el incremental como lo hacia antes, ahora solo filtra cuando encuentra la palabra completa.
Además si selecciono el campo ID_PROVEIDOR, no me encuentra nada de lo escrito en el Edit1.
Sigo investigando.

Saludos

Josep

[ecfisa]

Hola Josep.

La verdad que no se que decirte, este es el código que use en la prueba:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
var
  C: string;
begin
  if ComboBox1.Text = 'RAO_COMERCIAL' then
    C:= 'B.'+ ComboBox1.Text
  else
    C:= 'A.'+ ComboBox1.Text;
  with OrdenarGrid do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT A.IDCOMPRA, A.DATA_COMPRA, A.IDPROVEIDOR, B.RAO_COMERCIAL');
    SQL.Add('FROM TR0004C A INNER JOIN TR0002 B ON B.IDPROVEIDOR = A.IDPROVEIDOR');
    SQL.Add(Format('AND UPPER(%s) LIKE UPPER(:PARAM)', [C]));
    SQL.Add(Format('ORDER BY %s',[C]));
    ParamByName('PARAM').AsString:= '%'+Edit1.Text+'%';
    Open;
  end;
end;

Y como podrás ver, filtra de modo correcto:


Saludos

[jafera]

Perfecto, ahora si filtra, no se si habia algo mal puesto (Ctrl+C-CTtrl+V......).
Solo tengo una duda en el campo DATA_COMPRA que es una fecha y aqui si que no filtra, debo hacer algo como DateToStr?

Gracias

Josep