Numeros registros nuevos en la base de datos

[igamerpc]

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;
    //memo1.lines.add('Ha insertado nuevo registro');
   

   Except

   End;
   MOD.Tabla1.Refresh;

end;

Donde lo comentario

Código Delphi [-]
//memo1.lines.add('Ha insertado nuevo registro');

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.

[Neftali [Germán.Estévez]]

Empezado por ivanmaes

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.

Por lo que he entendido quieres un mensaje final con la líneas insertadas.
El problema es que en tu código el mensaje está dentro del procedimiento Insertar_Registro_Tabla_1.


Coloca ese mensaje al finalizar el While y añade un contador para saber cuantos has insertado.
Algo Así:

Código Delphi [-]
var
  cont:integer;
begin
  cont := 0;
  While Not MOD.Tabla2.Eof do Begin        
     cod1:=MOD.Tabla2.fieldbyName('CODIGO').Value;    
     ...    
     Insertar_Registro_Tabla_1('archivo', cod1, nom, Sender);    
     ...
     Inc(cont);
  end;
  // sacar el mensaje de resumen
  memo1.lines.add(Format('Se han insertado %d registros',[cont]));
...

[[kuan-yiu]]

Mueve esa escritura al proceso superior.
Cambia esa escritura en 'memo1' dentro de 'Insertar_Registro_Tabla_1' por otra después de la llamada a ese proceso.

Código Delphi [-]
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;
memo1.lines.add('Número de registros insertados: '+ IntToStr(MOD.Tabla2.RecordCount));

Así suponiendo que insertes la tabla entera.

[igamerpc]

Vale voy a probar. Muchas gracias. Eso lo que buscaba solucion.

[igamerpc]

Las dos mensajes uno de Inc[cont] y el Recordcount me salio resultado numero filas y no de numeros insertados. Hay 100 registros, inserto 10 nuevos y salia 110 registros.

[[kuan-yiu]]

Empezado por ivanmaes

Las dos mensajes uno de Inc[cont] y el Recordcount me salio resultado numero filas y no de numeros insertados. Hay 100 registros, inserto 10 nuevos y salia 110 registros.

Claro, ya dije que Recordcount indica el número total de filas de una tabla.
Si solo recorres tabla2 a partir de un punto entonces debes utilizar un contador tal como indica Neftali e incrementar el contador en el lugar donde se produzca la grabación efectiva para evitar fallos en el recuento. Puedes pasarlo como parámetro por referencia.

[igamerpc]

Eso es verdad. Muchas gracias todo de eso. Lo intento otra forma para conseguir.

[engranaje]

Es posible que falte información para darte una solución, como la versión de delphi con la que estas trabajando, pero te recomiendo que mires la propiedad RowsAffected. deduzco que MOD.MyCommand1 es un tMyCommand y debería disponer esta property.

Propongo que pruebes a modificar tu código de la siguiente manera y compruebes el comportamiento de estas modificaciones.

Código Delphi [-]

procedure TForm1.Button2Click(Sender: TObject);
var   
   archivo: String;
   cod1  : Cardinal;   
   nom: string;
  iTotalRegistrosAfectados:integer;
begin 
 iTotalRegistrosAfectados :=0; 
 While Not MOD.Tabla2.Eof do
 Begin         
    cod1:=MOD.Tabla2.fieldbyName('CODIGO').Value;
    nom:=MOD.Tabla2.fieldbyName('NOMBRE').Value;         
    iTotalRegistrosAfectados := iTotalRegistrosAfectados + Insertar_Registro_Tabla_1('archivo', cod1, nom, Sender);
    CFG.MOD.Tabla2.Next;    
 end; 
 memo1.lines.add('Número de registros insertados: '+ IntToStr(iTotalRegistrosAfectados )); 
end;

function TForm1.Insertar_Registro_Tabla_1(NTabla:String; cod1:cardinal; nom:string; Sender: TObject):integer;
 var 
   iRegistrosAfectados:integer;
 begin
    iRegistrosAfectados := 0;  

    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;     
       iRegistrosAfectados := MOD.MyCommand1.RowsAffected;
    Except     
    End;    
    
    MOD.Tabla1.Refresh;    
    result := iRegistrosAfectados ; 
end;

[igamerpc]

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;
memo1.lines.add('Número de registros insertados: '+ IntToStr(MOD.Tabla2.RecordCount));  //Me sale numero filas y no numero insertados.
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;

Al igual Inc(cont) tb me sale mismo numero filas.