Не определяется база данных

[MikeGerg]

Проблема следующего плана.
Программа писалась очень давно на VB4, VB5, VB6 под ОС Windows 2000. При попытке запустить её в VB6 под Windows XP возникает ошибка (последующее зацикливание) после следующего кода:

Private Sub Form_Load()
Dim rs1 As DAO.Recordset
Dim i As Integer, j As Integer
On Error Resume Next
Set db = Workspaces(0).OpenDatabase(App.Path & "NameDB.mdb")
Set RS = db.OpenRecordset("Staff", dbOpenDynaset)
Set rs1 = db.OpenRecordset("User rights")

If rs1.RecordCount Then
rs1.MoveLast
ReDim Rights(rs1.RecordCount, 14)
rs1.MoveFirst
Do Until rs1.EOF
i = i + 1
For j = 1 To 14
Rights(i, j) = Trim(rs1.Fields(j - 1).Value)
Next j
rs1.MoveNext
Loop
End If

Не определяется база данных. Т.е. после строки
Set db = Workspaces(0).OpenDatabase(App.Path & "NameDB.mdb")
значение db – “nothing”. Ну и соответственно все проблемы после.
На Windows 2000 всё проходит без проблем.

Вопрос: в чём фишка и как её устранить?

[Konst_One]

Set db = Workspaces(0).OpenDatabase(App.Path & "\NameDB.mdb")

[shady]

Да и On Error Resume Next не очень хорошо использовать при загрузке формы...

[zHackLeX]

В общем случае

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


Set db = Workspaces(0).OpenDatabase(App.Path & iif(Right(App.path,1)="\","","\" & "NameDB.mdb") )


(ну это так, до кучи)

[shady]

Returns or sets the current path

До папки -- без завершающего слеша.

[MikeGerg]

Большое спасибо, только дело не в пути.
Путь прописан корректно и при запуске на платформе W2000 всё идёт без проблем!
Какая то проблема с XP.
В References помимо прочего подключены Microsoft DAO 2.5/3.0 Compatibility Library, Microsoft ActiveX Data Objects 2.0 Library и Microsoft ActiveX Data Objects Recordset 2.8 Library (именно в таком порядке). Где-то когда-то читал, что могут возникать конфликты при неявном объявлении объектов типа Recordset и Database. Но не помню где и что конкретно.
Очень нужна помощь или подсказка!
С уважением!

[GSerg]

при запуске на платформе W2000 всё идёт без проблем!

Видать потому, что на платформе W2000 программа установлена в корень диска?

[MikeGerg]

Во всех случаях проект запускается с USB Flash Drive.

[VVitafresh]

MikeGerg, может быть на платформе W2000 установлены Jet и MDAC, а на другом компе нет? Установить не пробовал?

И насчет слеша тебе правильно все говорят: если программа установлена в корне диска, то App.Path будет со слешем в конце, в противном случае слеша не будет.

[MikeGerg]

Путь:
...OpenDatabase(App.Path & "\b\dbARM_SV.mdb")
Да и потом, при наличии ошбки не стартовала бы в 2000.
А на счёт Jet и MDAC если можно по подробнее?

[VVitafresh]

Путь:
...OpenDatabase(App.Path & "\b\dbARM_SV.mdb")
Да и потом, при наличии ошбки не стартовала бы в 2000.

И все-таки лучше приучить себя писать изначально правильно.

А на счёт Jet и MDAC если можно по подробнее?

Можно:
http://bbs.vbstreets.ru/viewtopic.php?t=30412

[MikeGerg]

Мои бдагодарности и признательность всем!
В ссылках заменил Microsoft DAO 2.5/3.0 Compatibility Library на Microsoft DAO 2.5/3.51 Compatibility Library и всё пошло.

Отдельная благодарность за Jet и MDAC!

С уважением!