在程序中怎样实现将Excel中的数据导入到SQLSERVER数据库中?

Question

如题！
能有代码更好！谢谢......

Answer 1

方一个opendialog
在按扭的onclicck事件里写var
  xlapp, sheet : variant;
  filename: string;
  i: integer;
  j: integer;
  k: integer;
begin
  adoquery4.Open;
  OpenDialog1.Execute;
  try
    xlapp := createoleobject('excel.application');
  except
    showmessage('无法打开Xls文件，请确认已经安装EXCEL!');
    exit;
  end;
  filename := OpenDialog1.FileName;
  xlapp.WorkBooks.Open(filename);
  Sheet :=xlapp.workbooks[1].worksheets[1];
    for j:=2 to sheet.usedRange.Cells.rows.count do
  begin
    adoquery4.Append;
    with adoquery4 do
      begin
        k:=0;
        for i:=1 to sheet.usedRange.Cells.Columns.count  do
            begin
             // Edit1.Text:=sheet.usedRange.Cells[j,i];
              Fields[k].Value:=sheet.usedRange.Cells[j,i];
              k:=k+1;
            end;
      end;
  end;
 adoquery4.Edit;
 adoquery4.Post;
 xlapp.quit;
end;

Answer 2

insert OPENDATASOURCE(
         'SQLOLEDB',
         'Data Source= ;User ID=sa ;Password= '
         ).CHBOM.dbo.TableName
SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 8.0')...[sheet1$]