怎样在combobox中显示数据库中某个表中的某一字段?该怎么解决
怎样在combobox中显示数据库中某个表中的某一字段?
我在网上查了很多资料,大部分的解决方法都差不多.但是,我把代码写进去以后,总是会有一些关键子会报错,我不知道是不是没有声明还是其他什么原因,请高手告诉我到底要怎样在combobox中显示表中的某一字段,最好能在代码旁附上注释.谢谢各位了!
这是我写的代码,不会报错,但是运行后下拉框中只是空白的
dim conn As New SqlConnection
dim comm As New SqlCommand
dim ds As New DataSet
dim da As New SqlDataAdapter
ds.Clear()
conn.Open()
comm.Connection = conn
comm.CommandType = CommandType.Text
comm.CommandText = "select username from login " '登陆表中的用户名字段 '
da.SelectCommand = comm
da.Fill(ds)
For i = 0 To ds.Tables.Count - 1
ComboBox1.Items.Add(ds.Tables(i))
Next i
conn.Close()
------解决方案--------------------
这句 ComboBox1.Items.Add(ds.Tables(i))
改为 ComboBox1.Items.Add(ds.Tables(0).Rows(i).Item( "username ").ToString)
表示第0个表第i行的username字段
我在网上查了很多资料,大部分的解决方法都差不多.但是,我把代码写进去以后,总是会有一些关键子会报错,我不知道是不是没有声明还是其他什么原因,请高手告诉我到底要怎样在combobox中显示表中的某一字段,最好能在代码旁附上注释.谢谢各位了!
这是我写的代码,不会报错,但是运行后下拉框中只是空白的
dim conn As New SqlConnection
dim comm As New SqlCommand
dim ds As New DataSet
dim da As New SqlDataAdapter
ds.Clear()
conn.Open()
comm.Connection = conn
comm.CommandType = CommandType.Text
comm.CommandText = "select username from login " '登陆表中的用户名字段 '
da.SelectCommand = comm
da.Fill(ds)
For i = 0 To ds.Tables.Count - 1
ComboBox1.Items.Add(ds.Tables(i))
Next i
conn.Close()
------解决方案--------------------
这句 ComboBox1.Items.Add(ds.Tables(i))
改为 ComboBox1.Items.Add(ds.Tables(0).Rows(i).Item( "username ").ToString)
表示第0个表第i行的username字段