高手请进，如何将EXCEL数据导入SQLSERVER？- OFFICE

Question

用ADO连接EXCEL和SQLSERVER;
<<程序员大本营>>光盘上也有相应的控件

Answer 1

Tform1.button1Click(sender:Tobject);
var
  i,j:integer; 
  xlsApp,xlsSheet,xlsWBK:variant;
  Mystr:string[5];
begin
  if VarIsEmpty(xlsApp) then xlsApp:=CreateOleObject('excel.Application');
  xlsSheet:=xlsApp.workbooks.open('d:\excel1.xls');
  j:=1;
  while length(xlsSheet.cell[j,1])>0 do
    begin
      j:=j+1; 
      for i:=0 to 4 do
          mystr[i]:=xlsSheet.cells[j,i];  
      myDataModule1.query1.close;    
      myDataModule1.query1.sql.clear;
      myDataModule1.query1.sql.add('insert into table1 values('''+mystr[0]   
            +''','''+mystr[1]+''','''+strtodate(mystr[2])+''','''+            mystr[3]+''','+mystr [4]+')');
      myDataModule1.query1.excSQL;
  end;
  xlsApp.Application.quit;
end;
 

Answer 2

谢谢楼上的兄弟!
fish1977(小鱼儿),你所说的直接连EXCEL和SQLSERVER的控件在哪里,我找不到,你能发一份给我吗?
谢谢!