http://www.csdn.net/dev/Format/ 里有有关DBF格式的说明,
写个函数读取就好了。

解决方案 »

  1.   

    如果你习惯数据库编程,也许可以试试用ADO等等直接打开这个数据库
      

  2.   

    dim Connect as new adodb.connection,i as long 
    dim chkrs as new adodb.recordset
    connect.open "pro....."
    Chkrs.Open "select * from [dBASE III;DATABASE=C:\SampleUpdate\].[sample.DBF]", Connect, adOpenStatic, adLockOptimistic
     for i=0 to chrs.fields.count-1
            msgbox chkrs.fields(i).name
     next i
      

  3.   

    chkrs.Open "select * from [dBASE III;DATABASE=D:\数据\].[query.DBF]", Connect, adOpenStatic, adLockOptimisticfrom语法出错
      

  4.   

    问题已经解决,使用的ADO,文件DSN,谢谢amstar
    Connect.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Print"
    chkrs.Open "query", Connect, adOpenStatic, adLockOptimistic
    For i = 0 To chkrs.Fields.Count - 1
    List1.AddItem chkrs.Fields(i).Name
    Next i
    If Check