2,497
社区成员
发帖
与我相关
我的任务
分享
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;
ADOQuery1.SQL.Text:='SELECT * into 英语词库1 from [Sheet1$] in "e:\2008英语大纲.xls" "EXCEL 8.0;"';
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$]';
end;