|
分類:[VB.NET/VB2005 以降]
'Public Sub New()
'Dim sql As String
'Dim dr As OracleDataReader
'Dim item As ComboLeagueItem
'InitializeComponent()
'cnn.ConnectionString = "User Id=kenshu; Password=kenshu; Data Source=mcskensyu"
'cnn.Open()
'cmd.Connection = cnn
'sql = ""
'sql = sql & " select kydid, "
'sql = sql & " kbnnm "
'sql = sql & " from mcskydmst "
'sql = sql & "where kydkbn = 'A'"
'cmd.CommandText = sql
'dr = cmd.ExecuteReader
' ComboBox2.Items.Clear()
' Do While dr.Read
' item = New ComboLeagueItem(dr.Item("kydid").ToString, _
' dr.Item("kbnnm").ToString)
' ComboBox2.Items.Add(item)
' Loop
'End Sub
このコードは何処に問題があるのかわかりません。
|