| |
|
|
| | Товарищи! Помогите! Ни как понять не могу- почему Access отвязывается от MDW, а VB6- нет!!
Ситуация следующая:
Если из Access пытаться открыть базу при помощи Файла рабочей группы, после этого можно указать другую базу и другой файл рабочей группы- все хорошо открывается.
НО ЕСЛИ ЭТО ДЕЙСТВИЕ ПРОИЗВОДИТЬ ИЗ VB6, то необходимо ЗАКРЫВАТЬ программу, чтобы отвязаться от единожды указанного Файла рабочей группы (причем если указать неправильно, то все равно надо закрывать программу и открывать снова).
Помогите плиз, все выходные на это потратил!! 
Файл базы, с которого подключаемся - runMe.mdb
Файл программы - vb6.exe
Файл рабочей группы- Wrkgrp.mdw
Файл базы, закрытый паролями - db.mdb
p.s. очень устал набирать одно и тоже три раза подряд. 
файл здесь (мне не присоединить его никак): вес- 127кб
http://webfile.ru/1667836
http://rapidshare.com/files/81479698/vb6.rar.html
http://www.uploading.com/files/I9IR8BWE/vb6.rar.html
===
код сюда тоже приведу:
access и vb6 коды одинаковые, только ссылка на родную папку различается.
приведу для access:
Function OpenDb()
Dim WS As DAO.Workspace
Dim DB As DAO.Database
DBEngine.SystemDB = CurrentProject.Path & "\wrkgrp.mdw"
Set WS = DBEngine.CreateWorkspace("name", "Admin", "", dbUseJet)
Set DB = WS.OpenDatabase(CurrentProject.Path & "\db.mdb", False, False, ";pwd=00")
MsgBox "открыли"
Set WS = Nothing
Set DB = Nothing
End Function
|
| |
| |
| |
|
|
|
|
| |
|
|
| | Стало быть при открытии этой самой группы ты пишешь код
а при закрытии этой группы надо тоже код писать close - оцепись...
Function OpenDb()
Dim WS As DAO.Workspace
Dim DB As DAO.Database
DBEngine.SystemDB = CurrentProject.Path & "\wrkgrp.mdw"
Set WS = DBEngine.CreateWorkspace("name", "Admin", "", dbUseJet)
Set DB = WS.OpenDatabase(CurrentProject.Path & "\db.mdb", False, False, ";pwd=00")
MsgBox "открыли"
DB.Close
WS.Close
Set WS = Nothing
Set DB = Nothing
End Function
|
а в VB6 - там ето напиши....
DB.Close
WS.Close | |
| |
| |
|
|
|
|
или как???? 
код ведь закончил свое выполнение. команды ws.close и db.close почему то через раз прокатывают... но если они и сработают- основной вопрос все равно остается 
