Delphi7 将Excel导入数据库

最新推荐文章于 2025-05-29 10:05:24 发布

原创

最新推荐文章于 2025-05-29 10:05:24 发布 · 1.9k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#delphi7

这是我第一次写博客，他将会记录我学习中遇到的困难与解决办法，也是证明我成长的见证者。（Butter Fly）

我也经常看别人的博客，有的真是看不懂，不是写的不好，写的真是太简洁了。我会尽量写清楚，谢谢。

思路

读取Excel文件
将Excel每列与字段一一对应
执行sql

插入控件

TOpenDialog （打开文件的控件）

源码

procedure TMain.RzBitBtn4Click(Sender: TObject);
const
  BeginRow=1;  //   lie
  BeginClo=2;  //   hang
var
  iRE:Integer;
  iRow,iCol:Integer;
  MsExcel,MsExcelWorkBook,MsExcelWorkSheet:Variant;
  sqlstr1,sqlstr2:string;
  sql1,sql2,sql3:string;
  a,b,c,d,e,f,g,h,i,j,k,l,m:string;
  begin
    try
      dlgOpen1.FileName:='*.xls';
      if not dlgOpen1.Execute then
      begin
        Exit;
      end;

      if ExtractFileExt(dlgOpen1.FileName) <> '.xls' then
      begin
        MessageBox(0,'请选择正确的excel文件',PChar('提示'),MB_OK or MB_ICONWARNING);
        Exit;
      end;

      MsExcel:=CreateOleObject(