Buenas noches, me han pedido algo en el trabajo y es que esporte unos datos de excel a una tabla para generar un reporte X, ya hice la parte de hala la informacion, las puse un listview, lo que me anda faltando es como puedo pasar esos datos del listview a una tabla o una base de datos para despues poder consultar. aqui dejo el codigo que use.
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Excel.Workbooks.Open(ExtractFilePath(Application.ExeName)+ ExtractFileName(OpenDialog1.FileName),
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,0 );
Hoja := Excel.Worksheets.Item[1] as _WorkSheet;
i := 12;
si := IntToStr( i );
repeat
with ListView1.Items.Add do
begin
SubItems.Add( Hoja.Range['B'+si,'B'+si].value2 ); SubItems.Add( Hoja.Range['C'+si,'C'+si].Value2 ); SubItems.Add( Hoja.Range['D'+si,'D'+si].Value2 ); SubItems.Add( Hoja.Range['E'+si,'E'+si].Value2 ); SubItems.Add( Hoja.Range['F'+si,'F'+si].Value2 );
SubItems.Add( Hoja.Range['G'+si,'G'+si].Value2 );
SubItems.Add( Hoja.Range['H'+si,'H'+si].Value2 );
SubItems.Add( Hoja.Range['I'+si,'I'+si].Value2 );
SubItems.Add( Hoja.Range['J'+si,'J'+si].Value2 );
SubItems.Add( Hoja.Range['K'+si,'K'+si].Value2 );
SubItems.Add( Hoja.Range['L'+si,'L'+si].Value2 );
SubItems.Add( Hoja.Range['M'+si,'M'+si].Value2 );
end;
Inc( i );
si := IntToStr( i );
until ( VarType( Excel.Range['B'+si,'B'+si].Value2) = VarEmpty );
Excel.Workbooks.Close( 0 );
end;
gracias de ante mano.