怎样将Excel表导入数据库 给出好的程序 谢谢

Question

怎样将Excel表导入数据库   给出好的程序 谢谢

Answer 1

对于execel导入数据库分为两部:
1.从Excel读信息
2.将数据存入数据库.
参考一下这段代码
procedure TForm1.Button1Click(Sender: TObject);
var
  RangeMatrix: Variant;
  OpenDialog1: TOpenDialog;
  iRE: integer;
  IN_TYPE,vStockName: String;
  sStockName,sCompany: String;
  i: Integer;
  MsExcel, MsExcelWorkBook, MsExcelWorkSheet: Variant;
  Col1,Col2: String;
begin
  OpenDialog1:=TOpenDialog.Create(nil);
  try
    OpenDialog1.FileName:='*.csv;*.xls';
    if not OpenDialog1.Execute then
    begin
      Result := false;
      exit;
    end;
    MsExcel := CreateOleObject('Excel.Application');
    MsExcelWorkBook := msExcel.Workbooks.Open(OpenDialog1.FileName);
    MsExcelWorkSheet := msExcel.Worksheets.Item[1];
  except
    MessageBox(handle,'读取Excel出错','提示',MB_ICONERROR);
    Exit;
  end;
  //开始从EXCEL文件读取相关的信息  try
    Application.ProcessMessages;
    for i := 1 to MsExcelWorkSheet.Rows.Count do
    begin
      Col1 := trim(MsExcelWorkSheet.Range['A' + IntToStr(i)].Value);
      Col2 := trim(MsExcelWorkSheet.Range['B' + IntToStr(i)].Value);
      //开始存入数据库
      with adoquery1 do
      begin
        close;
        sql.text := ' insert into t values('')';
        execsql;
      end;
    end;
  finally
    MsExcel.WorkBooks.Close;
  end;
  MsExcel.Quit;
  OpenDialog1.Free;
end;

Answer 2

我总结了一下
你看一下:http://blog.csdn.net/zxf_feng/archive/2008/03/03/2142264.aspx
这是一个完整的例子,希望对你有所帮助