ACCESS 通过ADO访问VISUAL FOXPRO的DBF文件

时　间:2018-01-31 10:26:29
作　者:Big Young   ID：252  城市：襄阳
摘　要:    在ACCESS数据库中，通过ADO访问VISUAL FOXPRO数据库的DBF文件中的数据。
正　文:

在ACCESS数据库中，通过ADO访问VISUAL FOXPRO数据库的DBF文件中的数据：

Sub ADOOpenVFPDatabase()

    Dim cnn As Object, rs As Object
    Dim strSQL As String, x As Variant
    Set cnn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    cnn.Open "Provider=vfpoledb;" & _
       "Data Source=D:\SQL for ACCESS\;"        '如果是数据库中的dbf文件，则应为：.\TasTrade.dbc
    cnn.CursorLocation = 3   'adUseClient   ' allows you to see number of records returned
    
    
    strSQL = "select * from [test00.dbf];"
    rs.Open strSQL, cnn, , , 1               'adCmdText=1
     '判断记录集是否为空
    If rs.RecordCount <> 0 Then
        rs.MoveFirst
        While rs.EOF <> True
            For Each x In rs.Fields
                Debug.Print x.Name & " = " & x.Value
            Next
            rs.MoveNext
        Wend
    Else
       Debug.Print "没有记录！"
  End If
    
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub




Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店