Uso de Upper en sentencia SQL

[jafera]

Buenas a todos.

Llevo unos dias intentando solucionar un problema de uso de upper dentro de una sql firebird.
La consulta original es esta y funciona bien:

Código SQL [-]
SELECT  A.IDCOMPRA, A.DATA_COMPRA, A.IDPROVEIDOR, B.RAO_COMERCIAL FROM TR0004C A, TR0002 B
WHERE B.IDPROVEIDOR = A.IDPROVEIDOR
ORDER BY IDCOMPRA

Lo que yo quiero es hacer un filtrado en el Edit1.Exit con el siguiente código:

Código Delphi [-]
procedure TF_BuscarCompraProv.Edit1Change(Sender: TObject);
var C:String;
begin
        OrdenarGrid.Close;
        if ComboBox1.Text='RAO_COMERCIAL' then
                C:= 'B.'+ComboBox1.Text
        else
                C:= 'A.'+ComboBox1.Text;
        OrdenarGrid.SQL[1] := 'WHERE B.IDPROVEIDOR = A.IDPROVEIDOR  AND UPPER (C) like ''%'+AnsiUpperCase(Edit1.Text)+'%''';
        OrdenarGrid.SQL[2] := ' ORDER BY '+Combobox1.Text;
        OrdenarGrid.Open;
end;

Cuando entro en la consulta original funciona de perlas, pero cuando voy al Edit 1 y escribo algo me manda un error de column unknow C in line.......

Me olvido algo?
He probado con QuotedStr(C) y tampoco, con [QuotedStr(C)] tampoco nada.

Gracias por si alguien me puede ayudar.

Josep

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

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

[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