|
|
|
Не могу открыть БД с паролем через Data1
|
|||
|---|---|---|---|
|
#18+
У меня такая проблема я создал БД и задал пароль и теперь на VB не могу открыть ее вот код который сейчас: Private Sub Form_Load() Data1.DatabaseName = App.Path & "\Max.mdb" End Sub Подскажите что нужно добавить чтобы база открывалась. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.09.2008, 09:30 |
|
||
|
Не могу открыть БД с паролем через Data1
|
|||
|---|---|---|---|
|
#18+
Добавляем ссылку на DAO 3.6 в референсах Private Sub Form_Load() Const DB_PWD = "12345"'пароль к БД Dim DB as DAO.Database'Объект База данных Dim RS As DAO.Recordset'набор данных Set DB = OpenDatabase("C:\База.mdb", 0, 0, ";pwd=" & DB_PWD)'открываем БД Set RS = DB.OpenRecordset("здесь запрос")'создаем набор записей Set Data1.Recordset = RS'присваеваем набору Data1 End Sub А далее с Data1 можно работать как обычно ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.09.2008, 12:14 |
|
||
|
Не могу открыть БД с паролем через Data1
|
|||
|---|---|---|---|
|
#18+
Какой запрос? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.09.2008, 08:03 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=35541575&tid=2161842]: |
0ms |
get settings: |
8ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
66ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
50ms |
get tp. blocked users: |
2ms |
| others: | 229ms |
| total: | 378ms |
| 0 / 0 |
