Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > MySQL
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 31-01-2017
koalasoft koalasoft is offline
Miembro
 
Registrado: oct 2004
Ubicación: Tenosique Tabasco
Posts: 86
Poder: 20
koalasoft Va por buen camino
Mensaje Conflicto entre tablas, Migración Query a ADOQuery

Buen dia .. tengo un detalle .... anterior mente usaba el siguiente código con el componente Query y me funcionaba muy bien sin problemas, usando en aquel entonces tablas paradox..

Código PHP:
with QueryRegONT do          // Busqueda por Modelo y Tipo
 
begin
   Close
;
   
SQL.Clear;
   
// ------------------------------------------------------------
   // Se ultilizó el PArametro JOIN para unir las otras Tablas
   // relacionando el Campo FOLIO en todas ellas siempre y cuando
   // Se cumpliera la condicion de busqueda del ONT ya registrado.
   // ------------------------------------------------------------
   
SQL.Add('SELECT * FROM CTRLONT.db CTRL ');
   
SQL.Add('join CLIENTES.db CL on CTRL.FOLIO = CL.FOLIO ');
   
SQL.Add('join ONT.db ONT on CTRL.FOLIO = ONT.Folio ');
   
SQL.Add('WHERE BOARD_ONT=:BOARD_ONT');
   
SQL.Add(' AND FRAME_ID=:FRAME_ID');
   
SQL.Add(' AND SLOT_ID=:SLOT_ID');
   
SQL.Add(' AND PORT_ID=:PORT_ID');
   
SQL.Add(' AND ONT_ID=:ONT_ID');

   
// --------------------------------------------------------
   //  Valores de búsqueda para el registro de Cliente.
   // --------------------------------------------------------
   
ParamByName('BOARD_ONT').AsInteger := StrToInt(Edit1.Text);
   
ParamByName('FRAME_ID').AsInteger := StrToInt(Edit2.Text);
   
ParamByName('SLOT_ID').AsInteger := StrToInt(Edit3.Text);
   
ParamByName('PORT_ID').AsInteger := StrToInt(Edit4.Text);
   
ParamByName('ONT_ID').AsInteger := StrToInt(Edit5.Text);
   
Open;
   if 
QueryRegONT.IsEmpty then
    Begin
    msError
('El ONT no se encuentra registrado, porfavor verifica los datos.','No existe Datos..');
    exit;
    
End
     
Else
      
Begin
      F
:= QueryRegONT.FieldByName('FOLIO').AsInteger;
      
// -------------------
      
with QueryCL do          // Busqueda por Modelo y Tipo
        
begin
          Close
;
          
SQL.Clear;
          
SQL.Add('SELECT * FROM CLIENTES.db ');
          
SQL.Add('WHERE FOLIO=:FOLIO');
          
ParamByName('FOLIO').AsInteger :=F;
          
Open;
        
end;
      
with QueryONT do          // Busqueda por Modelo y Tipo
        
begin
          Close
;
          
SQL.Clear;
          
SQL.Add('SELECT * FROM ONT.db ');
          
SQL.Add('WHERE FOLIO=:FOLIO');
          
ParamByName('FOLIO').AsInteger :=F;
          
Open;
        
end;
      
// -------------------
      
Bok.Enabled := True;
      
BBuscar.Enabled := False;
      
DesactivarCampos([Edit1,Edit2,Edit3,Edit4,Edit5]);
      
End;
 
end

Ahora el mismo código lo intenté migrar al componente ADOQuery ya que ahora estoy trabajando con tablas Mysql y lo tengo de esta forma:

Código PHP:
with ADOQueryCtrlONT do          // Busqueda por Modelo y Tipo
 
begin
   Close
;
   
SQL.Clear;
   
// ------------------------------------------------------------
   // Se ultilizó el PArametro JOIN para unir las otras Tablas
   // relacionando el Campo FOLIO en todas ellas siempre y cuando
   // Se cumpliera la condicion de busqueda del ONT ya registrado.
   // ------------------------------------------------------------
   
SQL.Add('SELECT * FROM CTRLONT CTRL ');
   
SQL.Add('join CLIENTES CL on CTRL.FOLIO = CL.FOLIO ');
   
SQL.Add('join ONTs ONT on CTRL.FOLIO = ONT.Folio ');
   
SQL.Add('WHERE BOARD_ONT= :BOARD_ONT');
   
SQL.Add(' AND FRAME_ID= :FRAME_ID');
   
SQL.Add(' AND SLOT_ID= :SLOT_ID');
   
SQL.Add(' AND PORT_ID= :PORT_ID');
   
SQL.Add(' AND ONT_ID= :ONT_ID');

   
// --------------------------------------------------------
   //  Valores de búsqueda para el registro de Cliente.
   // --------------------------------------------------------
   
Parameters.ParamByName('BOARD_ONT').Value  := Edit1.Text;
   
Parameters.ParamByName('FRAME_ID').Value := Edit2.Text;
   
Parameters.ParamByName('SLOT_ID').Value := Edit3.Text;
   
Parameters.ParamByName('PORT_ID').Value := Edit4.Text;
   
Parameters.ParamByName('ONT_ID').Value := StrToInt(Edit5.Text);
   
Open;
   if 
ADOQueryCtrlONT.IsEmpty then
    Begin
    msError
('El ONT no se encuentra registrado, por favor verifica los datos.','No existe Datos..');
    exit;
    
End
     
Else
      
Begin
      F
:= ADOQueryCtrlONT.FieldByName('FOLIO').Value;
      
// -------------------
      
with ADOQueryCL do          // Busqueda por Modelo y Tipo
        
begin
          Close
;
          
SQL.Clear;
          
SQL.Add('SELECT * FROM CLIENTES ');
          
SQL.Add('WHERE FOLIO= :FOLIO');
          
Parameters.ParamByName('FOLIO').Value :=F;
          
Open;
        
end;
      
with ADOQueryONT do          // Busqueda por Modelo y Tipo
        
begin
          Close
;
          
SQL.Clear;
          
SQL.Add('SELECT * FROM ONTs ');
          
SQL.Add('WHERE FOLIO= :FOLIO');
          
Parameters.ParamByName('FOLIO').Value :=F;
          
Open;
        
end;
      
// -------------------
      
Bok.Enabled := True;
      
BBuscar.Enabled := False;
      
DesactivarCampos([Edit1,Edit2,Edit3,Edit4,Edit5]);
      
End;
 
end
Al ejecutarlo me marca un mensaje de error que dices asi:

"Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otro"

El compilador no marca error y prácticamente estoy usando el mismo código con el que si me funcionaba, saben cual podría ser el error?

EL error del mensaje lo genera en esta línea:

Código PHP:
SQL.Add('WHERE BOARD_ONT=:BOARD_ONT'); 

Última edición por koalasoft fecha: 31-01-2017 a las 17:59:32.
Responder Con Cita
  #2  
Antiguo 31-01-2017
aposi aposi is offline
Miembro
 
Registrado: dic 2006
Posts: 146
Poder: 18
aposi Va por buen camino
Hola,
En el Where indica a que tabla se refiere el campo
CL si es la tabla cliente, CTRL si esta en CTRLON o ONT si esta en ONTs
Responder Con Cita
  #3  
Antiguo 31-01-2017
koalasoft koalasoft is offline
Miembro
 
Registrado: oct 2004
Ubicación: Tenosique Tabasco
Posts: 86
Poder: 20
koalasoft Va por buen camino
Gracias por responder ..

Hice lo que mencionas, lo cambié por esto...

Código PHP:
   SQL.Add('SELECT * FROM CTRLONT CTRL ');
   
SQL.Add('join CLIENTES CL on CTRL.FOLIO = CL.FOLIO ');
   
SQL.Add('join ONTs ONT on CTRL.FOLIO = ONT.Folio ');
   
SQL.Add('WHERE CTRL.BOARD_ONT= :BOARD_ONT');        // Aquí marca el error
   
SQL.Add(' AND CTRL.FRAME_ID= :FRAME_ID');
   
SQL.Add(' AND CTRL.SLOT_ID= :SLOT_ID');
   
SQL.Add(' AND CTRL.PORT_ID= :PORT_ID');
   
SQL.Add(' AND CTRL.ONT_ID= :ONT_ID'); 
Ya que la búsqueda correponde a la tabla CTRLONT, pero en la misma línea WHERE me sigue marcando el mismo error.
Responder Con Cita
  #4  
Antiguo 31-01-2017
aposi aposi is offline
Miembro
 
Registrado: dic 2006
Posts: 146
Poder: 18
aposi Va por buen camino
la tabla ONT se llama ONT o ONTs?

En el Query que funcionava se llama ONT
Código Delphi [-]
SQL.Add('join ONT.db ONT on CTRL.FOLIO = ONT.Folio ');
Y en el nuevo ONTs
Código Delphi [-]
SQL.Add('join ONTs ONT on CTRL.FOLIO = ONT.Folio ');
Responder Con Cita
  #5  
Antiguo 31-01-2017
koalasoft koalasoft is offline
Miembro
 
Registrado: oct 2004
Ubicación: Tenosique Tabasco
Posts: 86
Poder: 20
koalasoft Va por buen camino
Cita:
Empezado por aposi Ver Mensaje
la tabla ONT se llama ONT o ONTs?

