Здесь есть ошибка?

[dr.MIG]

Себе в институт писал программу... Вроде всё просто, а всё какие-то нелепые ошибки допускаю. В среду нести показывать, а ещё раз обложаться не хочется. Суть ошибок в соединении с базой данных. Поэтому если не трудно скажите, plz, есть ли здесь ошибки.

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

Private Sub Form_Load()
Dim cn As New Connection, rs As New Recordset
DBName = App.Path & "/db3.mdb"
conString = "DSN=База данных MS Access;DBQ=" & DBName & ";DriverId=25;"
cn.ConnectionString = conString
cn.Open
strQuerry = "Select*FROM " & "Table_Name"
rs.Source = strQuerry
Set rs.ActiveConnection = cn
rs.Open
Set MSHFlexGrid1.DataSource = rs
End Sub


[GSerg]

• App.Path может содержать финальный слэш, а может не содержать. Ввести функцию EnsureSlash.
• Не "/db3.mdb", а "\db3.mdb". Но, при наличии той самой EnsureSlash, "db3.mdb".
• Не уверен в правильности синтаксиса ODBC (не в смысле что есть ошибка, а просто не знаю ). Сходи на www.connectionstrings.com
• Точно можно писать звёздочку слитно с SELECT? Я обычно пробелы ставлю всегда...
• Таки "Table_Name" или Table_Name?
• А не вынести ли объявления cn и rs на уровень формы, а?

[Konst_One]

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

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test\test.mdb;Persist Security Info=False;"

[alibek]

Может DSN используется специально?

[Konst_One]

может быть, но что-то мне подсказывает, что он ему не нужен

[dr.MIG]

2 Konst One: а в чём закл. разница между моим кодом (DSN) и

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


cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test\test.mdb;Persist Security Info=False;"


В чём приоритеты использования последнего кода?

[Ennor]

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

Это как минимум .

[Andrey Fedorov]

2 Konst One: а в чём закл. разница между моим кодом (DSN) и

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

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test\test.mdb;Persist Security Info=False;"


В чём приоритеты использования последнего кода?

В твоем коде используется подключение через ODBC. Драйвер обозван по русски -> не везде пойдет.

Лучше пользуй подключение через провайдера OLEDB, как и советовали...