Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Управление соединением из проекта adp к MSSQL / 5 сообщений из 5, страница 1 из 1
11.12.2003, 08:59
    #32350058
Shubnikov
Shubnikov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Управление соединением из проекта adp к MSSQL
Можно ли программно задать сервер, имя пользователя и пароль для открытия соединения с SQL Server'ом из проекта?

Стандартное окно диалога я инициировал.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Private Sub Form_Open(Cancel As Integer)
    Dim constr$
    
    On Error GoTo err
err_line:
    SendKeys  "+{TAB}"  & GetUser() &  "{TAB}" 
    constr = CurrentProject.Connection.ConnectionString
    fl_first = True
    
    
    Exit Sub
err:
    If MsgBox( "Ошибка соединения"  & vbCrLf &  "Повторить попытку ?" , _
    vbQuestion + vbYesNo + vbDefaultButton1,  "Внимание !" ) = vbNo Then
        Cancel = True
    Else
        Resume err_line
    End If
    
End Sub

Но в случае ошибки повторно оно уже не открывается. Должен же быть другой способ . Может кто знает ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2003, 09:26
    #32350096
Hummer
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Управление соединением из проекта adp к MSSQL
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim con As ADODB.Connection
Set con = New ADODB.Connection
    With con
        .Provider =  "sqloledb" 
        .Properties( "Data Source" ).Value =  "[имя сервера]" 
        .Properties( "Initial Catalog" ).Value =  "[имя БД]" 
        '.Properties("Integrated Security") = "SSPI" ' - если Windows аутентификация
        .Properties( "User ID" ).Value =  "[пользователь]" 
        .Properties( "Password" ).Value =  "[пароль]" 
        .CursorLocation = adUseClient ' - это для курсоров
        .CommandTimeout = 0
        '.Open - ' открытие коннекта
    End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2003, 09:35
    #32350105
Хам трамвайный
Хам трамвайный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Управление соединением из проекта adp к MSSQL
посм. отличный
пример уч. базы Northwind.adp
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2003, 10:24
    #32350196
Shubnikov
Shubnikov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Управление соединением из проекта adp к MSSQL
2 Hammer

Это я проделывал неоднократно в VB. А как теперь это соединение назначить соединением проекта, чтобы все формы и др. работали без дополнительных изменений? Поскольку, как я понимаю, переназначить сединение для формы на другое возможности нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2003, 11:04
    #32350288
Hummer
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Управление соединением из проекта adp к MSSQL
Смотреть тогда в сторону Currentproject.OpenConnection
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
With CurrentProject
    If .IsConnected = True Then .CloseConnection
    ' Windows         
    .OpenConnection _
    "PROVIDER=SQLOLEDB.1;INTEGRATED SECURITY=SSPI;PERSIST SECURITY INFO=TRUE;DATA SOURCE=" _
    & имя сервера & ";INITIAL CATALOG=" & имя БД
    ' SQL
    .OpenConnection  "Provider="  &  "SQLOLEDB.1 " &  ";Data Source="  & [имя сервера] &  ";Initial Catalog="  & [имя БД] & _
     ";PERSIST SECURITY INFO=True;Application Name="  & [имя приложения] &  ";" , [имя пользователя], [пароль]
End With


Даны 2 строки при различных видах аутентификации.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Управление соединением из проекта adp к MSSQL / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 381ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1677716]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 46ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 249ms
total:  381ms
x
x
Закрыть


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