Private Sub Form_Load() 
Dim MyDL As MSDASC.DataLinks 
Dim MyConn As ADODB.Connection 

Set MyDL = New MSDASC.DataLinks 
Set MyConn = MyDL.PromptNew 


If MyConn Is Nothing Then 
''If MyConn.ConnectionString = vbNullString Then 
Set MyDL = Nothing 
Set MyConn = Nothing 
Exit Sub 
'' End If 
End If 

Debug.Print MyConn.Properties("Persist Security Info").Value 
Debug.Print MyConn.Properties("Initial Catalog").Value 
Debug.Print MyConn.Properties("User ID").Value 

End Sub 

Private Sub Form_Load() 
Dim MyDL As MSDASC.DataLinks 
Dim cn As ADODB.Connection 

Set MyDL = New MSDASC.DataLinks 
Set cn=New ADODB.Connection
if MyDL.PromptEdit(cn) then

Debug.Print cn.ConnectionString

end if
End Sub 

Persist Security Info=False

...
Set MyDL = New MSDASC.DataLinks 
Set cn=New ADODB.Connection
cn.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=True;Data Source=;User ID=;Password=;"
if MyDL.PromptEdit(cn) then
...

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы