作者?: chenshaizi
标题?: 异构数据库之间的导入导出示例
http://www.delphibbs.com/keylife/iblog_show.asp?xid=24641
procedure TForm1.btn_EXCEL2MSSQLClick(Sender: TObject);
begin
//EXCEL2MSSQL ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=KCSOFT58;Persist Security Info=True;User ID=SA;Initial Catalog=KCSOFT_HIS;Data Source=CHEN';
ADOConnection1.Execute('SELECT * into [abc] FROM OpenDataSource( '
+QuotedStr('Microsoft.Jet.OLEDB.4.0')+','
+QuotedStr('Data Source="G:/mysmallexe/excel2sql/yp.xls";Extended Properties=excel 8.0')+')...[Abc]');
end;
该例中的SQL语句稍加改造,用insert 表(字段列表) select 字段列表 from OpenDataSource()