Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Копирование таблицы БД1->БД2. Как прописать пароль к БД2?  [new]
Дмитрий77
Member

Откуда:
Сообщений: 4457
Есть простая программа, копирующая таблицу Table из baza2->baza1.
А если на baza1 установлен пароль?
Как зашить его в программу, чтобы не вводить пароль вручную?

Dim Aks As Access.Application
Set Aks = CreateObject("Access.Application")
Aks.Visible = False
Aks.OpenCurrentDatabase ("baza1.mdb")
On Error GoTo creat
Aks.DoCmd.DeleteObject acTable, "Table"
creat:
Aks.DoCmd.TransferDatabase acImport, "Microsoft Access", "baza2", acTable, "Table", "Table"
6 дек 06, 05:19    [3496211]     Ответить | Цитировать Сообщить модератору
 Re: Копирование таблицы БД1->БД2. Как прописать пароль к БД2?  [new]
Дмитрий77
Member

Откуда:
Сообщений: 4457
В смысле пароль установлен на ту базу куда копируем (БД1 по моему тексту)
6 дек 06, 05:21    [3496212]     Ответить | Цитировать Сообщить модератору
 Re: Копирование таблицы БД1->БД2. Как прописать пароль к БД2?  [new]
ILL HEAD
Member [заблокирован]

Откуда:
Сообщений: 8498
подточи для себя (это связывание с таблицами запароленной базы):
inPSW = Nz(InputBox("Введите пароль", "Открытие базы для связывания"))
Set dbt = DBEngine.Workspaces(0).OpenDatabase(FilePuth, False, False, "MS Access;PWD=" & CStr(inPSW))
For Each MyTbl In dbt.TableDefs
     If (MyTbl.Attributes And dbSystemObject) = False Then _
          DoCmd.TransferDatabase acLink, "Microsoft Access", FilePuth, acTable, MyTbl.name, MyTbl.name, False
Next
тоесть надо transerdatabase не другого application (import) , а в другую "workspace.database" (export)
вроде не наврал :)
6 дек 06, 05:44    [3496222]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить