Extraer campos
 

Hola amigos, estoy usando un TADOQuery con la siguiente sentencia SQL:

Código SQL [-]
SELECT EMPRESAS.CODIGO, EMPRESAS.NOMBRE, [EMPRESAS].[DIRECCION]+', '+[PROVINCIA]+', '+[MUNICIPIO] AS DIRECCION
FROM PROVINCIAS INNER JOIN (MUNIPROV INNER JOIN EMPRESAS ON MUNIPROV.CODIGO = EMPRESAS.CODMUNPRO) ON PROVINCIAS.CODIGO = MUNIPROV.CODPROV
ORDER BY EMPRESAS.CODIGO;

Necesito extraer de la cláusula SELECT los campos pero con la tabla, es decir:

EMPRESAS.CODIGO
EMPRESAS.NOMBRE
[EMPRESAS].[DIRECCION]+', '+[PROVINCIA]+', '+[MUNICIPIO]

Existe alguna función en el componente que estoy usando que me de lo que necesito o hay que programarlo?

Gracias.

Hola...

¿Exáctamente que quieres hacer?


Saludos...

ummm al parecer no me expliqué bien.

Necesito para cualquier consulta que esté almacenada en un TADOQuery extraer los nombres de los campos pero con la tabla delante (NOMBRE_TABLA.NOMBRE_CAMPO) como puse en primer post.

Hola...

Puedes revisar la ayuda de Delphi sobre TADOQuery a ver si hay algo que te sirva o ya de plano vas a tener que extraer esa información a "pie"



Saludos...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
   for i:= 0 to  ADOQuery1.FieldList.Count - 1 do
    // Nombres de los campos con la tabla delante en Memo.
     Memo1.Lines:= Add('NOMBRE_DE_TABLA.' + ADOQuery1.FieldList.Fields[i].FieldName);
end;

Saludos.

Podria ser asi:

Código Delphi [-]
strOrigen:=ADOQuery1.Fields[0].Origin;
//O podria ser
strOrigen:=ADOQuery1.FieldByname('ID'].Origin;

Ambos deberian entregarte lo que requieres.

Saludos

Hola...

Estuve investigando precisamente sobre esa propiedad y según la ayuda, solo sirve para campos persistentes y solo si estás usando el BDE, es por eso que no lo mencioné...



Saludos...

Tienes razon solo funciona con el BDE, pero si funciona aunque los campos no sean persistentes.

Marcador igualado a 1 :D

Un abrazo