I am trying to open a Clipper dbase III file and get the error:
[Microsoft] [ODBC dBase driver] Index file not found
I do not use any ndx indexes with the dbf. I do use nsx indexes but I do not need to open any indexes for what I want to do.
How do I get around the error?
Below is my code
Private Sub cmdExport_Click()
Dim StrSql As String
Dim dbRts As Connection
Dim RsRts As ADODB.Recordset
On Error GoTo ProcErr
StrSql = "Select JOBNUM,ADDR,ZIP from Job " & _
"WHERE EMPTY(MAPCODE) = TRUE "
Set dbRts = New Connection
dbRts.CursorLocation = adUseServer
dbRts.Open "PROVIDER=MSDASQL;dsn=DBase3;uid=;pwd=;database=C:\RTS\Data\JOB.dbf"
Set RsRts = New ADODB.Recordset
RsRts.Open StrSql, dbRts
Debug.Print RsRts.recordcount
Exit Sub
ProcErr:
Debug.Print Err.Description, Erl
End Sub
Thanks,
Dan
[Microsoft] [ODBC dBase driver] Index file not found
I do not use any ndx indexes with the dbf. I do use nsx indexes but I do not need to open any indexes for what I want to do.
How do I get around the error?
Below is my code
Private Sub cmdExport_Click()
Dim StrSql As String
Dim dbRts As Connection
Dim RsRts As ADODB.Recordset
On Error GoTo ProcErr
StrSql = "Select JOBNUM,ADDR,ZIP from Job " & _
"WHERE EMPTY(MAPCODE) = TRUE "
Set dbRts = New Connection
dbRts.CursorLocation = adUseServer
dbRts.Open "PROVIDER=MSDASQL;dsn=DBase3;uid=;pwd=;database=C:\RTS\Data\JOB.dbf"
Set RsRts = New ADODB.Recordset
RsRts.Open StrSql, dbRts
Debug.Print RsRts.recordcount
Exit Sub
ProcErr:
Debug.Print Err.Description, Erl
End Sub
Thanks,
Dan