MSSQL2EXCEL EXCEL2MSSQL  MSSQL2VFP VFP2MSSQL

MSSQL2access access2MSSQL  excel2access access2excel

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]');

//sa kcsoft58, 127.0.0.1

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]');

//

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]');

//sa kcsoft58, 127.0.0.1

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=False;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

select * from OpenRowset('MSDASQL', 'Driver={Microsoft Text Driver (*.txt; *.csv)};

DefaultDir=c:\temp;','select * from aaaa.txt')