ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Управление соединением из проекта adp к MSSQL
5 сообщений из 5, страница 1 из 1
Управление соединением из проекта adp к MSSQL
    #32350058
Shubnikov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shubnikov
Участник
Можно ли программно задать сервер, имя пользователя и пароль для открытия соединения с 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, 08:59
| Ответить | Цитировать | Написать  
Управление соединением из проекта adp к MSSQL
    #32350096
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
Код: 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:26
| Ответить | Цитировать | Написать  
Управление соединением из проекта adp к MSSQL
    #32350105
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хам трамвайный
Участник
посм. отличный
пример уч. базы Northwind.adp
...
Рейтинг: 0 / 0
11.12.2003, 09:35
| Ответить | Цитировать | Написать  
Управление соединением из проекта adp к MSSQL
    #32350196
Shubnikov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shubnikov
Участник
2 Hammer

Это я проделывал неоднократно в VB. А как теперь это соединение назначить соединением проекта, чтобы все формы и др. работали без дополнительных изменений? Поскольку, как я понимаю, переназначить сединение для формы на другое возможности нет.
...
Рейтинг: 0 / 0
11.12.2003, 10:24
| Ответить | Цитировать | Написать  
Управление соединением из проекта adp к MSSQL
    #32350288
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
Смотреть тогда в сторону 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
11.12.2003, 11:04
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Управление соединением из проекта adp к MSSQL
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&tid=1677716]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 179ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 245ms
total:  529ms
созд. / загр.: 529ms
x
x
Закрыть


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