Delphi将excel数据导入到数据库中源码

Delphi将excel数据导入到数据库中源码

procedure Tfrmexceltodata.Button4Click(Sender: TObject);

const

BeginRow= 1; BeginCol= 2;

var

iRE:Integer;

iRow,iCol :Integer; //列、行

MsExcel,MsExcelWorkBook,MsExcelWorkSheet:Variant;

adoquery1:TADOQuery;

sqlstr1,sqlstr2:string;

begin

Try

OpenDialog1.FileName:='*.xls';

if not OpenDialog1.Execute then

begin

Exit;

end;

if ExtractFileExt(OpenDialog1.FileName) <> '.xls' then

begin

MessageBox(0, '请选择正确的excel文件',PChar('提示'),MB_OK MB_ICONWARNING);

Exit;

end;

MsExcel:=CreateOleObject('Excel.Application');

MsExcel.visible:=true;

MsExcelWorkBook:=MsExcel.WorkBooks.Open(OpenDialog1.FileName);

Except

Exit;

end;

//开始从EXCEL文件读取相关信息,并导入数据库中的“文件登记表”表 or

你可能喜欢

  • excel数据库
  • Excel数据透视
  • 论文数据库
  • 数据库选择题
  • 数据结构与数据库
  • 数据库备份方法
  • delphi试题

Delphi将excel数据导入到数据库中源码相关文档

最新文档

返回顶部