En el Query que funcionava se llama ONT
Código Delphi [-]
SQL.Add('join ONT.db ONT on CTRL.FOLIO = ONT.Folio ');
Y en el nuevo ONTs
Código Delphi [-]
SQL.Add('join ONTs ONT on CTRL.FOLIO = ONT.Folio ');
Ahora se llama ONTs la tabla, pero pasa algo curioso, quite estas líneas:

Código PHP:
SQL.Add(' AND CTRL.FRAME_ID= :FRAME_ID'); 
   
SQL.Add(' AND CTRL.SLOT_ID= :SLOT_ID'); 
   
SQL.Add(' AND CTRL.PORT_ID= :PORT_ID'); 
   
SQL.Add(' AND CTRL.ONT_ID= :ONT_ID'); 
Dejando la consulta de esta forma:

Código PHP:
SQL.Add('SELECT * FROM CTRLONT ');  
SQL.Add('WHERE BOARD_ONT= :BOARD_ONT'); 
Y de nuevo en la segunda línea donde esta el WHERE me marca el mismo error.
Responder Con Cita
  #6  
Antiguo 31-01-2017
Avatar de TOPX
TOPX TOPX is offline
Miembro
 
Registrado: may 2008
Ubicación: Bogotá
Posts: 527
Poder: 16
TOPX Va camino a la fama
Buen día.

... información de interés ~ Using parameters with ADO Query (mysql/MyConnector) - StackOverflow
-
__________________
"constructive mind, destructive thoughts"
Responder Con Cita
  #7  
Antiguo 31-01-2017
Avatar de fjcg02
[fjcg02] fjcg02 is offline
Miembro Premium
 
Registrado: dic 2003
Ubicación: Zamudio
Posts: 1.408
Poder: 22
fjcg02 Va camino a la fama
Una pregunta...

el campo BOARD_ONT es de la tabla CTRLONT ?

Saludos
__________________
Cuando los grillos cantan, es que es de noche - viejo proverbio chino -
Responder Con Cita
  #8  
Antiguo 31-01-2017
koalasoft koalasoft is offline
Miembro
 
Registrado: oct 2004
Ubicación: Tenosique Tabasco
Posts: 86
Poder: 20
koalasoft Va por buen camino
Gracias por el dato .. intenté con esto ...

Código PHP:
with ADOQueryCtrlONT.Parameters.AddParameter do
    
begin
      Name 
:= 'BOARD';
      
DataType := ftInteger;
    
end;

with ADOQueryCtrlONT do          // Busqueda por Modelo y Tipo
 
begin
   Close
;
   
SQL.Clear;
   
SQL.BeginUpdate;
   
SQL.Add('SELECT * FROM CTRLONT ');
   
SQL.Add('WHERE BOARD_ONT = :BOARD');
   
Open;
...
.. 
Pero me sigue mandando el mismo mensaje en la línea donde tiene el WHERE ..

Una pregunta tendrá algo que ver el tipo de datos que tenga definida en la BD, ya que el campo BOARD_ONT es de tipo Int(11) en la BD Mysql.
Responder Con Cita
  #9  
Antiguo 31-01-2017
koalasoft koalasoft is offline
Miembro
 
Registrado: oct 2004
Ubicación: Tenosique Tabasco
Posts: 86
Poder: 20
koalasoft Va por buen camino
Cita:
Empezado por fjcg02 Ver Mensaje
Una pregunta...

el campo BOARD_ONT es de la tabla CTRLONT ?

Saludos
Asi es estimado !! es un campo de la Tabla CTRLONT de tipo INT [int(11)] de la BD Mysql.
Responder Con Cita
  #10  
Antiguo 31-01-2017
Avatar de fjcg02
[fjcg02] fjcg02 is offline
Miembro Premium
 
Registrado: dic 2003
Ubicación: Zamudio
Posts: 1.408
Poder: 22
fjcg02 Va camino a la fama
Hola, lo normal es asignar la sql y luego dar valor a los parámetros, es decir, después de hacer query.Sql.Add(), defines el valor del parámetro. Yo creo que no hace falta declararlo, solamente asignarle el valor.

Saludos
__________________
Cuando los grillos cantan, es que es de noche - viejo proverbio chino -
Responder Con Cita
  #11  
Antiguo 31-01-2017
bitbow bitbow is offline
Miembro
 
Registrado: jul 2006
Posts: 366
Poder: 18
bitbow Va camino a la fama
Revisa si tienes los parametros creados puesto que estas asignando el Query en runtime deberias de crear los parametros ya que no existen aun.

En las propiedades del TQuery te das cuenta en Parameters si tienes dados de alta alguno.

Saludos.
__________________
¡Ni como ayudarte Niño!!
bitbow
Responder Con Cita
  #12  
Antiguo 31-01-2017
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Tal y como respondi en DelphiAccess:

