最近接了个小的项目,涉及到将几个 excel文件的内容导入到数据库中,遇到些地方 ,但终究问题解决,将解决办法写出来,免得后人遇到此类问题浪费时间。
uses里面添加excel97,excel2000
with DM1.ADOQuery2 do try
if OpenDialog1.Execute then begin
RzEdit1.Text := OpenDialog1.FileName;
end;
Close;
SQL.Clear;
SQL.Add('insert into temp1 select * from OpenDataSource(''Microsoft.Jet.OLEDB.4.0'',''Data Source="'+RzEdit1.Text+'";Extended Properties=Excel 8.0;Persist Security Info=False'')...[Sheet1$]');
ExecSQL;
except
Messagebox(handle,'内容插失败!','错误',MB_OK+MB_ICONERROR);
Exit;
end;
query的paramcheck属性设为false否则有错误。
其实很简单 ,但sql部分始终写的不正确导致错误,网上很多的例子也未写的很清楚,这里一起研究探讨.