ConnectionString

noobs
Дата: 19.01.2016 08:21:41
Добрый день, подскажите как правильно сделать подключению к серверу?
Делаю вот так
Dim cn As ADODB.Connection
Dim conn As String
conn = "Provider=SQLOLEDB.1;Password=oris;Persist Security Info=True;User ID=spp_oris;Initial Catalog=NCI_RN;Data Source=ung-38"
Set cn = New ADODB.Connection
cn.Open conn


но все равно выходит окно ошибки
noobs
Дата: 19.01.2016 08:23:08
Библиотека MS ActiveX Data Objects 2.8 library подключена
Rivkin Dmitry
Дата: 19.01.2016 09:43:25
noobs,

With cn
.ConnectionString = conn
.Open

End With
noobs
Дата: 19.01.2016 12:09:06
Спасибо большое, так все работает.
Чем запись с with отличается от моей? Суть ведь одна и та же.
Как понять когда нужно использовать with?
Rivkin Dmitry
Дата: 19.01.2016 12:47:05
noobs
Спасибо большое, так все работает.
Чем запись с with отличается от моей? Суть ведь одна и та же.
Как понять когда нужно использовать with?

Да, почти ничем. В блоке with не прописывается весь путь объекта только и всего. Удобно, когда, например, обращаещься к другой открытой форме. Я просто скопировал кусок кода
noobs
Дата: 19.01.2016 15:15:18
Почему то перестало работать подключение, снова появляются те же. debug показывает такую картину. Как исправить?
Rivkin Dmitry
Дата: 19.01.2016 16:25:46
noobs,

И что мы должны здесь увидеть и понять? Спроси статус соединения в дебаггере
noobs
Дата: 19.01.2016 21:46:10
как спросить статус соединения?
noobs
Дата: 20.01.2016 06:44:53
Добавил проверку подключения
On Error Resume Next
             cn.Open
             Err_num& = Err.Number 
             On Error GoTo 0 
             If Err_num& = 0 Then   
                MsgBox "live"
             Else                           
                MsgBox "dead"
               End If

подключение live но запрос не выполняется
upr = " "
upr.RowSource = "SELECT dbo_KUR.kod_upr FROM dbo_KUR Where dbo_KUR.name_kur='" & Me.users & "'"
upr.Requery

upr - это выпадающий список в который помещается результат запроса со всеми кодами.