用delphi如何实现将excel数据导入sql server 2000

Question

用delphi如何实现将excel数据导入sql server 2000

Answer 1

DataSet.SQL.Clear;
  sqlStr := 'SELECT * into #dcb_TempMend FROM OpenDataSource(' + #39 + 'Microsoft.Jet.OLEDB.4.0'+
  #39 +','+ #39 + 'Data Source=' + filePath + filename  + ';User ID=Admin;Password=;'+
  'Extended properties=Excel 8.0' + #39 + ')...' + copy(filename,1,pos('.',filename)-1) + '$' ;
  DataSet.SQL.Add(sqlStr);

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOConnection1.Connected:=False;
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\yourtablename;Persist Security Info=False';
  ADOConnection1.Connected:=True;
  ADOConnection1.Execute('SELECT * into t1 FROM t2 IN [ODBC] [ODBC;Driver=SQL Server;UID=sa;PWD=;Server=(LOCAL);DataBase=x;]');end;