Достала уже !

Нижепреведённый код работает как надо с откомментированной строкой
'MessageBox.Show(exe.Message), снимаешь комментарий, он тоже работает, но выкидывает сообщение "The ConnectionString property has not been initialized".
Жмёшь ОК, всё работает дальше. Но на кой мне нужны эти сообщения.

Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
Dim cmd As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand
Dim da As System.Data.SqlClient.SqlDataAdapter = New
System.Data.SqlClient.SqlDataAdapter(cmd)
Dim dts As DataSet = New DataSet
Try
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "UP_SelAutoCat"
cmd.Connection = Me.SqlConnection1
cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ident", SqlDbType.Int))
cmd.Parameters(0).Direction = ParameterDirection.Input
cmd.Parameters(0).Value = Me.ComboBox1.SelectedValue

dts.Tables.Add("UP_SelAutoCat")
Me.grdAutoCat.DataSource = dts
Me.grdAutoCat.DataMember = "UP_SelAutoCat"
da.Fill(dts, "UP_SelAutoCat")

Catch exe As Exception
'MessageBox.Show(exe.Message)
End Try
End Sub

Можно ли игнорировать это откомментировав строку, или всё-таки надо искать причину ?


Спасибо

Говоря то, что код работает как надо, я имел ввиду то, что результат его работы получается таким, каким и надо, и не происходит выкидывания в отладчик, стало быть ошибка явно не критическая. А вот насколько целесообразно её отлавливать я не могу пока определить.
Конечно, я пытался отловить её, конкретно MessageBox.Show(exe.StackTrace) указывает на строку
da.Fill(dts, "UP_SelAutoCat")
но что здесь не так я не пойму, к тому же думаю, что если ругается на заполнение адаптера, то реально ошибка может быть до этой строки.

Добрый день уважаемый Sa

Чтой-то без Вас совсем труба ...

Если убрать try exeption, то указывает на строку
da.Fill(dts, "UP_SelAutoCat")

В этой же форме ещё присутствует код

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cmd As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand
Dim da As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(cmd)
Dim dts As DataSet = New DataSet
Try
cmd.CommandText = "select * from AutoCatalog"
cmd.Connection = Me.SqlConnection1

da.Fill(dts, "AutoCatalog")
With Me.ComboBox1
.DataSource = dts.Tables("AutoCatalog")
.DisplayMember = "model"
.ValueMember = "identTypeAuto"
End With

Catch exe As Exception
MessageBox.Show(exe.Message)
End Try

End Sub

Там я тоже убирал try exeption, но ошибок там не было. Строка подключения там используется одна и та же.

Спасибо за отклик.

В этом случае выдаёт всё то же "The ConnectionString property has not been initialized" и "The connection is already Open (state=Open)", к тому же заполнение адаптера не происходит.

Спасибо, сейчас проверю ещё раз.

PS Такая мысль приходила в голову, но уверен не был - смотрел бегло.

Ox, смотрел, смотрел - открытых Connection не нашёл, но решил проблему, подставив в Main форму ConnString как Public Shared. Потом переписал вручную объекты ADO и всё заработало.
Блин, до сих пор не пойму - помогает код мастера, или мешает ?