資源描述:
《Delphi將excel數(shù)據(jù)導入到數(shù)據(jù)庫中源碼.doc》由會員上傳分享,免費在線閱讀,更多相關內(nèi)容在工程資料-天天文庫。
1、Delphi將excel數(shù)據(jù)導入到數(shù)據(jù)庫中源碼procedureTfrmexceltodata.Button4Click(Sender:TObject);constBeginRow=1;BeginCol=2;variRE:Integer;iRow,iCol:Integer;//列、行MsExcel,MsExcelWorkBook,MsExcelWorkSheet:Variant;adoquery1:TADOQuery;sqlstr1,sqlstr2:string;beginTryOpenDialog1.FileName:='*.xl
2、s';ifnotOpenDialog1.ExecutethenbeginExit;end;ifExtractFileExt(OpenDialog1.FileName)<>'.xls'thenbeginMessageBox(0,'請選擇正確的excel文件',PChar('提示'),MB_OKorMB_ICONWARNING);Exit;end;MsExcel:=CreateOleObject('Excel.Application');MsExcel.visible:=true;MsExcelWorkBook:=MsExcel.Wor
3、kBooks.Open(OpenDialog1.FileName);ExceptExit;end;//開始從EXCEL文件讀取相關信息,并導入數(shù)據(jù)庫中的“文件登記表”表TryApplication.ProcessMessages;//防止進程阻塞iRow:=BeginRow;iCol:=BeginCol;adoquery1:=TADOQuery.Create(Self);adoquery1.Connection:=frm_main.con1;sqlstr1:='insertinto文件登記表(編號,來文日期,來文單位,來文原編號,文
4、件自編號,文件標題,頁數(shù),來文份數(shù),文件大類,文件小類,文件年度,文件狀態(tài),填卡完畢,打印完畢,是否清退)';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)<>''dobeginwithadoque
5、ry1dobeginClose;SQL.Clear;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);Paramet
6、ers.ParamByName('lwdw').Value:=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);/
7、/Parameters.ParamByName('wjzbh').Value:=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(
8、'lwfs').Value:=1;Parameters.ParamByName('wjdl').Value:=cbb6.text;Parameters.ParamByName('wjxl').Value:=cbb7.text;//Pa