Problema con instruccion SQL! Ayuda plz!!

[cslbcn]

Buenas a todos.

Dentro de un ADOQuery ADOQPersona tengo que poner una intruccion SQL asi:

Código SQL [-]
SELECT Tabla1.ID, Tabla1.NOM, Tabla2.ID FROM Tabla1, Tabla2 WHERE Tabla1.ID = Tabla2.ID

Pero en lugar de escribir Tabla2.ID, he de poner esto:
DM1.ADOQEmpresa.FieldByName('ID').AsString

Por lo que la instruccion SQL queda así:

Código SQL [-]
SELECT * FROM Tabla1 WHERE ID = DM1.ADOQEmpresa.FieldByName('ID').AsString

ADOQEmpresa y ADOQPersona pertenecen a Data Module diferentes.

Hasta aquí la teoría es correcta. Pero cuando quiero rellenar el ADOQPersona usando "Add All Fields", me sale un error diciendo que "DM1" "ADOQEmpresa" "FieldByName('ID')" no es un identificador válido...

Alguien sabe qué ocurre? Estoy escribiendo mal la SQL??

Gracias a todos!

[boreg]

Es por que le estás pasado codigo de delphi al motor de la base de datos, lo que tienes que hacer es concatenar tu consulta con el valor del campo ID de ADOQEmpresa, algo así

Código Delphi [-]
DM.ADOQuery.SelectSQL.Add(
     ' SELECT * '
  + ' FROM Tabla1 '
  + ' WHERE ID = ' + DM1.ADOQEmpresa.FieldByName('ID').AsString );
 
ó pasar el valor de tu ADOQuery por parametro
 
DM.ADOQuery.SelectSQL.Add(
     ' SELECT * '
  + ' FROM Tabla1 '
  + ' WHERE ID = :ID ');
DM.ADOQuery.ParamsByName('ID').AsString := DM1.ADOQEmpresa.FieldByName('ID').AsString;

Saludos

[cslbcn]

He de sustituir estos valores por los que yo quiero? o la instrucción es así:

DM.ADOQuery.SelectSQL.Add(

[boreg]

Claro amigo, tienes que sustituir por el nombre de los componentes que tú utilizas,

Código Delphi [-]
DATAMODULE.ADOQUERY.SELECTSQL.ADD('Select ...')

por cierto no estoy seguro que sea "SELECTSQL", puede ser "SQL" o "SELECT", te toca averiguarlo.

Saludos

[boreg]

Por cierto se me acaba de ocurrir que quizás estás colocando tus consultas directamente en el editor SQL de tu componente, si es así, te aclaro que todo el código que te estoy pasando es para escribirlo en el evento, procedure o función que lo necesites.

Otra opcion sería que en el editor de consultas del componente escribas:

Código SQL [-]
SELECT * 
 FROM Tabla1 
 WHERE ID = :ID

y cuando necesites, pasar el parametro

Código Delphi [-]
DATAMODULE.ADOQuery.ParamsByName('ID').AsString := DM1.ADOQEmpresa.FieldByName('ID').AsString;

Saludos.

[cslbcn]

no me entero de nada, pero gracias.
intentaré probar cosas