Question

我正在制作一个表格，您可以在其中输入代码。使用该代码，我得到该记录的确切日期（例如Code＆＃34; 100346＆＃34;在2013年3月14日记录，依此类推）。当我有记录日期时，我必须打开一个DBF文件（实际记录），其名称由日期组成。（例如，日期是2013年3月14日，文件名是N140313.DBF）

如何编程访问以打开/导入该确切文件，以便我可以在访问中使用它？

Answer 1

答案可能取决于您希望如何（以何种方式）使用DBF文件，而且我不知道您在那里想到了什么。

也许您会对查询检索DBF数据感到满意。我在这个位置有一个dBase III文件： C：\ Users \ hans \ Documents \ F_NAMES.DBF

然后，Access 2007中的此查询为我提供了一个可编辑的结果集...这意味着我不仅可以查看，还可以更改存储的数据。

SELECT *
FROM [dBase III;DATABASE=C:\Users\hans\Documents\].F_NAMES;

如果您可以创建类似的查询，则可以将其用作表单的记录源，并以该表单查看和编辑数据。

Answer 2

这是我发现谷歌搜索的代码片段......值得一试。我无法验证它，因为我没有DBF文件......

    Dim cn As Object
    Dim rs As Object

    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")

    Dim oneSQL As String


    strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\;" & _
            "Extended Properties=dBASE IV;User ID=Admin;"

    ' works also
    'strCon = "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=F:\;"

    cn.CursorLocation = adUseClient   ' allows you to see number of records returned

    cn.Open strCon

    oneSQL = "select * from [data.dbf];"      ' F:\data.dbf

    rs.Open oneSQL, cn, , , adCmdText

按名称在MS访问中打开DBF文件

2 个答案: