我想将数据从Excel导入到Delphi 7上的Paradox数据库中。
如何使用Delphi做到这一点?
答案 0 :(得分:5)
好吧,如果您将问题标记为Delphi 7,我假设您有BDE。这将使您能够在Delphi中完成整个过程。
您可以修改和使用此未经测试的代码(您需要添加异常处理):
procedure TForm1.Button2Click(Sender: TObject);
var
Cols: integer;
Rows: integer;
IntCellValue: integer;
Excel, XLSheet: Variant;
failure: Integer;
begin
failure:=0;
try
Excel:=CreateOleObject('Excel.Application');
except
failure:=1;
end;
if failure = 0 then
begin
Excel.Visible:=False;
Excel.WorkBooks.Open(<Excell_Filename>);
XLSheet := Excel.Worksheets[1];
Cols := XLSheet.UsedRange.Columns.Count;
Rows := XLSheet.UsedRange.Rows.Count;
// Value of the 1st Cell
IntCellValue:=Excel.Cells[1, 1].Value;
// Iterate Cals/Rows to read the data section in your worksheet
// and you can write it in Paradox using the BDE by iterating all cells
// somthing like this pseudo code:
try
Query := TQuery.Create(nil)
Query .Databasename := PdxDBName; // must be configured in the BDE
while Rows > 0
begin
while Cols > 0
begin
IntCellValue:=Excel.Cells[Cols,Rows].Value;
Query .SQL.text := // SQLStmt including the IntCellValue
ExecSQL;
dec(Cols);
end;
Cols := XLSheet.UsedRange.Columns.Count;
Dec(Rows);
end;
finally
Query.Free;
end;
Excel.Workbooks.Close;
Excel.Quit;
Excel:=Unassigned;
end;
end;
答案 1 :(得分:4)
然后从Excel导入CSV然后将CSV导入Paradox DB? 您也可以尝试从Excel导出XML,然后以编程方式将XML加载到Padadox DB中。
答案 2 :(得分:2)
此工具SMImport表示可以执行此操作。虽然他们想要50美元,但你可以下载免费试用版。
答案 3 :(得分:2)
使用Delphi 7中的OLEDB Provider和ADO组件来实现这一目标。 它应该很简单,您可以通过SQL查询使用Excel查询。
使用TADO组件获取数据,然后使用TQuery之类的BDE组件将数据导入Paradox表。