Numeros registros nuevos en la base de datos

[igamerpc]

Pasar a otra tabla, poner mensaje los numeros registros insertado nuevo.
El codigo recordcount es correcto?

[ecfisa]

Hola.

Perdón pero no entiendo tu consulta, por favor expláyate un poco mas explicando la situación. Es decir, que es lo que debes pasar a otra tabla, que mensajes deseas poner. etc.

Por último, RecordCount no es un código, es una propiedad de la clase TDataSet.

Saludos

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

Empezado por ivanmaes

Pasar a otra tabla, poner mensaje los numeros registros insertado nuevo.
El codigo recordcount es correcto?

Hola y bienvenido a los foros.
Al igual que le pasa a [ecfisa] yo tampoco te entiendo.


Sea porque tienes problemas con el idioma o porque eres nuevo, en cualquier caso intenta explicar mejor lo que necesitas y da detalles como la Base de Datos a la que te estás refiriendo.
Por último y lo más importante, intenta ser concreto en la pregunta.
De otra forma es imposible ayudarte.

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

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