Problema con instruccion SQL! Ayuda plz!!

[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

[boreg]

Empezado por cslbcn

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

¿Te refieres a que no me supe explicar?, avisanos en que tienes dudas, con gusto te ayudamos.

Saludos.

[cslbcn]

No sé donde poner ese codigo, no se que hace...

Este código lo entiendo:

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

Pero cuando compilo el programa me sale un fallo, me dice que el field Tabla2.ID no se encuentra en el ADOQUsuarios, que es la ADOQ donde está ese sql. Entonces me dijeron de utilizar ese otro codigo:
DM1.ADOQEmpresa.FieldByName('ID').AsString

y no entiendo la manera de sustituir un codigo con el otro. Yo quiero usar el que entiendo, pero no sé porque me sale ese fallo!!!