怎样把excel导入到数据库

Question

把excel里的数据全部导入到数据库或数据库表格，最好能有一个列子

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
 var
  Temp_Worksheet: _WorkSheet;
begin
 excelapplication1.connect;
 ExcelApplication1.Visible[0]:=false;
 ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));  Try
  Temp_Worksheet:=ExcelWorkbook1.WorkSheets.Add(EmptyParam,
  EmptyParam,EmptyParam,EmptyParam,0) 
  as _WorkSheet;//(注意)
  ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
  Except
  ShowMessage('Failure');
  End;end;procedure TForm1.Button2Click(Sender: TObject);
var
 filename ,
 FileFormat,
 Password,
 WriteResPassword,
 ReadOnlyRecommended,
 CreateBackup,e:oleVariant;
 AddToMru: OleVariant;
    TextCodepage: OleVariant;
    TextVisualLayout,
     AccessMode,
    ConflictResolution: OleVariant;
    lcid: Integer;
begin
  filename:='d:\test123.xls';
  if fileexists(filename) then
    deletefile(filename);
  Try
    FileFormat:=xlNormal;
    Password:='';
    WriteResPassword:='';
    ReadOnlyRecommended:=False;
    CreateBackup:=False;
    AccessMode:=xlExclusive;
    ConflictResolution:= xlLocalSessionChanges;
    AddToMru:=false;
    TextCodepage:=false;
    TextVisualLayout:=false;
    lcid:=0;
    e:=EmptyParam;
    ExcelWorkbook1.SaveAs(Filename, FileFormat, Password, WriteResPassword, ReadOnlyRecommended,
                          CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage,
                          TextVisualLayout, lcid);    ExcelApplication1.Quit;
    ExcelWorksheet1.Disconnect;
    ExcelWorkbook1.Disconnect;
    ExcelApplication1.Disconnect;
  Except
  End;
  end;procedure TForm1.Button3Click(Sender: TObject);
begin
 ExcelWorksheet1.Cells.Item[1,1]:='12345';
 ExcelWorksheet1.Cells.Item[1,2]:='123456';
end;通过 server 页的execl组件连接execl.希望对你有帮助.