Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / OpenConnection / 3 сообщений из 3, страница 1 из 1
06.08.2004, 17:52:07
    #32639194
Nick2004
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OpenConnection
Есть код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub btn_Ok_Click()
    Dim s As String
    s = Application.CurrentProject.BaseConnectionString
    Debug.Print "Было "+s
    CurrentProject.CloseConnection
    CurrentProject.OpenConnection s, user, pas
     ''CurrentProject.Connection.Properties.Item("Application Name") = "hhh" 
    s = Application.CurrentProject.BaseConnectionString
    Debug.Print "Стало "+s
End Sub

Выдает результат
Код: plaintext
1.
2.
3.
Было PROVIDER=SQLOLEDB. 1 ;PASSWORD=xxx;PERSIST SECURITY INFO=TRUE;USER ID=sa;INITIAL CATALOG=arch2000_convSQL;DATA SOURCE=smeta-server;Use Procedure for Prepare= 1 ;Auto Translate=True;Packet Size= 4096 ;Application Name=erwgteryh;Workstation ID=SMETA-SERVER

Стало PROVIDER=SQLOLEDB. 1 ;PASSWORD=xxx;PERSIST SECURITY INFO=TRUE;USER ID=sa;INITIAL CATALOG=arch2000_convSQL;DATA SOURCE=smeta-server

Иными словами, не устанавливаются дополнительные свойства подключения: Application Name и тд.

Как пофиксить?
...
Рейтинг: 0 / 0
06.08.2004, 18:13:42
    #32639226
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OpenConnection
а просто connect создать что-то не позволяет ?
...
Рейтинг: 0 / 0
21.10.2004, 15:30:39
    #32748677
Serbat_Ivan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OpenConnection
Shuhard , а вопрос-то не так прост на самом деле.
Допустим есть задача хранить в свойствах подключения IP адрес машины.
Очень удобное место - Workstation ID , т.е. hostname на сервере. В обычном коннекшене - как? Если кто знает - буду только благодарен. А вот Currentproject.openConnection мог - бы помочь, если бы работал как от него ожидают. Ан нет... Он сбрасывает все дополнительные свойства в реальные, хотя если делать то же самое из диалога - всё как нужно...
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / OpenConnection / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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