Mensaje Conflicto entre tablas, Migración Query a ADOQuery

[koalasoft]

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'); 


[aposi]

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

[koalasoft]

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.

[aposi]

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 ');

[koalasoft]

Empezado por aposi

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.

[TOPX]

Buen día.

... información de interés ~ Using parameters with ADO Query (mysql/MyConnector) - StackOverflow
-