Public Okręt podwodny FillChkListBox (ByVal lb Jako CheckedListBox, ByVal sql Sznurek, ByVal ParameterName Jako Sznurek, ByVal ParameterValue Sznurek)
Ćmić connetionString Sznurek
Ćmić związek Jako SqlConnection
Ćmić rozkaz Jako SqlCommand
Ćmić dt Jako DataTable
Ćmić adaptator Jako Nowy SqlDataAdapter
'Ciemnawy ds Jako Nowy DataSet
Ćmić i Jako Int32
connetionString = myCN
związek = Nowy SqlConnection (connetionString)
Próba
związek. Otwierać ()
rozkaz = Nowy SqlCommand (sql, związek)
command.CommandType = CommandType.StoredProcedure
rozkaz. Parameters.AddWithValue (ParameterName.ToString, ParameterValue.ToString)
dt = Nowy DataTable
dt. Ładunek (command.ExecuteReader)
adaptator. Dispose ()
rozkaz. Dispose ()
związek. Zamykać ()
lb.DataSource = dt
lb.DisplayMember = dt. Kolumna (1).ColumnName
lb.ValueMember = dt. Kolumna ((0)) .ColumnName
Chwyt wyjątek Jako Wyjątek
Końcówka Próba
Końcówka Okręt podwodny
Intymny Okręt podwodny lblAddToList_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się lblAddToList.Click
Dla Me.chkBoxAvailable.CheckedIndices x W Me.chkBoxAvailable.CheckedIndices
'' I chcieć the wartość nie the tekst nie sprawdzać rzecz
MsgBox (Me.chkBoxAvailable.Text.ToString)
MsgBox (Me.chkBoxAvailable.SelectedValue.ToString)
Następnie
Końcówka Okręt podwodny
|