Reading DBF Files

SerranoG · April 15th, 2005, 09:21 AM

I have this code that works when the input file is NOT a dBase III input file, i.e. an MDB. When it is a DBF, however, I'm getting an error message that the path and file do not exist even though it does. Any clues why it won't work? Here's the code snippet. It fails at the first cn.Open statement.

Code:

Public Function strShowUsers(strMDB as String) As String

    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset

    If UCase(Right(strMDB, 3)) = "DBF" Then
        cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & strMDB & "; Extended Properties = DBASE III;"
    Else
        cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & strMDB
    End If

    Set rs = cn.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

Thanks in advance.

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

BrianWren · April 15th, 2005, 02:18 PM

Greg,

I would initially suspect that the access permissions to DBFs are different than the other files you are testing against.

Make sure that the process running the code you show here has the nec. access rights to accomplish the opening of the file.

(You could verify this with an attempt to outright open the file with FreeFile and Open, etc.)

SerranoG · April 18th, 2005, 02:17 PM

Brian,

The access permissions are the same. Any other ideas?

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

BrianWren · April 18th, 2005, 02:50 PM

Did you try opening the file outright using VB's file manipulation methods?
What was the result?

SerranoG · April 18th, 2005, 02:55 PM

What exactly did you have in mind when you say "VB's file manipulation methods"? Did you have any particular function or call in mind?

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

elviejo · May 11th, 2005, 07:33 PM

I had this error also.
What I did is to use filename in 8.3 Dos format
Which basically says
thiif your table is called:

ThisIsMyTable.DBF

You must use:

ThisIs~1.DBF

as the filename