[igamerpc]

Para pasar de mysql a otro mysql de otra base de datos, para que no se repita revisar. Solo insertan los nuevos.
La misma estructura pero diferente base de datos.

Código Delphi [-]
procedure TForm1.Insertar_Pueblo(Tabla_Pueblo:string; codigo:integer; codigonombre:string; pueblo:string; numeroHab:integer; Sender:TObject);
begin

  if MOD.MyConnection2.Connected=FALSE then
  MOD.MyConnection2.Connected:=TRUE;

  if MOD.MyConnection1.Connected=FALSE then
  MOD.MyConnection1.Connected:=TRUE; 

  MOD.MyTable2.TableName:=Tabla_Pueblo;
  MOD.MyTable2.Active:=True;

  MOD.MyTable1.TableName:=Tabla_Pueblo;
  MOD.MyTable1.Active:=True;

  MOD.MyQuery1.SQL.Clear;
  MOD.MyQuery1.SQL.Add('SELECT * FROM '+Tabla_Pueblo+'');
  MOD.MyQuery1.Active:=True;

  If MOD.MyQuery1.RecordCount = 0 then
  Begin

    MOD.MyCommand2.SQL.Clear;
    MOD.MyCommand2.SQL.Add('INSERT INTO '+Tabla_Pueblo+'(codigo, codigonombre, pueblo, numeroHab) VALUES(:codigo, :codigonombre, ueblo, :numeroHab)');
    MOD.MyCommand2.ParamByName('codigo').Value:=codigo;
    MOD.MyCommand2.ParamByName('codigonombre').Value:=codigonombre;
    MOD.MyCommand2.ParamByName('pueblo').Value:=pueblo;
    MOD.MyCommand2.ParamByName('numeroHab').Value:=numeroHab;

    Try
      MOD.MyCommand2.Execute;

    Except

    end;
  end;
  MOD.MyTable2.Active:=False;
  
end;

No insertan, sin select, se insertan pero revisar volver de principio. Tengo 600 registro