проблемка с DBF

[Kirill1983]

Доброго всем дня
Возникло затруднение с подключением в файлам dbf:

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


Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

Set Conn = New ADODB.Connection
Conn.ConnectionString = "Driver={Microsoft dBASE Driver (*.dbf)};" & _
                        "DriverID=277;Dbq=c:\;Exclusive=No"
Conn.Open
Set rs = New ADODB.Recordset
Set rs = Conn.Execute("select * from AZS.dbf")


Файл С:\AZS.dbf
В результате кидает ошибку "Непредвиденная ошибка драйвера внешней базы данных (8961)"
Помогите добрым советом [/syntax]

[Konst_One]

попробуй:

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

select * from AZS

и проверь наличие такого драйвера в списках драйверов ODBC на своем компе

[Kirill1983]

попробуй:

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

select * from AZS

и проверь наличие такого драйвера в списках драйверов ODBC на своем компе

Есть драйвер для SQL Server'a и SQL-запрос не меняет результата...та же ошибка...
http://hghltd.yandex.com/yandbtm?url=ht ... &d=1623692 у меня папки Borland вообще нет.

[Konst_One]

попробуй с использованием другого ODBC драйвера, например:
Microsoft Visual FoxPro Driver

[Konst_One]

BDE нужен лишь для модификации данных в таблицах, для просмотра он не нужен.

[Kirill1983]

попробуй с использованием другого ODBC драйвера, например:
Microsoft Visual FoxPro Driver

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


con.ConnectionString = "Driver={Microsoft Visual FoxProDriver};" & _
                       "SourceType=DBF;SourceDb=c:"
con.Open


Ошибка: [Диспетчер драйверов ODBC] Источник данных не найден и не указан драйвер,используемый по умолчанию

[Ennor]

Используй Jet.

[Kirill1983]

Используй Jet.

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


con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\;" & _
                       "Extended Properties=dBase 5.0;Persist Security Info=False"

con.Open

Set rs = New ADODB.Recordset
Set rs = con.Execute("select * from AZS")


Все та же непредвиденная ошибка драйвера внешней базы данных (8961)

[Konst_One]

если в этой табличке нет никаких секретных данных, то выложи ее сюда - посмотрим.

[Kirill1983]

если в этой табличке нет никаких секретных данных, то выложи ее сюда - посмотрим.

Вот

[Konst_One]

это файл xBase
обязательно нужен BDE

[Kirill1983]

это файл xBase
обязательно нужен BDE

Скачал BDE библиотеку и инстальнул,а теперь,извини за ламерство...что делать дальше?

[Konst_One]

открой TotalCommander и в нем добавь плагин xBaseView 5.0 и открой свою табличку

[Kirill1983]

открой TotalCommander и в нем добавь плагин xBaseView 5.0 и открой свою табличку

СПАСИБО тебе Konst_One,но вот проблемка еще выскочила-присваиваю гриду рекордсет и...Run-time error '7004'. Т.е. у меня нет выхода,кроме как через ADO открывать?

[Konst_One]

что за грид и как ты рекордсет присваиваешь?

и пришли:

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

Debug.Print Err.Number & ": " & Err.Description & ". " & Err.Source

[Kirill1983]

что за грид и как ты рекордсет присваиваешь?

и пришли:

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

Debug.Print Err.Number & ": " & Err.Description & ". " & Err.Source

7004: The rowset is not bookmarkable.. DataGrid

[Konst_One]

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

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

Set DataGrid1.DataSource=rs

[Kirill1983]

От всей души выражаю Konst_One благодарность в оказании помощи и уделении мне внимания. Спасибо