Disculpa falta explicar mas claro.
T muestro:
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
var
archivo: String;
cod1 : Cardinal;
nom: string;
begin
While Not MOD.Tabla2.Eof do
Begin
cod1:=MOD.Tabla2.fieldbyName('CODIGO').Value;
nom:=MOD.Tabla2.fieldbyName('NOMBRE').Value;
Insertar_Registro_Tabla_1('archivo', cod1, nom, Sender);
CFG.MOD.Tabla2.Next;
end;
end;
procedure TForm1.Insertar_Registro_Tabla_1(NTabla:String; cod1:cardinal; nom:string; Sender: TObject);
begin
If MOD.Conexion.Connected =False Then
MOD.Conexion.Connected:=True;
MOD.Tabla1.TableName:=NTabla;
MOD.Tabla1.Active:=True;
MOD.MyCommand1.SQL.Clear;
MOD.MyCommand1.sql.Add('INSERT INTO '+NTabla+'(CODIGO,NOMBRE) VALUES(:Codigo,:Nombre)');
MOD.MyCommand1.ParamByName('CODIGO').Value:=cod1;
MOD.MyCommand1.ParamByName('NOMBRE').Value:=nom;
Try
MOD.MyCommand1.Execute;
Except
End;
MOD.Tabla1.Refresh;
end;
Donde lo comentario
el resultado seria muchas lineas insertado insertado...
Quiero saber solo una linea ejemplo "Ha insertado 10 nuevos registros" solo una linea.
Aver si esto explico mejor.
NOTA: Edito tu código
para añadir TAG's y que sea más lejible. Te animo también a revisar
la guía de estilo si no lo has hecho.