alse;Jet OLEDB:Database Password=happynewyear'';
ADOConnection2.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]'');

end;

procedure TForm1.btn_access2MSSQLClick(Sender: TObject);
begin
//access2MSSQL
  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\Server.MDB";Jet OLEDB:Database Password=happynewyear'')+'')[Abc]'');

end;

procedure TForm1.btn_excel2accessClick(Sender: TObject);
begin
//excel2access
    ADOConnection2.ConnectionString:=
''Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\mysmallexe\excel2sql\Server.MDB;''
+''Persist Security Info=False;Jet OLEDB:Database Password=happynewyear'';
ADOConnection2.Execute(''SELECT * into [abc] FROM [excel 8.0;database=G:\mysmallexe\excel2sql\yp.xls].[abc$]'');
end;

procedure TForm1.btn_access2excelClick(Sender: TObject);
begin
//access2excel
   ADOConnection2.ConnectionString:=
''Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\mysmallexe\excel2sql\yp.xls;''
+''Extended Properties=excel 8.0'';
ADOConnection2.Execute(''SELECT * into abc  from [G:\mysmallexe\excel2sql\Server.MDB;pwd=happynewyear].abc'');

end;

补充：
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
//MSSQL2txt
 ADOConnection2.ConnectionString:=
''Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\mysmallexe\excel2sql;''
+''Extended Properties=text'';
ADOConnection2.Execute(''select * into Abc#txt from drug_yk IN [ODBC] [ODBC;Driver=SQL Server;UID=sa;PWD=kcsoft58;Server=127.0.0.1;DataBase=kcsoft_his]'');

end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
//txt2MSSQL
   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=text'')+'')[Abc#txt]'');
end;
txt导入SQLServer
select * from OpenRowset(''MSDASQL'', ''Driver={Microsoft Text Driver (*.txt; *.csv)};
DefaultDir=c:\temp;'',''select * from aaaa.txt'')

//access2access
ADOConnection2.ConnectionString:=
''Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\mysmallexe\excel2sql\Server.MDB;''
+''Persist Security Info=False;Jet OLEDB:Database Password=happynewyear'';
ADOConnection2.Execute(''SELECT * into abc  from [G:\mysmallexe\excel2sql\Se