异构数据库之间的导入导出示例，abc为表,包含以下导入与导出
MSSQL2EXCEL EXCEL2MSSQL  MSSQL2VFP VFP2MSSQL
MSSQL2access access2MSSQL  excel2access access2excel
，txt2MSSQL，MSSQL2txt
实现部分

procedure TForm1.btn_MSSQL2EXCELClick(Sender: TObject);
begin
//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
end;


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;


procedure TForm1.btn_MSSQL2VFPClick(Sender: TObject);
begin
//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是数据库名称

end;


procedure TForm1.btn_VFP2MSSQLClick(Sender: TObject);
begin
//VFP2MSSQL
   ADOConnection2.ConnectionString:=''Provider=SQLOLEDB.1;Password=KCSOFT58;Persist Security Info=True;User ID=SA;Initial Catalog=KCSOFT_HIS;Data Source=CHEN'';
   ADOConnection2.Execute(''SELECT * into [abc] FROM OpenDataSource( ''
   +QuotedStr(''Microsoft.Jet.OLEDB.4.0'')+'',''
   +QuotedStr(''Data Source="G:\mysmallexe\excel2sql";Extended Properties=dBase 5.0'')+'')[Abc]'');
end;



procedure TForm1.btn_MSSQL2accessClick(Sender: TObject);
begin
 //MSSQL2access
     ADOConnection2.ConnectionString:=
''Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\mysmallexe\excel2sql\Server.MDB;''
+''Persist Security Info=F