VPF::Проблема с подключением к БД - Форум программистов

korob2001

Дата 26.5.2005, 23:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61

Привет!!!
Странные вещи происходят. smile

Подключаю к проекту Microsoft ActiveX Data Objects 2.0 Library, затем пытаюсь создать такой соединение:

Код


Option Explicit

Private cn As ADODB.Connection
Private rs As ADODB.Recordset

Private Sub Form_Load()
     Dim sdbUri As String
    sdbUri = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\base\restorant.mdb"
    
    Set cn = New ADODB.Connection
    cn.ConnectionString = sdbUri
    cn.Open
    Set rs = cn.Execute("SELECT * FROM MenuGroups ORDER BY MenuGroup")
    While Not rs.EOF
        cmbGroups.AddItem rs.Fields("MenuGroup")
        rs.MoveNext
    Wend
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub

Получаю следующую ошибку:
Unrecognized database format
Как я понял проблема в драйвере. Попробовал установить соединение с таким драйвером:

Код


sdbUri = "Provider=Microsoft Access Driver (*.mdb);DBQ=" & App.Path & "\base\restorant.mdb"

Получил сообщение о том, что не удалось найти такой драйвер в системе. smile

В чём может быть проблема???

Спасибо.
Добавлено @ 23:58
Вроде ошибку только что нашёл, нужно было в начале указать Driver, а не Provider. Исправляю эту строку на такую:

Код


sdbUri = "Driver=Microsoft Access Driver (*.mdb);DBQ=" & App.Path & "\base\restorant.mdb"

Теперь получаю сообщение:
[Microsoft][Драйвер ODBC Microsoft Access] Слишком мало параметров. Требуется 1
Что теперь не так???

Это сообщение отредактировал(а) korob2001 - 27.5.2005, 00:00

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

korob2001

Дата 27.5.2005, 00:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61

Проблему вроде решил, она была в SQL запросе:

Код


sSQL = "SELECT * FROM MenuGroups ORDER BY MenuGroups"

А нужно было написать так:

Код


sSQL = "SELECT * FROM MenuGroups ORDER BY MenuGroup"

Это сообщение отредактировал(а) korob2001 - 27.5.2005, 00:21

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »