insertar registro de otra tabla diferentes base de datos

[igamerpc]

Buenos dias, como insertar registro de otra tabla diferentes base de datos.

Código Delphi [-]
    CFG.MyQuery1.SQL.Clear;
    CFG.MyQuery1.SQL.Add('INSERT INTO '+bbdd+'.'+tabla2+');
    CFG.MyQuery1.SQL.Add('SELECT * FROM '+tabla1+' where CODIGO:=codigo);

Me parece eso no funciona.

[Casimiro Notevi]

Conectas a DB1
Lees registro de DB1
Conectas a DB2
Guardas registro en DB2
Cierras DB2
Cierras DB1

[igamerpc]

Ese es mas facil de hacer. Gracias. Pense funcionar como SQL pero no salio.

Lo unico tu metodo es facilisimo.

[[movorack]]

Hacer la inserción como quieres también es posible y es hasta mas rápida. la sintaxis depende de cada motor.

MSSQL

Código SQL [-]
INSERT INTO DB2.DBO.TABLE1
SELECT * FROM TABLE1 --Acá está apuntando a la DB conectada actualmente

para esto, el usuario debe tener permisos en ambas DB

[[oscarac]]

Empezado por igamerpc

Buenos dias, como insertar registro de otra tabla diferentes base de datos.

Código Delphi [-]
    CFG.MyQuery1.SQL.Clear;
    CFG.MyQuery1.SQL.Add('INSERT INTO '+bbdd+'.'+tabla2+');
    CFG.MyQuery1.SQL.Add('SELECT * FROM '+tabla1+' where CODIGO:=codigo);

Me parece eso no funciona.

a que te refieres con tablas planas?
a tablas libres?

o que motor de base de datos estas usando?

si usas algun motor el error podria estar en que en el segundo query no hacer referencia a la base de datos donde se aloja la tabla1

('SELECT * FROM [servidor.database.dbo.]'+tabla1+' where CODIGO:=codigo)

[igamerpc]

Código Delphi [-]
 CFG.MyTable2.Active:=True;
 CFG.MyTable2.Append;
 CFG.MyTable2.FieldByName('IDCODIGO').Value:=CFG.MyTable1.FieldByName('IDCODIGO').Value;
 CFG.MyTable2.FieldByName('NOMBRE').Value:= CFG.MyTable1.FieldByName('NOMBRE').Value;
 CFG.MyTable2.Post;

A ver ese dicen que son mas lento que Insert. El problema que sin pongo insert me da mas error y tampoco query.

[igamerpc]

funciona insert, primero leer tabla1, y luego insertar tabla2.

[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