Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 31-10-2008
cslbcn cslbcn is offline
Miembro
 
Registrado: jul 2008
Posts: 60
Poder: 17
cslbcn Va por buen camino
Exclamation 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!

Última edición por cslbcn fecha: 31-10-2008 a las 18:01:29.
Responder Con Cita
  #2  
Antiguo 31-10-2008
Avatar de boreg
boreg boreg is offline
Miembro
 
Registrado: oct 2007
Ubicación: México, México
Posts: 76
Poder: 18
boreg Va por buen camino
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
Responder Con Cita
  #3  
Antiguo 31-10-2008
cslbcn cslbcn is offline
Miembro
 
Registrado: jul 2008
Posts: 60
Poder: 17
cslbcn Va por buen camino
He de sustituir estos valores por los que yo quiero? o la instrucción es así:

DM.ADOQuery.SelectSQL.Add(
Responder Con Cita
  #4  
Antiguo 31-10-2008
Avatar de boreg
boreg boreg is offline
Miembro
 
Registrado: oct 2007
Ubicación: México, México
Posts: 76
Poder: 18
boreg Va por buen camino
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
Responder Con Cita
  #5  
Antiguo 31-10-2008
Avatar de boreg
boreg boreg is offline
Miembro
 
Registrado: oct 2007
Ubicación: México, México
Posts: 76
Poder: 18
boreg Va por buen camino
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.
Responder Con Cita
  #6  
Antiguo 31-10-2008
cslbcn cslbcn is offline
Miembro
 
Registrado: jul 2008
Posts: 60
Poder: 17
cslbcn Va por buen camino
no me entero de nada, pero gracias.
intentaré probar cosas
Responder Con Cita
  #7  
Antiguo 31-10-2008
Avatar de boreg
boreg boreg is offline
Miembro
 
Registrado: oct 2007
Ubicación: México, México
Posts: 76
Poder: 18
boreg Va por buen camino
Cita:
Empezado por cslbcn Ver Mensaje
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.
Responder Con Cita
  #8  
Antiguo 31-10-2008
cslbcn cslbcn is offline
Miembro
 
Registrado: jul 2008
Posts: 60
Poder: 17
cslbcn Va por buen camino
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!!!
Responder Con Cita
  #9  
Antiguo 31-10-2008
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Poder: 0
coso Va por buen camino
¿Nos puedes poner el codigo donde asignas la sentencia sql?
Responder Con Cita
  #10  
Antiguo 01-11-2008
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 29
Lepe Va por buen camino
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
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #11  
Antiguo 03-11-2008
cslbcn cslbcn is offline
Miembro
 
Registrado: jul 2008
Posts: 60
Poder: 17
cslbcn Va por buen camino
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.
Responder Con Cita
  #12  
Antiguo 03-11-2008
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 29
Lepe Va por buen camino
ahhhhh, que se trata de "un jefe"... entonces queda todo explicado .

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
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problema con sql y la instruccion like veronica Conexión con bases de datos 3 05-02-2007 19:44:40
instruccion WITH... armadillo Varios 4 08-05-2006 17:48:07
Problema con insertar instruccion en un dataset el_barto Conexión con bases de datos 2 13-07-2005 01:16:41
instruccion sql rqc Firebird e Interbase 4 21-01-2005 15:59:20
Problema con la instruccion Halt VRO Varios 2 02-12-2004 22:52:24


La franja horaria es GMT +2. Ahora son las 01:54:22.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi