读取DBF文件

下面为一读取DBF文件的实例

Public   Function getOwner() Function getOwner(Allslope As File, SlopeNo As String) As String
   
    Dim con As ADODB.Connection
    Set con = New ADODB.Connection
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
 
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & GetName(Allslope.path, 0) & ";Extended Properties=dBASE III"
    rs.Open "select first_owne from [" & GetName(Allslope.path, 2) & "] where slopeno='" & SlopeNo & "'", con
    Dim pOwner As String
    pOwner = ""
    While Not rs.EOF
        pOwner = rs.Fields(0)
        rs.MoveNext
    Wend
  
   getOwner = pOwner
   
    
    rs.Close
    Set rs = Nothing
    con.Close
    Set con = Nothing
End Function

 

转载于:https://www.cnblogs.com/iswszheng/archive/2009/04/23/1441801.html