XP ADP
Хочу менять свойства конекта Application Name и Workstation ID

смотрю CurrentProject.BaseConnectionString
PROVIDER=SQLOLEDB.1;INTEGRATED SECURITY=SSPI;PERSIST SECURITY INFO=FALSE;INITIAL CATALOG=Citibank;DATA SOURCE=10.10.129.90

Смотрю подключение через EM там по умолчанию проставляется
Application Name=Microsoft Office XP;Workstation ID=CB028(моя станция)

замечательно

Захожу Файл-Подключение-All-Edit Value
меняю значения подключаюсь
смотрю CurrentProject.BaseConnectionString
PROVIDER=SQLOLEDB.1;INTEGRATED SECURITY=SSPI;PERSIST SECURITY INFO=FALSE;INITIAL CATALOG=Citibank;DATA SOURCE=10.10.129.90;Use Procedure for Prepare=1;Auto Translate=True;Application Name=AppDSA;Workstation ID=zzz

превосходно

Теперь хочу заменить из кода
Property BaseConnectionString As String read-only
но OpenConnection([BaseConnectionString], [UserID], [Password])

делаю
CurrentProject.CloseConnection
CurrentProject.OpenConnection "PROVIDER=SQLOLEDB.1;INTEGRATED SECURITY=SSPI;PERSIST SECURITY INFO=FALSE;INITIAL CATALOG=Citibank;DATA SOURCE=10.10.128.13;Use Procedure for Prepare=1;Auto Translate=True;Application Name=AppDSA;Workstation ID=zzz"

хрен , расширенные свойстваи игнорируются
вместо них подставляются значения по умолчанию
CurrentProject.BaseConnectionString приобретает вид
PROVIDER=SQLOLEDB.1;INTEGRATED SECURITY=SSPI;PERSIST SECURITY INFO=FALSE;INITIAL CATALOG=Citibank;DATA SOURCE=10.10.129.90


Как програмно добится эфекта как при ручном вводе свойств "Файл-Подключение-All-Edit Value" чтобы не игнорировало расширенный свойства?

PS если строку в CurrentProject.OpenConnection
не подставлять (параметр то опциональный)
то конекшн окна бызы не открывается (два других вижу)
а свойства подключения слетают (BaseConnectionString="")
и проект при запуске становится оторванным от бызы.

>пустым значением Workstation ID
В том то и дело что он игнорирует любые значения Workstation ID
которые я пытаюсь ему задать
и ставить вместо них значения по умолчанию
Application Name=Microsoft Office XP;Workstation ID=CB028

с обычным ADO конекшеном все в порядке
а с служебными от ADP вот такая петрушка

2Victosha
Завтра попробую
2Proga
В кратце задумывалось так

Запускается ADP(ADE)-к оторванный от базы
Делает разные дела для которых подключение к базе не нужно (и даже лишне)
Например оглядывается вокруг и спомощью обмена форматированными
UDP сообщениями через WinSock с пулом приложений
пытается обнаружить уже запущенного себя
если находит то сам завершается , а найденный процесс активирует.
....................................................
Определяет локальный IP-к пихает его в Workstation ID
и подключается к базе

сначала пытается через домен
если не получилось то выкидываю диалог для скульной аутентификации
(можно ето подразвить с запоминанием последнего юзверя или списком оных
но врядли буду сильно вылизывать у меня за спиной хочухи нет как у тебя)

в результате я со стороны сервера всегда могу узнать IP-к клиента
(нужно для оповещения клиента о событиях на сервере)
я конечно могу замутить некую отдельную табличку и пихать туды
или сделать отдельный чистый ADO конект (тем более что он иногда и так нужен)
но мне показалось изящным порешать это через свойства штатных конектов
а тут на табе незадача.

2Victosha
сделал
Private Sub Кнопка0_Click()
Dim bSStr As String
CurrentProject.CloseConnection
bSStr = "PROVIDER=SQLOLEDB.1;INTEGRATED SECURITY=SSPI;PERSIST SECURITY INFO=FALSE;INITIAL CATALOG=Citibank;DATA SOURCE=10.10.129.90;Use Procedure for Prepare=1;Auto Translate=True;Application Name=AppDSA;Workstation ID=xxx123"

With CurrentProject.Connection
.Close
.Open bSStr
End With

End Sub
после
CurrentProject.Connection.Open bSStr
появляются три подключения
причем только одно из них "xxx123"
но при обращении к CurrentProject.Connection
аксесс почемуто его закрывает и открывает заново уже без "xxx123"

>почему бы не использовать имя компь
1)Юзер может быть из другого домена
2)имя все равно переводится в IP но сервак который это делает
может отвечать очень долго поскольку приоритет отдан обслуживанию мультимедийных пакетов IP-телефонии
даже если вместо IP сервака поставить в проекте его имя то подключается заметно медленнее.
Лишний раз его нагружать и от него зависеть не хочется.

Цель у меня одна
чтобы ХП на сервере могла узнать IP подключенных клиентов
раз не получилось через штатные конекшены
Теперь думаю что лучше
создать служебнуб табличку и писать в нее
или создавать еще один чисто ADO конект передавая таки IP через Workstation ID

хотя надежда есть
ведь аксесс это как-то делает когда руками задаеш
мабудь есть какая зацепка.

Писать напрямую не хочется (хотя в приципе найти строку в файле не так уж сложно)
хочется запихать в уже открытый и присоеденится к серваку
чтобы в его master.dbo.sysprocesses поле hostname содержало IP клиента

>А как SQL сервер будет общаться с этим сервисом - это сдед вопрос, там никаких проблем
проблеммы как раз есть
ALTER PROCEDURE SendWinSockUDP_p
(@Mes varchar(255))
as
DECLARE @hr int , @obj int
DECLARE @ff varbinary(255)
exec @hr=sp_OACreate 'MSWinSock.Winsock.1', @obj OUTPUT
exec @hr=sp_OASetProperty @obj, 'Protocol',1
exec @hr=sp_OASetProperty @obj, 'RemoteHost','10.10.129.90'
exec @hr=sp_OASetProperty @obj, 'RemotePort',65530
SET @ff=cast(@Mes as varbinary(255))
exec @hr=sp_OAMethod @obj,'SendData',NULL,@ff
EXEC @hr = sp_OADestroy @obj

Если использовать exec @hr=sp_OASetProperty @obj, 'Protocol',0 --(TCPIP)
то необходимо дождатся соединения
обычно это делается отслеживанием события Connect
как это сделать на T-SQL?
цикл задержки со сканом свойства State тоже ничего не дает
на VB в тело вставляеш DoEvents и нет проблем
как это сделать на T-SQL?
Собственно потому и выбрал UDP, тем более что его ограничения для меня
в данном случае(оповещение клиента о серверных событиях) не существенны.

PS Можно конечно написать расширенную ХП
но во первых это сложнее,
а во вторых у меня на работе сейчас такая машина ,
что если я на нее VS поставлю она сдохнет.