database - reciente - convertir base de datos access 2010 a 2013

Cómo importar un archivo de Excel en la base de datos de Access, usando Delphi

Question

Estoy escribiendo una aplicación de base de datos, usando Delphi y necesito importar datos en una hoja de Excel y guardarlos en una base de datos de acceso. No tengo idea de cómo hacer esto, qué componentes usar o si es posible, ¿pueden ayudarme?

Answer 1

Tienes varias opciones, prueba uno de estos

1) usando la función DoCmd.TransferSpreadsheet , este método es más simple pero no muy flexible.

{$APPTYPE CONSOLE}
{$R *.res}
uses
SysUtils,
ActiveX,
ComObj;
procedure ImportDataAccess(const AccessDb, TableName, ExcelFileName:String);
Const
acQuitSaveAll = $00000001;
acImport = $00000000;
acSpreadsheetTypeExcel9 = $00000008;
acSpreadsheetTypeExcel12 = $00000009;
var
LAccess : OleVariant;
begin
//create the COM Object
LAccess := CreateOleObject(''Access.Application'');
//open the access database
LAccess.OpenCurrentDatabase(AccessDb);//if the access database doesn''t exist use the NewCurrentDatabase method instead.
//import the data
LAccess.DoCmd.TransferSpreadsheet( acImport, acSpreadsheetTypeExcel9, TableName, ExcelFileName, True);
LAccess.CloseCurrentDatabase;
LAccess.Quit(1);
end;
begin
try
CoInitialize(nil);
try
ImportDataAccess(''C:/Data/Database1.accdb'',''Sales'',''C:/Data/Sales.xlsx'');
Writeln(''Done'');
finally
CoUninitialize;
end;
except
on E:EOleException do
Writeln(Format(''EOleException %s %x'', [E.Message,E.ErrorCode]));
on E:Exception do
Writeln(E.Classname, '':'', E.Message);
end;
Writeln(''Press Enter to exit'');
Readln;
end.

2) utilizando los componentes de ado, de una manera más flexible.

{$APPTYPE CONSOLE}
{$R *.res}
uses
Data.DB,
Data.Win.ADODB,
SysUtils,
ActiveX,
ComObj;
procedure ImportDataADO(const AccessDb, TableName, ExcelFileName:String);
var
LAdoQueryExcel : TADOQuery;
LADOAccesCmd : TADOCommand;
begin
LAdoQueryExcel:=TADOQuery.Create(nil);
LADOAccesCmd:=TADOCommand.Create(nil);
try
//set the connection string for access
LADOAccesCmd.ConnectionString:=Format(''Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;'',[AccessDb]);
LADOAccesCmd.Parameters.Clear;
LADOAccesCmd.CommandText:=''INSERT INTO Sales (id,name) VALUES (:id,:name)'';
LADOAccesCmd.ParamCheck:=False;
//set the connection string for excel
LAdoQueryExcel.ConnectionString:=Format(''Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;Extended Properties="Excel 12.0 Xml;HDR=YES;IMEX=1"'',[ExcelFileName]);
LAdoQueryExcel.SQL.Add(''SELECT * FROM [Sheet1$]'');
LAdoQueryExcel.Open;
while not LAdoQueryExcel.eof do
begin
LADOAccesCmd.Parameters.ParamByName(''id'').Value := LAdoQueryExcel.FieldByname(''id'').AsInteger;
LADOAccesCmd.Parameters.ParamByName(''name'').Value := LAdoQueryExcel.FieldByname(''name'').AsString;
LADOAccesCmd.Execute;
LAdoQueryExcel.Next;
end;
finally
LAdoQueryExcel.Free;
LADOAccesCmd.Free;
end;
end;
begin
try
CoInitialize(nil);
try
ImportDataADO(''C:/Datos/Database1.accdb'',''Sales'',''C:/Datos/Sales.xlsx'');
Writeln(''Done'');
finally
CoUninitialize;
end;
except
on E:EOleException do
Writeln(Format(''EOleException %s %x'', [E.Message,E.ErrorCode]));
on E:Exception do
Writeln(E.Classname, '':'', E.Message);
end;
Writeln(''Press Enter to exit'');
Readln;
end.