Numeros registros nuevos en la base de datos

[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;

[engranaje]

En mi mensaje anterior cometí el error de no comprobar la vista previa y el código delphi no contenría los saltos de línea. El resultado fué que las líneas fueron tan largas que no tenía visible en el navegador el "botón" para editar, así que intenté solucionarlo en este segundo mensaje. Pero al darme cuenta de que la solución era tan sencilla como ampliar la ventana del navegador (bastante, eso es cierto), he podido editarlo.

Este mensaje ahora carece de sentido y solicito si es posible que sea borrado por algún administrador.

Gracias y disculpas.

[igamerpc]

Empezado por engranaje

En mi mensaje anterior cometí el error de no comprobar la vista previa y el código delphi no contenría los saltos de línea. El resultado fué que las líneas fueron tan largas que no tenía visible en el navegador el "botón" para editar, así que intenté solucionarlo en este segundo mensaje. Pero al darme cuenta de que la solución era tan sencilla como ampliar la ventana del navegador (bastante, eso es cierto), he podido editarlo.

Este mensaje ahora carece de sentido y solicito si es posible que sea borrado por algún administrador.

Gracias y disculpas.

Ya me di cuenta. Lo comprobe pero no funciono. Es raro lo de sumar con la llamada de procedure. Ya encontrare algun dia una solucion de eso.



Y de nada.

[ecfisa]

Hola.

Empezado por igamerpc

Ya me di cuenta. Lo comprobe pero no funciono. Es raro lo de sumar con la llamada de procedure. Ya encontrare algun dia una solucion de eso.

No tanto, la idea es tener un acumulador que se pone a cero al iniciar el ingreso en lote y se incrementa en cada ingreso, al finalizar con los ingresos se muestra el valor del contador.

El acumulador/contador lo podes declarar como: Variable privada al formulario, global a la unidad o pasar una variable por referencia al procedimiento Insertar_Registro_Tabla_1.

Ejemplo simplificado de un caso mixto (variable privada al form y parámetro por referencia):

Código Delphi [-]
...
type
  TForm1 = class(TForm)
    FDConnection1: TFDConnection;
    FDQuery1: TFDQuery;
    FDQuery2: TFDQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    btnInsert: TButton;
    procedure btnInsertClick(Sender: TObject);
  private
    { Private declarations }
    FCountRec: Integer;
    procedure InsertarRegistro(aTable: string; const codigo: Integer;
      const nombre: string; var aCont: Integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation  {$R *.dfm}

procedure TForm1.InsertarRegistro(aTable: string; const codigo: Integer;
  const nombre: string; var aCont: Integer);
begin
  FDQuery2.Close;
  FDQuery2.SQL.Text := 'INSERT INTO ' + aTable +
    '(CODIGO, NOMBRE) VALUES(:COD, :NOM)';
  FDQuery2.ParamByName('COD').AsInteger := codigo;
  FDQuery2.ParamByName('NOM').AsString  := nombre;
  try
    FDQuery2.ExecSQL;
    Inc(aCont);
  except on E: Exception do
     Application.ShowException(E);
  end;
end;

procedure TForm1.btnInsertClick(Sender: TObject);
begin
  FCountRec := 0;  // Se inicializa el contador en cero
  while not FDQuery1.Eof do
  begin
    InsertarRegistro('TABLA2',
                      FDQuery1.FieldByName('CODIGO').AsInteger,
                      FDQuery1.FieldByName('NOMBRE').AsString,
                      FCountRec {<- se incrementa si todo ok } );
    FDQuery1.Next;
  end;
  ShowMessageFmt('Se insertaron %d registros',[FCountRec]); // Mostrar registros ingresados
end;

Saludos

[igamerpc]

Me funciono numero registro añadidos. Muchas gracias por la solucion, ecfisa. Esta forma igual la tuya pero algunos pequeños cambios. Y me funciono bien.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  archivo: String;
  cod1  : Cardinal;
  nom: string;
begin
FCountRec:=0;
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, FCountRec, Sender);
        CFG.MOD.Tabla2.Next;
   end;
memo1.lines.add(format('Se insertaron %d registros',[FCountRec]));
end;

procedure TForm1.Insertar_Registro_Tabla_1(NTabla:String; cod1:cardinal; nom:string; var aCont: Integer; 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;
    Inc(aCont);

   Except

End;
   MOD.Tabla1.Refresh;
end;

[ecfisa]

Hola.

Empezado por igamerpc

Me funciono numero registro añadidos. Muchas gracias por la solucion, ecfisa. Esta forma igual la tuya pero algunos pequeños cambios. Y me funciono bien.
...

Me alegra mucho que te funcione !

Saludos