请问使用delphi程序如何将excel表中的的内容添加到Access数据库表中相应的字段中去，急急急(100分，不够再加加加)

Question

请问使用delphi程序如何将excel表中的的内容添加到Access数据库表中相应的字段中去，急急急(100分，不够再加加加)

Answer 1

不是很明白楼主的意思。
我的理解是，你用一个循环，从EXCEL中读出数据，然后再插入到ACCESS里不就可以了？

Answer 2

用createoleobject('excel.application')建立与指定excel的连接，然后使用循环依次读出并添加到数据库中，对excel的操作可以查找帮助

Answer 3

procedure Tform1.btnClick(Sender: TObject);
var
tName: TStrings;
begin
if not FileExists(ExtractFilePath(Application.ExeName) + 'store.xls') then Exit;
tName := TStringList.Create;
acStore.GetTableNames(tName, false);
if tName.IndexOf('sExcel') >= 0 then
acStore.Execute('drop table sExcel');
acStore.Execute('select * into sExcel from [Excel 8.0; Database=' + ExtractFilePath(Application.ExeName)+ 'store.xls' + '].[sheet1$]');
MessageBox(self.Handle, 'Excel已成功导入表sExcel', '提示', mb_IconInformation + mb_Ok);
tName.Free;
end;

Answer 4

通过SQL2000里的导入、导出数据来转。