请问如何用代码打开dbf数据库？

sino77

各位大虾好。我用access的导入外部数据库功能（选择dbase 5格式）可以导入dbf数据库，但我不知道用代码该如何实现。我打开dbf数据库的目的是要对其进行查询，然后将其查询结果报存在access数据库的表中。但我不想直接把dbf数据库导入access中。请问各位大虾有什么比较简洁的办法吗？谢谢。

susanyjj

我也很想知道.....
谢谢......

hamletl

''' 假如我们有一个CUSTOMER.dbf 在C:\ 后
''' NOTE: This subroutine requires that you reference the
'''       latest version of the following library:
'''
'''         Microsoft ActiveX Data Objects Library

    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    '
    Dim i As Integer

    ' Create the Connection object.
    Set conn = New ADODB.Connection

    PathToDatabase = "c:\"
    With conn
        'Assign the connection string to the connection object.
        .ConnectionString = "DRIVER={Microsoft dBase Driver (*.dbf)};" & _
            "DBQ=" & PathToDatabase & ";" & _
            "DefaultDir=" & PathToDatabase & "\"
        ' Open the connection.
        .Open strConn
    End With

    ' Create a new Recordset Object.
    Set rst = New ADODB.Recordset
   
    With rst
        ' Connect this recordset to the previously opened connection.
        .ActiveConnection = conn
        ' Retrieve all records from the Customer table.
        .Open "SELECT * FROM Customer"
        
    End With

    ' 由此得出DBF 数据集。
    Set rst = Nothing
    ' Close the Connection.
    conn.Close

改自微软实例 HAMLETL

[此贴子已经被作者于2003-7-17 12:12:02编辑过]

liujiangyuan.nm

看不懂