El componente internamente interpreta la sentencia SQL y crea automaticamente los parametros; no hace falta que invoques para nada al metodo Parameters.AddParameter

Osea por ejemplo, con un SQL asi:

Código Delphi [-]
  ADOQuery.SQL.Add(...)
  ADOQuery.SQL.Add(' WHERE Campo = :Param ');
  ADOQuery.Parameters.ParamByName('Param') --> devuelve el TParameter correspondiente

Se crea automaticamente un objeto TParameter con nombre o "identificador" 'Param'.

Si por algun motivo te interesa desactivar esto ultimo y encargarte vos mismo de crear los parametros, debes setear la propiedad ParamCheck a False

El problema son los parametros pero por ambiguedad; internamente la coleccion TParameters del TADOQuery va a tener dos parametros llamados igual y uno va a quedar sin un valor definido y por eso tiene conflicto de datos

Prueba de concepto (necesario que el ADOQuery tenga su propiedad Connection seteada a una conexion "valida")

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  Param: TParameter;
begin
  ADOQuery1.SQL.Text := ' SELECT * FROM Clientes WHERE Nombre = :Nombre ';
  Param := ADOQuery1.Parameters.AddParameter;
  Param.Name := 'Nombre';
  Param.DataType := TFieldType.ftInteger;
  ShowMessage(ADOQuery1.Parameters.Count.ToString); // imprime 2
  if ADOQuery1.Parameters.ParamByName('Nombre') <> Param then // evalua true
    ShowMessage('son distintos objetos');
end;
Responder Con Cita
  #13  
Antiguo 01-02-2017
koalasoft koalasoft is offline
Miembro
 
Registrado: oct 2004
Ubicación: Tenosique Tabasco
Posts: 86
Poder: 20
koalasoft Va por buen camino
Bueno no se si sea la forma mas elegante o teng consecuencia a futuro .. pero al menos de esta forma me funcionó..

Puse los valores en una variable ..

Código PHP:
Var   B,F,S,P,integer;
..
.
.
// Variables
B:= StrToInt(Edit1.Text);
F:= StrToInt(Edit2.Text);
S:= StrToInt(Edit3.Text);
P:= StrToInt(Edit4.Text);
O:= StrToInt(Edit5.Text); 
De alli aplique la consulta siguiente ...

Código PHP:
Close;
   
SQL.Clear;
   
SQL.Add('SELECT * FROM CTRLONT CTRL ');
   
SQL.Add('join CLIENTES CL on CTRL.FOLIO = CL.FOLIO ');
   
SQL.Add('join ONTs ONT on CTRL.FOLIO = ONT.Folio ');
   
SQL.Add('WHERE CTRL.BOARD_ONT = 'IntToStr(B));
   
SQL.Add(' AND CTRL.FRAME_ID = 'IntToStr(F));
   
SQL.Add(' AND CTRL.SLOT_ID = 'IntToStr(S));
   
SQL.Add(' AND CTRL.PORT_ID = '+  IntToStr(P));
   
SQL.Add(' AND CTRL.ONT_ID = '+  IntToStr(O));
   
Open
Y ahora si no me envió NINGUN mensaje de error y me ejecuto la búsqueda al menos como lo hacía antes.
Responder Con Cita
  #14  
Antiguo 01-02-2017
bitbow bitbow is offline
Miembro
 
Registrado: jul 2006
Posts: 366
Poder: 18
bitbow Va camino a la fama
No es la forma adecuada, puedes llegar a tener problemas con los tipos de datos o cadenas con comilla simple, lo ideal es usar los params ya que con ellos te evitas esos temas.

Revisando lo que comenta Agustin es correcto, al agregar a la setencia ":valor" el parametro es creado automaticamente, revisa si el prefijo de params esta como caracter ":" , en algunso caso viene como "@" (en algun componente lo llegue a ver) y la otra es el params check que se encuentr en false, por ultimo te recomendaria (si tu sentencia es fija y siempre usa los mismos parametros) setearla desde diseño y ahi podras ver si se crean los parametros y asignarle valores en diseño para pruebas.

Saludos.
__________________
¡Ni como ayudarte Niño!!
bitbow
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
conflicto entre aplicaciones zajoma Tablas planas 3 27-05-2008 18:48:58
Conflicto entre puertos jsanchez API de Windows 2 07-09-2007 01:37:17
Conflicto entre nospE y eagS marcoszorrilla La Taberna 3 09-01-2007 19:34:23
Query entre dos tablas de distintas databases tefots Firebird e Interbase 2 06-11-2006 16:28:29
Conflicto entre Query y Tabla filtrada Michael Varios 2 20-05-2004 22:37:43


La franja horaria es GMT +2. Ahora son las 10:22:21.


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