如何用vb读取def文件？

Question

如何用vb读取def文件,需要有源代码，急用！

Answer 1

是 C++ 中 DLL 工程的 .def 文件吗？
就当成 .txt 文件来读。

Answer 2

读出来还要分析吗？否则：
open "filename" for binary access read as #1
get #1,,arrydata

Answer 3

哦，搞错了，是dbf文件，最好不要调用微软组件

Answer 4

Private Sub TestConnectDbf()
'引用:Microsoft ActiveX Data Objects 2.x Library
'2.x是版本号
'打开Dbase或 FoxPro文件
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String
    
    '有两种连接方式，以下两种任选一种
    'For ODBC
    'sql = "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;"
    
    'For OLEDB
    sql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\文件所在目录;Extended Properties=dBASE IV;User ID=Admin;Password="
    
    Set cn = New ADODB.Connection
    cn.Open iConc'添加一个字段
    cn.execute "alter  table 表名 add field1 int"
    
    '以下是对打开的文件做其他的处理
    Set rs = New ADODB.Recordset
    rs.Open "select * from 表名", cn
    Do While Not rs.EOF
        Debug.Print rs.Fields(0)
        rs.MoveNext
    Loop
       
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub