有没有将EXCEL内容导入到SQL SERVER中的实例，不胜感激！！！

Question

如上

Answer 1

用SQL的导入导出数据的工具，选择Excel数据源即可

Answer 2

用两个ADOConnection分别链接Excel和SQL Server
把Excel中查询到的数据插入到SQL Server中去

Answer 3

用下面两个函数可以动态获得数据库中的表名称以及指定表名称的字段名, 会用得着的
  ADOConnection1.GetTableNames();
  ADOConnection1.GetFieldNames();

Answer 4

那么，请问如何将ADOCONNECTION连接到EXCEL呢，我联不上！！

Answer 5

参考http://expert.csdn.net/Expert/topic/2846/2846530.xml?temp=.3357355

Answer 6

用SQL SERVER的倒入倒出功能。在 所有任务/倒入数据。然后选择源数据驱动程序为EXCEL97-2000，目的数据源用SQL就行。EXECEL 第一行被默认为标题行，不倒入的。

Answer 7

procedure SaveToExcel(Db_data:TDBGrid);
var
  XlAPP:Variant;
  Sheet1:Variant;
  i,j:integer;
begin
  try
    XlApp:=createoleobject('Excel.Application');
    XLApp.Visible:=false;
    XLApp.Workbooks.Add();
    Sheet1 := XLApp.Workbooks[1].WorkSheets['sheet1'];
  except
    showmessage(你的电脑没有安装EXCl!');
    exit;
  end;
  for j:=0 to Db_data.FieldCount-1 do
  begin
    sheet1.cells[1,j+1]:=Db_data.Columns[j].Title.Caption;
  end;    
  Db_data.DataSource.DataSet.First;
  i:=2;
  while not Db_data.DataSource.DataSet.Eof do
  begin      
    for j:=0 to Db_data.FieldCount-1 do
    begin
      if Db_data.Fields[j]<>nil then
        Sheet1.cells[i,j+1]:=trim(Db_data.Fields[j].asstring)
      else
        Sheet1.cells[i,j+1]:='';
    end;
    i:=i+1;
    Db_data.DataSource.DataSet.Next;
  end;
  XLApp.Activeworkbook.saveas(main.SaveDialog1.FileName);
  XLApp.quit ;
  XLApp:=unassigned ;
end;