《DBF与ACCESS的导入、导出》由会员分享，可在线阅读，更多相关《DBF与ACCESS的导入、导出（3页珍藏版）》请在金锄头文库上搜索。
1、DBF导入ACCESSdelphimedia方法一：用ACCESS中“文件”一“获取外部数据”一“导入”方法二：用ACCESS中“文件”“获取外部数据”“导入”，然后文件类型选择ODBCDatabase。，即用数据源方式导入*注：以上两种方法不是完全凑效，有时提示“外部表不是预期的格式”。方法三：用VFP连接ACCESS，然后用代码把DBF数据一条一条写入ACCESS。就像写入SQL样方法四：先把DBF转成EXCEL或TXT,然再用方法一进行导入。注：DBF表如果不含用备注字段，直接用COPYTO表名.XLStypexl5转成EXCEL，如果含用备注型字段，必须用下面方法转成EXCEL：*Db
2、fToExcel.PRG*CLOSEDATABASESALLSETDATEYMDSETCENTURYONcDbfFile=GETFILE(dbf)IFEMPTY(cDbfFile)RETURNENDIFUSE(cDbfFile)ALIASFoxTableIN0IFNOTUSED(FoxTable)=MESSAGEBOX(打开表失败，程序将中止！”，16,Error)RETURNENDIFcExcelFile=PUTFILE(”保存为(&N):,JUSTSTEM(cDbfFile)+.xls,xls)IFEMPTY(cExcelFile)CLOSEDATABASESALLRETURNENDIFS
3、ELECTFoxTableoExcelSheet=GETOBJECT(”，”Excel.Sheet)&产生Excel对象IFNOTTYPE(oExcelSheet)=O=MESSAGEBOX(Excel对象创建失败，程序将中止！”，16,Error)RETURNENDIFoExcelApp=oExcelSheet.APPLICATIONoExcelApp.Workbooks.ADD()oExcelApp.ActiveWindow.WINDOWSTATE=2oSheet=oExcelApp.ActiveSheetnFldCount=AFIELDS(aFldList,FoxTable)FORi=1
4、TOnFldCountoSheet.Cells(1,i).VALUE=aFldListi,1ENDFORcRecc=STR(RECCOUNT(FoxTable)SCANWAITWINDOWALLTRIM(STR(RECNO()+/+cReccNOWAITFORi=1TOnFldCountvValue=.NULL.IFAT(aFldListi,2,CDLMNFIBYT)=0LOOPENDIFcFldName=aFldListi,1vValue=EVALUATE(cFldName)DOCASECASEaFldListi,2=C&字符/字符串vValue=TRIM(vValue)CASEaFldLi
5、sti,2=D&日期vValue=DTOC(vValue)CASEaFldListi,2=T&日期时间vValue=TTOC(vValue)CASEINLIST(aFldListi,2,N,F,I,B,Y)&数值CASEaFldListi,2=L&逻辑CASEaFldListi,2=M&备注型OTHERWISEvValue=.NULL.ENDCASEIFVARTYPE(vValue)=CANDEMPTY(vValue)LOOPENDIFIFNOTISNULL(vValue)oSheet.Cells(RECNO(FoxTable)+1,i).VALUE=vValueENDIFENDFORENDS
6、CANcChrStr=ABCDEFGHIJKLMNOPQRSTUVWXYZFORi=1TOnFldCountcColumn=SUBSTR(cChrStr,INT(i-1)/26),1)+SUBSTR(cChrStr,IIF(MOD(i,26)=0,26,MOD(i,26),1)oSheet.COLUMNS(cColumn+:+cColumn).COLUMNWIDTH=12IFaFldListi,2=MoSheet.COLUMNS(cColumn+:+cColumn).WrapText=.F.ENDIFENDFORoExcelApp.ActiveWorkbook.SAVEAS(cExcelFile)oExcelApp.ActiveWorkbook.CLOSE(.F.)oExcelApp.ActiveWorkbook.CLOSE(.F.)oExcelApp.QUIToExcelSheet=.NULL.oExcelApp=.NULL.WAITCLEAR=MESSAGEBOX(转换完毕！”，64,OK)CLOSEDATABASESALLACCESS导出DBF打开ACCESS库后，右单击要导出的表，选择“导出”出现对话诓后，把“保存类型”选为“*.dbf”（注意“文件名”不要超过8位，超过8位后系统会自动截取前8位）然后点击“保存即可”。
