资源描述:
《将EXCEL表格导入DBF数据库的实例.docx》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、下面一段代码是将EXCEL表格导入DBF数据库的实例usescomobj;procedureTexcelfrm.Button1Click(Sender:TObject);varoe:variant;n1:string;i,j:integer;begin oe:=CreateOleObject('Excel.Application'); oe.visible:=true; oe.workbooks.open(FileListBox1.FileName); j:=2; //假定标题在第一行 trywithadoQuery1do begin n1:
2、='insertintotablename(fieldslist)values(:fieldslist)'; close; sql.Clear; sql.Add(n); whileoe.worksheets[sheetname].cells[j,1].text<>''do begin fori:=1to列数do Parameters.Items[i-1].Value:=oe.worksheets[sheetname].cells[j,i].text; execsql; j:=j+1; e
3、nd;oe.visible:=false; showmessage('导入完毕'); end; except oe.visible:=false; showmessage('数据库错误或有重复编号,请检查'); end;end; 回复人:gg1335 回复时间:2004-8-209:05:00下面的代码是导出为EXCELunitUnit1;interfaceuses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs, Grids,DBGrids,
4、Db,DBTables,StdCtrls,Excel97,OleServer,ComObj,ActiveX;type TForm1=class(TForm) Button1:TButton; Table1:TTable; DataSource1:TDataSource; DBGrid1:TDBGrid; ExcelApplication1:TExcelApplication; ExcelWorkbook1:TExcelWorkbook; ExcelWorksheet1:TExcelWorksheet; SaveDia
5、log1:TSaveDialog; procedureButton1Click(Sender:TObject); procedureFormCreate(Sender:TObject); procedureFormDestroy(Sender:TObject); private {Privatedeclarations} public {Publicdeclarations} ExcelFormatNum:TStrings;//ExcelFormatNum ExcelFormatStr:TStrings;//ExcelF
6、ormatStr functionExportDBGrid(DBGrid:TDBGrid;SheetName:string):boolean;//直接保存,不显示EXCEL functionExportDataToExcelV(SheetName:string;DBGrid:TDBGrid;ExcelApplication:TExcelApplication; ExcelWorkbook:TExcelWorkbook;ExcelWorksheet:TExcelWorksheet):boolean;//显示EXCEL functi
7、onConvertIntToCharacters(IntNumber:Integer):string; functionGetNumberFormat(s:string):string;//判断字段的格式 functionFindExcelFormatStr(s:string):Boolean;//找字符格式 functionFindExcelFormatNum(s:string):Boolean;//找数字格式 end;var Form1:TForm1;implementation{$R*.DFM}functionTForm1.Expor