资源描述:
《delphi将excel数据导入到数据库中源码》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、Delphi将excel数据导入到数据库中源码procedureTfrmexceltodata.Button4Click(Sender:TObject);constBeginRow=1;BeginCol=2;variRE:Integer;iRow,iCol:Integer;//列、行MsExcel,MsExcelWorkBook,MsExcelWorkSheet:Variant;adoquery1:TADOQuery;sqlstr1,sqlstr2:string;beginTryOpenDialog1.FileName:='*.xls';ifn
2、otOpenDialog1.ExecutethenbeginExit;end;ifExtractFileExt(OpenDialog1.FileName)<>'.xls'thenbeginMessageBox(0,'请选择正确的excel文件',PChar('提示'),MB_OKorMB_ICONWARNING);Exit;end;MsExcel:=CreateOleObject('Excel.Application');MsExcel.visible:=true;MsExcelWorkBook:=MsExcel.WorkBooks.Open(
3、OpenDialog1.FileName);ExceptExit;end;//开始从EXCEL文件读取相关信息,并导入数据库中的“文件登记表”表TryApplication.ProcessMessages;//防止进程阻塞iRow:=BeginRow;iCol:=BeginCol;adoquery1:=TADOQuery.Create(Self);adoquery1.Connection:=frm_main.con1;sqlstr1:='insertinto文件登记表(编号,来文日期,来文单位,来文原编号,文件自编号,文件标题,页数,来文份数,
4、文件大类,文件小类,文件年度,文件状态,填卡完毕,打印完毕,是否清退)';sqlstr2:='values(:bh,:lwrq,:lwdw,:lwybh,:wjzbh,:nrzy,:ys,:lwfs,:wjdl,:wjxl,:wjnd,:wjzt,:sywb,:pswb,:sfqt)';getdh1;getlwbh;//取得文件自编号whiletrim(msExcel.WorkSheets['sheet1'].Cells[iCol,iRow].value)<>''dobeginwithadoquery1dobeginClose;SQL.Clea
5、r;SQL.Add(sqlstr1);SQL.Add(sqlstr2);Parameters.ParamByName('bh').Value:=StrToInt(djbh)+iCol-1;//Parameters.ParamByName('lwrq1').Value:=dtp1.DateTime;Parameters.ParamByName('lwrq').Value:=Trim(msExcel.WorkSheets[1].Cells[iCol,iRow].value);Parameters.ParamByName('lwdw').Value:
6、=Trim(msExcel.WorkSheets[1].Cells[iCol,iRow+2].value);Parameters.ParamByName('lwybh').Value:=Trim(msExcel.WorkSheets[1].Cells[iCol,iRow+3].value);Parameters.ParamByName('wjzbh').Value:=Trim(msExcel.WorkSheets[1].Cells[iCol,iRow+1].value);//Parameters.ParamByName('wjzbh').Val
7、ue:=lwbh+inttostr(icol-1);//Trim(msExcel.WorkSheets[1].Cells[iCol,iRow+1].value);Parameters.ParamByName('nrzy').Value:=Trim(msExcel.WorkSheets[1].Cells[iCol,iRow+4].value);Parameters.ParamByName('ys').Value:=1;Parameters.ParamByName('lwfs').Value:=1;Parameters.ParamByName('w
8、jdl').Value:=cbb6.text;Parameters.ParamByName('wjxl').Value:=cbb7.text;//Pa