Couldnt find installable ISAM \ Unrecognized database format

[Наглец]

Необходимо написать программу работающую с уже существующей базой данных.
При открытии базы через обьект Data происходит ошибка "Couldn't find installable ISAM"
Открываю базу следующим образом:

Private Sub Form_Load()
Dim DBLocation as string
DBLocation = App.Path & "\HISTORY.DBF"
Data1.DatabaseName = DBLocation
End Sub

Изпробовал многие способы решения этой проблемы предлогаемые в интернете и на вашем сайте, а именно:
1 - Проверил совпадает ли версия Визарда с версией файла msvbvm60.dll (Совпадает, непомогло)
2 - Установил Jet 4.0 SP8 (Непомогло)
3 - Скачал MDAC 2.8 RTM (При установке пишет: "Несовместим с данной версией Windows. Все его средства в настоящее время являются частью операционной системы Windows.")

Уже на протяжении двух дней мучаю интернет в поисках решения проблемы. А время то идет, заказ на программу висит и медленными но уверенными шагами переходит в разряд "Просроченых"

[RayShade]

Что за база, что за Виндовс?
Как вариант - неверная строка connStr, нет прав на открыть файл базы, ошибка в имени файла базы. Нет драйвера нужной версии. Невозможно определить, какой версии драйвер нужен, и в connStr это не написано.
Вариантов короче масса.

[Денис]

Надо знать, с помощью какой СУБД был создан DBF. Скачать и установить соответствующий драйвер. Для проверки открыть файл какой-нибудь прогой типа xBaseView

[Наглец]

База неизвестно какая, предположительно FoxPro как определить незнаю. Windows ХР SP3.
Права на открытие файла базы должны быть т.к. Visual Basic запускаю с учетки администратора.
Ошибки в имени и пути к файлу базы данных нету.
Драйвера перепробовал все что есть в Visual Basic на всех выдает такую ошибку кроме Access дров, на них пишет: "Unrecognized database format" Самим же Access'ом эта база открывается нормально.

Если это поможет могу скинуть файл базы данных.
Что это за строка connStr и как узнать верная ли она?

[Наглец]

Всю информацию что нашел в Database Viewer Editor об этой базе данных, это то что она FoxPro. Как узнать версию?
Database Viewer Editor насколько я понял при работе с этой базой использует MS.Jet.OLEDB.4.0.
Т.к. внизу есть строчка {xBase & MS.Jet.OLEDB.4.0 for dBase} FoxPro Lenght:243 Fields:12 Code Page:0(1251) Collate:Machine 1-67 N(10,0)

[Денис]

ну все. теперь осталось разобраться с наличием драйвера foxpro на машине и с корректной строкой подключения.

[Наглец]

Я думаю что драйвера для FoxPro на машине есть ибо ставил Jet 4.0 SP8. А вот что вы имеете в виду говоря о "строке подключения" я не совсем понимаю.

[RayShade]

Connection String. Это то что для сокращения называю connStr Строка, описывающая параметры подключения к базе.

[Наглец]

Как она выглядит и где её найти?

[dr.MIG]

http://connectionstrings.com/

[Наглец]

Нипанятна Ткните носом пажалст где поподробней о ней написано, гуглил - ненашел...
[Viper] :: Для начала устное предупреждение: на этом форуме приветствуется грамотность, и не приветствуется олбанский!

[dr.MIG]

Если поискать по форуму даже одно слово "Connection", то найдётся много примеров, из которых станет понятно что такое ConnectionString и как использовать строку взятую отсюда.

[Наглец]

У меня получилось такое подключение:

Private cn As adodb.Connection
Private rs As adodb.Recordset

Private Sub Form_Activate()
Dim cmd As String
sql As String
Dim cn As adodb.Connection
Dim rs As adodb.Recordset

cmd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB98;Extended Properties=dBASE IV;User ID=Admin;Password=;"
Set cn = New adodb.Connection
cn.ConnectionString = cmd
cn.Open
End Sub

При старте опять же выдает ошибку "Couldn't find installable ISAM" затем ошибку на строчке "sql As String" - "Compile error: Statement invalid outside Type block"

Способ подключения слизал отсюда - http://www.intuit.ru/department/pl/vb/4/5.html

[dr.MIG]

Dim sql As String

У меня при таком способе подключения подобная ошибка не возникает:

Вот что получается

dbf.jpg (35 Кб) Просмотров: 2267

Однако, почему-то отображается только одна запись. При использовании строки подключения Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\folder; подобного не наблюдается, отображаются все записи.

[Наглец]

Подправил код, теперь он стал таким:

Dim dbTest As Database
Private cn As ADODB.Connection
Private rs As ADODB.Recordset

Private Sub Form_Activate()
Dim cmd As String
Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

cmd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB98;Extended Properties=dBASE IV;User ID=Admin;Password=;"
Set cn = New ADODB.Connection
cn.ConnectionString = cmd
cn.Open
End Sub

Private Sub Form_Load()
Dim sDBLocation As String
sDBLocation = App.Path & "\HISTORY.DBF"
Set dbTest = OpenDatabase(sDBLocation)
End Sub

При старте выдает ошибку "Run-time error 3343: Unrecognized database format"
Ясно что ругается на "Непризнанный формат базы данных" но почему..?
Установил SP 6 - непомогло... Мне кажется я код подключения неправильно написал, помогите с кодом пожалуйста, для меня это темный лес...

[Наглец]

Начнем попорядочку...

Private cn As ADODB.Connection
'cn - насколько я понял, переменная отвечающая за метод подключения к базе данных
Private rs As ADODB.Recordset
'rs - переменная которая будет "окном" в нашу базу. Т.е. в неё перенесется вся наша база, так?

Private Sub Form_Activate()
Dim cmd As String
'совершенно непонятно зачем нужна переменная cmd, она как бы служит посредником между методом подключения к 'базе и переменной cn, отсюда вопрос - А зачем?
Dim cn As adodb.Connection
Dim rs As adodb.Recordset

cmd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB98;Extended Properties=dBASE IV;User ID=Admin;Password=;"
'Присваиваем переменной cmd метод подключения к базе "Provider=Microsoft.Jet.OLEDB.4.0" - драйвер который пудет 'использоваться при подключении к базе, "Data Source=D:\VB98" - несовсем понятна эта строчка, в этой директории 'должен лежать драйвер к этой базе или сама база? "Extended Properties=dBASE IV" - совершенно неясно зачем это.
'"User ID=Admin;Password=;" - имя и пароль для доступа к базе, а зачем? Вроде никто незапароливал базу.
Set cn = New adodb.Connection
'эта строчка неочень понятна
cn.ConnectionString = cmd
'присваеваем метод подключения к переменной cn из переменной cmd
cn.Open
'подключаемся к басе
End Sub

При использовании вышенаписанного кода, программа тихо спокойно запускается, ни на что не ругается... Это значит что она успешно получила доступ к базе..? У cn.State значение равно 1.

dr.MIG Все таки лучше использовать эту строчку подключения - cmd = "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\folder;" Тогда зачем нужна эта директория - "Dbq=c:\folder;" и что в ней должно лежать?

Напишите пожалуйста как забить базу в переменную rs и как в дальнейшем её использовать. Желательно с пояснениями, чтобы не тупо вставить код в программу, а понять как это все работает

[Наглец]

Ааа! Все работает, сам до всего догадался
http://www.sharemania.ru/0265837

Огромное спасибо: RayShade, Денис, dr.MIG