高分请教,怎么样对dbase III文件库进行操作,望各位能人帮忙,这个问题我在这里已经有一个月没有得到解答了.望各位朋友共同参与!

Question

怎么样打开dbase III文件,并读取它的记录.

Answer 1

Sub dBase()
    Dim iDb As ADODB.Connection
    Dim iRe As ADODB.Recordset
    Dim iConc$
    
    iConc = "Provider=MSDASQL.1;Extended Properties=""DSN=dBASE Files;DBQ=c:\""" 'c:\是dbase文件所在的目录
    Set iDb = New ADODB.Connection
    iDb.Open iConc
    
    Set iRe = New ADODB.Recordset
    iRe.Open "dbase文件名", iDb
    
    MsgBox iRe(0)
    
    iRe.Close
    Set iRe = Nothing
    iDb.Close
    Set iDb = Nothing
End Sub