Llevar desde Excel a una BD paradox

[ozegarra]

Buenas estuve chekeando este hilo para saber como pasar una tabla excel a firebird.
He seguido todos los pasos pero no me graba los datos en mi tabla firebird, quiza me falta algo (soy nuevo en esto asi que perdonen mi ingenuidad). Les paso las lineas de codigo que tengo.

Código Delphi [-]
AdoDataSet1.Active :=True;
  while not AdoDataSet1.Eof do
  begin
    Table_Importado.Active := True;
    Table_Importado.Append;
    Table_Importado.Fields[0].Value := AdoDataSet1.Fields[0].Value;
    Table_Importado.Fields[1].Value := AdoDataSet1.Fields[1].Value;
    Table_Importado.Fields[2].Value := AdoDataSet1.Fields[2].Value;
    Table_Importado.Active := False;
    AdoDataSet1.Next;
  end;

esto no me marca ningun error, entra al bucle y recorreo todo el excel pero no me graba nada, que es lo que me falta?.

Gracias de antemano por su ayuda.

[keyboy]

Prueba así:

Código Delphi [-]
AdoDataSet1.Active :=True;
Table_Importado.Active := True;

while not AdoDataSet1.Eof do
begin
  Table_Importado.Append;

  Table_Importado.Fields[0].Value := AdoDataSet1.Fields[0].Value;
  Table_Importado.Fields[1].Value := AdoDataSet1.Fields[1].Value;
  Table_Importado.Fields[2].Value := AdoDataSet1.Fields[2].Value;

  AdoDataSet1.Next;
end;

Table_Importado.Active := False;

No es necesario activar el AdoDataset en cada vuelta. Y al desactivarlo, no le das tiempo a que se guarden los datos.

Bye

[DarkSide]

Como te dijo keyboy, no es necesario activar y desactivar la tabla en cada ciclo de ingreso, lo que si debes hacer es agregar el metodo "post", para forzar que grabe los datos, asi te deberia funcionar.

Código Delphi [-]
  Table_Importado.Active := True;
  AdoDataSet1.Active :=True;

  while not AdoDataSet1.Eof do
  begin
    Table_Importado.Append;
    Table_Importado.Fields[0].Value := AdoDataSet1.Fields[0].Value;
    Table_Importado.Fields[1].Value := AdoDataSet1.Fields[1].Value;
    Table_Importado.Fields[2].Value := AdoDataSet1.Fields[2].Value;

    Table_Importado.Post;
    
    AdoDataSet1.Next;
  end;
  
  Table_Importado.Active := False;
  AdoDataSet1.Active :=False;

Saludos.

[keyboy]

Yo ttiendo a poner ese post que indicas, pero en realidad es innecesario. Un dataset hace un post automático cada vez que nos movemos de registro, de manera que en cada vuelta se guarda el registro de la vuelta anterior.

Bye

[ozegarra]

Gracias por las respuestas, cambie un poco la logica para poder ejecutar un procedimiento almacenado que haga la insercion ya que no era tan simple como grabar una tabla directa. Ya pude realizar la tarea que requeria que era grabar dos tablas con ese excel.

De todas maneras probaré lo mencionado para cuando lo requiera, cada dia se aprende mas asi que muchas gracias por el apoyo y lo anotare en el libro...

Saludos
Oscar