Dbase...need Help

[Kirill1983]

Доброго всем дня....хоть кто нибудь...подскажите как разрешить проблему??? есть файл dbf (он прикреплен) и есть код,которым я его читаю:

Код: Выделить всё


Dim con As ADODB.Connection
Dim rs1 As ADODB.Recordset

Set con = New ADODB.Connection

con.ConnectionString = "Driver={Microsoft dBASE Driver (*.dbf)};" & _
                        "DriverID=277;Dbq=C:\doroga04\d126\;Exclusive=No"

con.Open
Set rs1 = New ADODB.Recordset
Set rs1.ActiveConnection = con
rs1.CursorLocation = adUseClient
rs1.Open "SELECT * FROM PRIM", , adOpenStatic, adLockReadOnly, adCmdText


в результате ошибка:
"Непредвиденная ошибка драйвера внешней базы данных (8961)"
Ну же хоть кто нить помогите...

[VVitafresh]

1. Проверь наличие драйвера Microsoft dBASE Driver в системе (Windows).
2. Не используй длинный путь к базе.

Попробуй так (у меня работает без ошибок):

Код: Выделить всё

   
Dim sCnDBF As String
Dim con As ADODB.Connection
Dim rs1 As ADODB.Recordset

    sCnDBF = "Driver={Microsoft dBASE Driver (*.dbf)};Dbq=c:\base\;"
    Set con = New ADODB.Connection 
    con.CursorLocation = adUseClient
   
    con.Open sCnDBF                     
    Set rs1 = con.Execute("SELECT * FROM TABLE1")


[Kirill1983]

Нет,дело в чем то другом...Воспользовался приведенным кодом и на Execute та же ошибка....