I am trying to pull all items from a combo box that is populated by a database. Is there any way to perform this function in vb.net 2003. thanks
Printable View
I am trying to pull all items from a combo box that is populated by a database. Is there any way to perform this function in vb.net 2003. thanks
I am a bit confused by your question. Do you want to load items from the database into a combobox or get all the items that are in the combobox?
this?
VB Code:
Dim cn As New SqlConnection() Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cn.ConnectionString = "user id=sa;password=password;initial catalog=northwind" cn.Open() Dim cmdtext As String = "select * from territories" Dim cm As New SqlCommand(cmdtext, cn) Dim dr As SqlDataReader = cm.ExecuteReader While dr.Read ComboBox1.Items.Add(dr(0) & ", " & dr(1) & ", " & dr(2)) End While IDontKnow() End Sub Sub IDontKnow() Dim s As String Dim s2 As String For Each s2 In ComboBox1.Items s &= s2 & Constants.vbCrLf Next MessageBox.Show(s) End Sub
What I am trying to do is pull information from dataadapter1 into a combobox, then based on the information in that combobox a sql statement will select fields from another table in the database. The data retrieved is added to a dataset, then populates into an invisible combobox or something that can hold various datareturns and can be syphoned off to the database at completion. Then based off of the information in the second combobox or whatever it may be, another sql statement is created to populate a third data set and combo box based on the selections of the previous two. I should probably not post code as it is company property.
like this?
i don't quiet understand the information in the second combobox or whatever it may be in your post.VB Code:
Dim cn As New SqlConnection() Dim da As New SqlDataAdapter() Dim ds As New DataSet() Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cn.ConnectionString = "user id=sa;password=password;initial catalog=pubs" cn.Open() da.SelectCommand = New SqlCommand("select * from publishers", cn) ds.Tables.Add(New DataTable("publishers")) ds.Tables.Add(New DataTable("titles")) da.Fill(ds.Tables("publishers")) ComboBox1.DataSource = ds.Tables("publishers") ComboBox1.DisplayMember = "pub_name" End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Dim o As Object = ComboBox1.Items(ComboBox1.SelectedIndex) da.SelectCommand = New SqlCommand("select * from titles where pub_id='" & o(0) & "'", cn) ds.Tables("titles").Clear() da.Fill(ds.Tables("titles")) ComboBox2.DataSource = ds.Tables("titles") ComboBox2.DisplayMember = "title" End Sub