Problema con instruccion SQL! Ayuda plz!!
 

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!

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

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

DM.ADOQuery.SelectSQL.Add(

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

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.

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.

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!!!

¿Nos puedes poner el codigo donde asignas la sentencia sql?

cslbcn, necesitas conocimientos de SQL, busca algún manual en internet, los hay a millares.

Probar cosas sin ton ni son, solo conseguirá frustarte aún más.

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

SQL es un lenguaje estandar para trabajar con bases de datos, y tú le estás dando una instrucción ("DM1.ADOQEmpresa.FieldByName('ID').AsString") que es del lenguaje Delphi, es lógico que de un fallo, porque SQL no entiende de Delphi.

La respuesta la tienes en el primer lenguaje de boreg, pero tú tienes que poner de tu parte también.

Saludos

Lepe, yo tambien lo entiendo así. Sé cuales son las instrucciones SQL y que no tienen que llevar, pero si me dicen que saque una sentencia SQL metiendo codigo delphi por el medio... pues no sé como hacerlo.

Hoy hablaré con quien me dijo que lo hiciera asi (mi jefe) y a ver como lo hace el.

ahhhhh, que se trata de "un jefe"... entonces queda todo explicado :D :D.

Está claro, lo que quiere tu jefe es la primera respuesta de boreg, dentro de ella, yo elegiría el segundo ejemplo, tu jefe lo verá más "elegante" ;).

Saludos