Ответить на сообщение

Вы отвечаете на сообщение:

ник: akkorn
Товарищи! Помогите! Ни как понять не могу- почему 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

Ваше имя:
Пароль:

Цитировать: [quote][/quote]	Код: [code][/code]
Жирный: [b][/b]	Наклонный: [i][/i]
URL: [url][/url]

Сообщение:
	Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru
Прикрепить:

Для вставки смайлов в текст щелкните по значку.

Форумы HiProg.com - MS ACCESS, VBA, VB