Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: Пароль Добавлено: 29.09.03 04:04  

Автор вопроса:  admsasha | Web-сайт: dansoft.krasnokamensk.ru | ICQ: 234002454 

Как поставить пароль на mdb базу программно или  с помощью visdata ?

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Geo



ICQ: 81917030 

Вопросов: 15
Ответов: 17
  Профиль | | #1 Добавлено: 29.09.03 12:18

Function ap_DatabasePassword(strDBPassword, strDBPrevPass)
'strDBPassword is the new password for the database.
'strDBPrevPass is the previous password for the database.

    On Error GoTo errDatabasePassword

    Dim db As DATABASE
    Set db = CurrentDb()
          
    'This line adds the new password to the database.
    db.NewPassword strDBPrevPass, strDBPassword
   
    'Function successful
    Exit Function

errDatabasePassword:
    MsgBox "Function 'ap_DatabasePassword' did not complete successfully."
    Exit Function

End Function

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам