異構數據庫之間的導入導出
//MSSQL2Excel
ADOConnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\mysmallexe\Excel2sql\yp.xls;'
+'Extended PropertIEs=Excel 8.0';
ADOConnection1.Execute('select * into [Abc] from drug_yk IN [ODBC] [ODBC;Driver=SQL
Server;UID=sa;PWD=kcsoft58;Server=127.0.0.1;DataBase=kcsoft_his]');
//把一個MSSQL的數據庫表及數據導出到excel中,abc為Excel中不存在的表名，drug_yk為MSSQL裡的表, sa為
用戶, kcsoft58為密碼 , 127.0.0.1為服務大地址 ，kcsoft_his是數據庫名稱
ADOConnection1.Execute('insert into [abc] select * from drug_yk in [ODBC] [ODBC;Driver=SQL
Server;UID=sa;PWD=kcsoft58;Server=127.0.0.1;DataBase=kcsoft_his]');
//把一個MSSQL的數據庫表的記錄增加到到Excel中，執行以後相當於兩倍量的數據，一次是導入，一次是
insert
//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]');
//MSSQL2VFP
ADOConnection2.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\mysmallexe\Excel2sql;'
+'Extended PropertIEs=DBase 5.0';
ADOConnection2.Execute('select * into Abc.dbf from drug_yk IN [ODBC] [ODBC;Driver=SQL
Server;UID=sa;PWD=kcsoft58;Server=127.0.0.1;DataBase=kcsoft_his]');
//把一個MSSQL的數據庫表及數據導出到VFP中,Abc.dbf 為VFP中不存在的表名，drug_yk為MSSQL裡的表, sa為
用戶, kcsoft58為密碼 , 127.0.0.1為服務大地址 ，kcsoft_his是數據庫名稱
//VFP2MSSQL
ADOConnection2.ConnectionString:='Provider=SQLOLEDB.1;PassWord=KCSOFT58;Persist Security
