Uso de Upper en sentencia SQL

[TOPX]

Buenas.

En el evento OnBeforeOpen de OrdenarGrid haga que se despliegue un mensaje con la sentencia SQL a ejecutar,
de manera que Ud. pueda verificar que está correcta.

Con algo así:

Código Delphi [-]
procedure TF_BuscarCompraProv.OrdenarGridBeforeOpen(DataSet: TDataSet);
begin
  ShowMessage(OrdenarGrid.Sql.Text);
end;

-

[[Al González]]

No queda muy claro el objetivo. Pero puedes ayudarnos un poco:

Por favor, pon un ejemplo de la sentencia SQL Select que debería llegarle a Firebird si la condición ComboBox1.Text='RAO_COMERCIAL' se cumpliera. Y otro ejemplo de cómo sería la sentencia si esa condición no se cumpliera.

Así, viéndolo desde la perspectiva del servidor de base de datos, podríamos tener más claro qué cosa quieres solicitarle desde Delphi. No olvides usar la etiqueta Resaltar sintaxis SQL (la opción de la esquina superior derecha del editor de mensajes).

Saludos.

Al González.

[jafera]

Gracias por vuestra respuestas.

La sentencia SQL final deberia quedar así si ComboBox1.Text = RAO_COMERCIAL:

Código SQL [-]
SELECT  A.IDCOMPRA, A.DATA_COMPRA, A.IDPROVEIDOR, B.RAO_COMERCIAL FROM TR0004C A, TR0002 B
WHERE B.IDPROVEIDOR = A.IDPROVEIDOR AND UPPER B.RAO_COMERCIAL LIKE ''%'+AnsiUpperCase(Edit1.Text)+'%'''
ORDER BY B.RAO_SOCIAL

En los otros casos, quedaria así (ejemplo de un caso)

Código SQL [-]
SELECT  A.IDCOMPRA, A.DATA_COMPRA, A.IDPROVEIDOR, B.RAO_COMERCIAL FROM TR0004C A, TR0002 B
WHERE B.IDPROVEIDOR = A.IDPROVEIDOR AND UPPER A.IDPROVEIDOR LIKE ''%'+AnsiUpperCase(Edit1.Text)+'%'''
ORDER BY A.IDPROVEIDOR

El motivo es que los campos estan en tablas distintas.

Si ejecuto con F8, C toma el valor A.IDCOMPRA, A.IDPROVEIDOR, A.DATA_COMPRA o B.RAO_COMERCIAL, por eso me extraña que luego no encuentre la columna C

Saludos

[ecfisa]

Hola jafera.

Primero, en la línea,

Código Delphi [-]
OrdenarGrid.SQL[1] := 'WHERE B.IDPROVEIDOR = A.IDPROVEIDOR  AND UPPER (C) like ''%'+AnsiUpperCase(Edit1.Text)+'%''';

estas tratando a "C" como un caracter no como la variable cuyo valor (supongo) queres pasar a mayúscula.

Segundo te aconsejo el uso de parámetros frente a la composición de cadenas

Saludos

[jafera]

Gracias de nuevo.

Ecfisa, tienes razon con lo de los parametros, pero como encajo despues del upper algo como :campo.
Lo he probado a la brava y evidentemente no va.

Sigo investigando

Saludos

[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]

Hola Josep.

Me refiero a algo parecido a esto:

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) = UPPER(:PARAM)', [C]));
    SQL.Add(Format('ORDER BY %s', [C]));
    ParamByName('PARAM').AsString:= Edit1.Text;
    Open;
  end;
end;

No probé si hace lo que buscas, es sólo a modo orientativo.

Saludos

[jafera]

Empezado por TOPX

Buenas.

En el evento OnBeforeOpen de OrdenarGrid haga que se despliegue un mensaje con la sentencia SQL a ejecutar,
de manera que Ud. pueda verificar que está correcta.

Con algo así:
Código Delphi [-]procedure TF_BuscarCompraProv.OrdenarGridBeforeOpen(DataSet: TDataSet); begin ShowMessage(OrdenarGrid.Sql.Text); end;

-

El resultado obtenido es:

Código SQL [-]
SELECT  A.IDCOMPRA, A.DATA_COMPRA, A.IDPROVEIDOR, B.RAO_COMERCIAL FROM TR0004C A, TR0002 B
WHERE B.IDPROVEIDOR = A.IDPROVEIDOR AND UPPER (C) LIKE '%6%'
ORDER BY A.IDCOMPRA

Evidentemente no se puede evaluar C

Saludos