admin 管理员组

文章数量: 1086019


2024年5月18日发(作者:numpy库使用)

----------DBF 导入 ACCESS----------

delphi_media

方法一:用ACCESS中“文件”->“获取外部数据”->“导入”

方法二:用ACCESS中“文件”->“获取外部数据”->“导入”,然后文件类型选

择ODBC Database(),即用数据源方式导入

*****注:以上两种方法不是完全凑效,有时提示“外部表不是预期的格式”。

方法三:用VFP连接ACCESS,然后用代码把DBF数据一条一条写入ACCESS。就像

写入SQL一样

方法四:先把DBF转成EXCEL或TXT,然再用方法一进行导入。

注:DBF表如果不含用备注字段,直接用COPY TO 表

名.XLS type xl5 转成EXCEL,如果含用备注型字段,必须用下面方法转成EXCEL:

********

CLOSE DATABASES ALL

SET DATE YMD

SET CENTURY ON

cDbfFile = GETFILE("dbf")

IF EMPTY(cDbfFile)

RETURN

ENDIF

USE (cDbfFile) ALIAS FoxTable IN 0

IF NOT USED("FoxTable")

=MESSAGEBOX("打开表失败,程序将中止!", 16, "Error")

RETURN

ENDIF

cExcelFile = PUTFILE("保存为(&N):",JUSTSTEM(cDbfFile)+".xls","xls")

IF EMPTY(cExcelFile)

CLOSE DATABASES ALL

RETURN


本文标签: 数据 导入 含用 程序 失败