OLEDB JET无法连接.dbf文件，VBA查询RecordCount返回-1求助

问题核心原因 #

1. RecordCount=-1是游标类型限制：ADODB.Recordset默认使用adOpenForwardOnly（仅向前游标），这种游标不支持获取记录总数，无论是否有数据都会返回-1。
2. 连接字符串或表名可能存在错误：需确认DBF文件所在路径、表名拼写是否与实际一致。

修复步骤 #

1. 调整Recordset打开参数，支持RecordCount

打开Recordset时指定游标类型为adOpenStatic或adOpenKeyset，搭配锁定类型（如adLockReadOnly），即可正确获取记录数。

2. 修正连接字符串的Data Source

Data Source必须指向DBF文件所在的文件夹路径，而非根目录（除非文件确实在根目录）。例如文件在C:\DBFFiles下，连接字符串应改为：

strConn = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=C:\DBFFiles; Extended Properties=""dBase IV;"""

注意移除末尾多余的分号。

3. 验证表名正确性

确保DBF文件名是reptrack.dbf，无拼写错误；部分系统下DBF表名区分大小写，需与实际文件名完全匹配。

4. 优化数据粘贴逻辑

原代码用ActiveSheet.UsedRange可能覆盖已有数据，建议从A1开始输出表头，再从A2粘贴数据。

修改后的完整代码 #

Sub ImportDBFWithSQL()
    Dim cn As ADODB.Connection, rs As ADODB.Recordset
    Dim strSQL As String, strConn As String
    Dim i As Integer
    
    ' SQL查询：提取前10条数据
    strSQL = "SELECT TOP 10 * FROM reptrack"
    
    ' 连接字符串：替换为DBF文件所在的文件夹路径
    strConn = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=C:\DBFFiles; Extended Properties=""dBase IV;"""
    
    ' 创建连接和记录集对象
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    ' 打开连接
    cn.Open strConn
    
    ' 打开记录集：指定游标类型和锁定类型，支持RecordCount
    rs.Open strSQL, cn, adOpenStatic, adLockReadOnly
    
    ' 输出正确的记录数
    MsgBox "记录数：" & rs.RecordCount
    
    ' 有数据则写入工作表
    If Not rs.EOF Then
        ' 输出表头到第一行
        For i = 0 To rs.Fields.Count - 1
            ActiveSheet.Cells(1, i + 1).Value = rs.Fields(i).Name
        Next i
        
        ' 粘贴数据从第二行开始
        ActiveSheet.Cells(2, 1).CopyFromRecordset rs
    Else
        MsgBox "未找到记录！", vbInformation
    End If
    
    ' 清理资源
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub

额外说明 #

• 若使用64位系统，Microsoft.JET.OLEDB.4.0可能不兼容，需改用Microsoft.ACE.OLEDB.12.0，连接字符串改为：

  strConn = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\DBFFiles; Extended Properties=""dBase IV;"""
  

• 针对超大DBF文件，建议通过WHERE条件分批读取数据，避免内存溢出。

内容的提问来源于stack exchange，提问作者Bernhard Moser