Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как при открытии ADP выдавать свое окно логина? / 4 сообщений из 4, страница 1 из 1
25.04.2003, 07:13
    #32148418
RV
RV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как при открытии ADP выдавать свое окно логина?
Доброго времени суток
Создал проэкт ADP.
Теперь хочу при открытии ADP выдать свое окно логина (а не стандартное)?
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2003, 10:52
    #32148607
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как при открытии ADP выдавать свое окно логина?
Примерно так:
Выводишь форму с полями uname - логин, pass - пароль

На нажатие кнопки "ОК"

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub btnOK_Click()
Dim pas As String, strForm As String
On Error GoTo ErrLogin
uid = Nz(Me.uname.Value,  "")
pas = Nz(Me.pass.Value, "  ")
CurrentProject.OpenConnection " provider=sqloledb;persist security info=true;data source= " _
    & CurrentProject.Connection.Properties(" data source ") & _
    " ;initial catalog=MyDatabase ", Trim(uid), Trim(pas)
Exit Sub

ErrLogin:
      MsgBox " Неверное имя или пароль!!! "
      Me.uname.Value = "  "
      Me.pass.Value = " "
      Me.uname.SetFocus
End Sub
MyDatabase - имя базы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2003, 19:24
    #32149307
SM
SM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как при открытии ADP выдавать свое окно логина?
Только еще надо делать при закрытии проекта отсоединение от сервера
Код: plaintext
CurrentProject.OpenConnection  "provider="
Иначе при следующем открытии Access будет выводить стандартный диалог User/Password
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.04.2003, 17:36
    #32149486
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как при открытии ADP выдавать свое окно логина?
Интересно, почему у меня не выводит...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как при открытии ADP выдавать свое окно логина? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 335ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1681693]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 49ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 199ms
total:  335ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]