Necesito saber el display label correcto

[pani_alex]

Me da column unknown, solo si uso "T1.NOMBRE" funciona, tampoco son "NOMBRE" solo si es q dos tablas tienen el mismo nombre de campo

[ecfisa]

Hola pani_alex.

Me parece que es una cuestión de sintáxis relacionada con el tipo de componente y base de datos que estas usando.
Entonces la pregunta, ¿ Que gestor de base de datos y que componentes de conexión para conectarte a ella estas usando ?

Saludos

[pani_alex]

Pensando un poco lo q quiero se podria llamar "como obtener el campo de un alias y el alias de la tabla de un campo", lo del campo de un alias calculo se podria sacar simplemente analizando el texto sql, creo q hare la funcion, pero como podria saber por ej:
select t1.*, t2.*
from tabla1 t1, tabla2 t2
donde t1 tiene el campo nombre y t2 tambien, "nombre" de que tabla... creo q tengo una idea de como hacerlo, voy a trabajar en ello

[ecfisa]

Hola pani_alex.

Como te comenté la sintáxis puede variar levemente de acuerdo a los componentes de conexión/gestor que estés usando, si no das mas información...


Saludos

[pani_alex]

dbExpress
sqlConnection->SqlQuery->DataSetProvider->ClientDataSet->DataSource->dbGrithEh

base de datos firebird 2.5 dialecto 1

pero las pruebas tambien las hago en el flamerobin

[ecfisa]

Hola pani_alex.

Acabo de reproducir el caso a excepción del componente dbGrithEh que no uso. Es decir: SQLConnection -> SQLQuery -> DataSetProvider -> ClientDataSet -> DataSource -> DbGrid.

Te pongo la prueba que hice y me funciona correctamente en Firebird 2.5:

Código Delphi [-]
...
var
  ASCDESC :Boolean = True;

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
const
   ORDEN : array[Boolean] of string = ('ASC', 'DESC');
var
  fn: string;
begin
  ASCDESC := not ASCDESC;
  fn:= Format('%s %s',[Column.FieldName, ORDEN[ASCDESC]]);
  with SQLQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT T1.NOMBRE AS T1_NOMBRE, T2.NOMBRE T2_NOMBRE');
    SQL.Add('FROM TABLA1 T1,TABLA2 T2 ORDER BY ' + fn);
    Open;
    ClientDataSet1.Refresh;
  end;
end;

espero puedas sacar algo de ella.

Tal vez el componente dbGrithEh se comporte de modo diferente que el componente por defecto de Delphi (TDBGrid).

Saludos

[pani_alex]

realmente no lo se pero en el flamerobin tampoco hace caso cuando no se coloca el alias delante de los campos...

dejo aqui mi primer procedimiento aparentemente funcional de lo q estaba buscando, por si a alguien le sea de probecho

