我准备把存放在excel中的英语词库导入到access中,用下列语句一直有问题,谁帮我看看
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
begin
//str:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\2008英语大纲.xls;Extended Properties="Excel 8.0;HDR=YES; IMEX=1";Persist Security Info=False';
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\数据库\英语词汇.mdb';
ADOConnection1.Connected:=true;
ADOQuery1.Close;
//ADOQuery1.SQL.Text:='select * from [Sheet1$]';
ADOQuery1.SQL.Text:='select * into 英语词库 from [Microsoft.Jet.OLEDB.4.0;Data Source=e:\2008英语大纲.xls;Extended Properties="Excel 8.0;HDR=YES; IMEX=1";Persist Security Info=False].[Sheet1$]';
//ADOQuery1.SQL.Text:='select * into 英语词库 from [excel 8.0;database=e:\2008英语大纲.xls].[Sheet1$]';
ADOQuery1.ExecSQL;
//ADOQuery1.First;
end;access数据库名称为:
G:\数据库\英语词汇.mdb
里面的数据表为英语词库excel文件名为:
e:\2008英语大纲.xls
数据存放在Sheet1工作表中
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
begin
//str:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\2008英语大纲.xls;Extended Properties="Excel 8.0;HDR=YES; IMEX=1";Persist Security Info=False';
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\数据库\英语词汇.mdb';
ADOConnection1.Connected:=true;
ADOQuery1.Close;
//ADOQuery1.SQL.Text:='select * from [Sheet1$]';
ADOQuery1.SQL.Text:='select * into 英语词库 from [Microsoft.Jet.OLEDB.4.0;Data Source=e:\2008英语大纲.xls;Extended Properties="Excel 8.0;HDR=YES; IMEX=1";Persist Security Info=False].[Sheet1$]';
//ADOQuery1.SQL.Text:='select * into 英语词库 from [excel 8.0;database=e:\2008英语大纲.xls].[Sheet1$]';
ADOQuery1.ExecSQL;
//ADOQuery1.First;
end;access数据库名称为:
G:\数据库\英语词汇.mdb
里面的数据表为英语词库excel文件名为:
e:\2008英语大纲.xls
数据存放在Sheet1工作表中
end;
ADOQuery1.SQL.Text:='SELECT * into 英语词库1 from [Sheet1$] in "e:\2008英语大纲.xls" "EXCEL 8.0;"';上面这句好了,谢谢goodhj