1 - наименование провайдера
2 - наименование сервера
3 - наименование БД
4 - логин
5 - пароль закрытый звездочками
по идее клиент знает всю эту информацию - может кто то делал такое?
другими словами -вытащить параметры соединения из функций Лоции Application.GetADOConnect или LsGetADOConnect
??
вот такой скрипт в действии
Код: Выделить всё
Sub GetParamFromCurrentConnect
Dim Cn
Dim Str
Str=""
Set Cn = Application.GetADOConnect()
For Each Pr in Cn.Properties
Str=Str & Pr.Name & ": - " & Pr.Value & vbcr
next
Msgbox str
End sub