Código Delphi [-]
procedure TModGenerico.DB_ControlaDisplayLabel(ve_SqlQyery:TSQLQuery; ve_Cds:TClientDataSet);
var x,y,x_Pos,x_ultimo,x_primero:integer;
    v_campo,v_campo_buscado,v_sql,v_AliasDeTabla,strTemp:string;
    procedure copia_buscado;
    begin
      //exit;
      v_campo_buscado:=copy(v_sql,x_primero,((x_ultimo-x_primero)+1));
      //busca si la palabra encontrada no es una sentencia sql
      if(AnsiMatchStr(v_campo_buscado,['SELECT','END']))then begin
        v_campo_buscado:='';

      end;
    end;
    procedure saca_basura;
    var xx:integer;
    begin
      //exit;
      xx:=pos(#$A,v_sql);
      while xx>0 do begin
        //StringReplace(v_sql,#$A,' ',[rfReplaceAll]);
        //AnsiReplaceStr(v_sql,#$A,' ');
        Delete(v_sql,xx,1);
        insert(' ',v_sql,xx);
        //Insert();
        xx:=pos(#$A,v_sql);
      end;
      xx:=pos(#$D,v_sql);
      while xx>0 do begin
        //StringReplace(v_sql,#$D,' ',[rfReplaceAll]);
        AnsiReplaceStr(v_sql,#$D,' ');
        Delete(v_sql,xx,1);
        insert(' ',v_sql,xx);
        xx:=pos(#$D,v_sql);
      end;
      xx:=pos(#10,v_sql);
      while xx>0 do begin
        //StringReplace(v_sql,#10,' ',[rfReplaceAll]);
        //AnsiReplaceStr(v_sql,#10,' ');
        Delete(v_sql,xx,1);
        insert(' ',v_sql,xx);        
        xx:=pos(#10,v_sql);
      end;      
    end;
begin
  try
    for x:=0 to ve_Cds.FieldCount-1 do begin
      //--cerar variables
      x_ultimo:=0;
      x_primero:=0;
      v_campo_buscado:='';
      v_AliasDeTabla:='0';
      //--
      v_campo:=UpperCase(ve_Cds.Fields[x].FieldName);
      strTemp:=v_campo;
      //ve_Cds.DataSource.com
      v_sql:=uppercase(ve_SqlQyery.SQL.GetText);
      saca_basura;
      x_Pos:=pos(v_campo,v_sql);
      //busca si existe el campo dentro del texto del query, si no existe no puede ser encontrado
      if(x_Pos>0)then begin
        y:=x_Pos-1;
        while y>0 do begin
          //si hay una coma quiere decir q no es un campo alias o q no tiene alias de tabla
          if{(x_Pos=(y+1))and}(v_sql[y]=',')then
            Break;

          //pregunta si es alias de tabla
          if(v_AliasDeTabla='0')and(v_sql[y]='.')then begin
            v_AliasDeTabla:='S';
          end else if(v_AliasDeTabla='0')then begin
            v_AliasDeTabla:='N';
          end;

          if(v_AliasDeTabla='S')then begin
            //y:=y-1;
            if(x_ultimo=0)then x_ultimo:=x_Pos+length(v_campo)-1;
            //busca la primera posicion
            if(x_primero=0)and(x_ultimo>0)and(v_sql[y]=' ')then begin
              x_primero:=y+1;
            end;
            //si ya se encontro el primero y el ultimo ya esta
            if(x_primero>0)and(x_ultimo>0)then begin
              copia_buscado;
              Break;
            end;

          end else begin
            //buscar la ultimo posicion, el primero antes del campo
            if(x_ultimo=0)and(v_sql[y]<>' ')then begin
              x_ultimo:=y;
            end;
            //busca la primera posicion
            if(x_primero=0)and(x_ultimo>0)and((v_sql[y]=' ')or(v_sql[y]=#10))then begin
              x_primero:=y+1;
            end;
            //si ya se encontro el primero y el ultimo ya esta
            if(x_primero>0)and(x_ultimo>0)then begin
              copia_buscado;
              Break;
            end;
          end;
          y:=y-1;
        end;// while y
        if(v_campo_buscado<>'')then begin
          ve_Cds.Fields[x].DisplayLabel:=v_campo_buscado;
          strTemp:=strTemp+' - '+v_campo_buscado;
        end;
      end;// if x_pos
      if(FrmPrincipal.ppt_Desarrollo_Debug)then begin
        FrmPrincipal.mDesarrollo.Visible:=true;
        FrmPrincipal.mDesarrollo.Lines.Add(strTemp);
      end;
    end// for x
  except
    on e:Exception do
    ModPrincipal.MostrarError(Self.Name,'DB_ControlaDisplayLabel','',e.Message);
  end
end;

recien hoy lo hice funcionar en lo que probe, pero tiene limitaciones, no se puede usar *, se deben escribir todos los campos y no detecta campos muy complicados, como los de los case y otros, la parte de desarrollo es solo para ver lo q hace

por dar un ejemplo, esto es lo q hace, recorre los field del clientdataset y busca en el query el campo con su alias al que pertenece y este es el resultado
ID_PERSONA - U.ID_PERSONA
ID_CAJA - U.ID_CAJA
ID_USUARIO - U.ID_USUARIO
ID_SUCURSALAGENCIA
ADMINISTRADOR - U.ADMINISTRADOR
LOGIN - U.LOGIN
DESCRIPCION - SA.DESCRIPCION
CLAVE - U.CLAVE
ROOT - U.ROOT
CORREO - U.CORREO
AUTORIZATIPOCAMBIO - U.AUTORIZATIPOCAMBIO
OMITEDECLARACIONJURADA - U.OMITEDECLARACIONJURADA
MONTOMAXIMOAUTORIZACION - U.MONTOMAXIMOAUTORIZACION
AUTORIZACLIENTE - U.AUTORIZACLIENTE
AUTORIZADOCUMENTOCLIENTE - U.AUTORIZADOCUMENTOCLIENTE
ESTADO - U.ESTADO
CODIGO - SA.CODIGO
DESSUCURSALAGENCIA - SA.DESCRIPCION
CLAVEAUTORIZACIONES - U.CLAVEAUTORIZACIONES
VARIACIONPERMITIDATIPOCAMBIO - U.VARIACIONPERMITIDATIPOCAMBIO
CODCAJA - C.CODIGO
CAJANUMERADOR
DESCAJA
AUTORIZAACTOSYDOC - U.AUTORIZAACTOSYDOC
ID_IMPRESORA - U.ID_IMPRESORA
AUTORIZAIMPRESION - U.AUTORIZAIMPRESION
MONTOVARIACIONPERMITIDA - U.MONTOVARIACIONPERMITIDA
AUTORIZAANULACION - U.AUTORIZAANULACION
AUTORIZAAPERTURA - U.AUTORIZAAPERTURA
AUTORIZACIERRE - U.AUTORIZACIERRE
AUTORIZASALDOS - U.AUTORIZASALDOS
ID_USUARIO_INSERTA - U.ID_USUARIO_INSERTA
ID_USUARIO_MODIFICA - U.ID_USUARIO_MODIFICA
FECHAALTA - U.FECHAALTA
FECHABAJA - U.FECHABAJA
AUTORIZAOTRODIA - U.AUTORIZAOTRODIA
AUTORIZAPRECIOPIZARRA - U.AUTORIZAPRECIOPIZARRA
SEMAFORO - U.SEMAFORO