We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Course Of The Month
11 days, 17 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
combo not populating in vb.net
Posted on 2016-08-01
I have a small sub that gets the data, everything is fine up until I get to the add items to the combo, the string variables are populated correctly, I appear to have mishandled the actual .add but cannot see why
I did look at the microsoft website I havnt posted the link
but it says: ' Visual Basic
ComboBox1.Items.Add("Tokyo
I did look at the microsoft website I havnt posted the link
but it says: ' Visual Basic
ComboBox1.Items.Add("Tokyo
Private Sub GetCBChords()
Dim StrProcName As String
Dim StrWord As String
Dim dtChord As DataTable
Dim Stri As String
Dim Strii As String
Dim Striii As String
Dim Striv As String
Dim Strv As String
Dim Strvi As String
Dim Strvii As String
Dim Strdim7 As String
Dim connectionString As String = "Data Source=MAIN-PC\SQLEXPRESS;Initial Catalog=PushCircle;Integrated Security=True;MultipleActiveResultSets=True"
dtChord = New DataTable
StrProcName = "usp_GetChords"
Using connChord As New SqlConnection(connectionString)
Using cmdChord As New SqlCommand(StrProcName, connChord)
cmdChord.CommandType = CommandType.StoredProcedure
connChord.Open()
cmdChord.Parameters.AddWithValue("@Tonic", CBNote.SelectedItem.ToString())
cmdChord.Parameters.AddWithValue("@ScaleType", CBScaleType.SelectedItem.ToString())
Dim reader As SqlDataReader = cmdChord.ExecuteReader()
dtChord.Load(reader)
For Each drRecord As DataRow In dtChord.Rows
Stri = drRecord("i")
Strii = drRecord("ii")
Striii = drRecord("iii")
Striv = drRecord("iv")
Strv = drRecord("v")
Strvi = drRecord("vi")
Strvii = drRecord("vii")
Strdim7 = drRecord("dim7")
Next
CBScaleType.Items.Add(Stri)
CBScaleType.Items.Add(Strii)
CBScaleType.Items.Add(Striii)
CBScaleType.Items.Add(Striv)
CBScaleType.Items.Add(Strv)
CBScaleType.Items.Add(Strvi)
CBScaleType.Items.Add(Strvii)
CBScaleType.Items.Add(Strdim7)
End Using
End Using
End Sub
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
7
3
2
12 Comments
Active today
not sure what your real issue is!
but you have one problem for sure: you are looping through the rows, overwriting your variables for each new row. once you have gone through all the rows, the variables contain only the values of the last row. You finally add these variables (containing only the values of the last row) to the combo!
if you want the values of all the rows, you need to add the content of each row:
but you have one problem for sure: you are looping through the rows, overwriting your variables for each new row. once you have gone through all the rows, the variables contain only the values of the last row. You finally add these variables (containing only the values of the last row) to the combo!
if you want the values of all the rows, you need to add the content of each row:
For Each drRecord As DataRow In dtChord.Rows
Stri = drRecord("i")
Strii = drRecord("ii")
Striii = drRecord("iii")
Striv = drRecord("iv")
Strv = drRecord("v")
Strvi = drRecord("vi")
Strvii = drRecord("vii")
Strdim7 = drRecord("dim7")
CBScaleType.Items.Add(Stri)
CBScaleType.Items.Add(Strii)
CBScaleType.Items.Add(Striii)
CBScaleType.Items.Add(Striv)
CBScaleType.Items.Add(Strv)
CBScaleType.Items.Add(Strvi)
CBScaleType.Items.Add(Strvii)
CBScaleType.Items.Add(Strdim7)
Next
Active 1 day ago
the only other code is but i dont think that is affecting it, if either of the combo boxes get changed the 3rd combo gets repopulated with the data provided from the other two.
Private Sub CBNote_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CBNote.SelectedIndexChanged
If ((CBNote.SelectedIndex = -1) Or (CBScaleType.SelectedIndex = -1)) Then
Else
Call GetCBChords()
End If
End Sub
Private Sub CBScaleType_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CBScaleType.SelectedIndexChanged
If ((CBNote.SelectedIndex = -1) Or (CBScaleType.SelectedIndex = -1)) Then
Else
Call GetCBChords()
End If
End Sub
Active 1 day ago
the row the one row is always passing these fields just with different note and scaletype:
C maj D min E min F maj G maj A min B dim -
C maj D min E min F maj G maj A min B dim -
Active today
Sorry. I may be dumb but I don't understand your issue. Can you provide the full picture of what you trying to achieve?
And in your last comment, you are testing CBScaleType and your GetCBChords methods fills it. Is it really what you want? Looks circular to me!
And in your last comment, you are testing CBScaleType and your GetCBChords methods fills it. Is it really what you want? Looks circular to me!
Active 1 day ago
on the issue of the combos I have a note selector combo and a scaletype selector and if either one of those changes it requeries.
Active today
>>i had assigned the wrong combo name
This is exactly what I told in : And in your last comment, you are testing CBScaleType and your GetCBChords methods fills it. Is it really what you want? Looks circular to me!
This is exactly what I told in : And in your last comment, you are testing CBScaleType and your GetCBChords methods fills it. Is it really what you want? Looks circular to me!
Active today
Do you get an error or exception or is the combobox just blank? I am guessing that the combobox is just blank.
Let's try a different approach:
-saige-
Let's try a different approach:
Imports System.Data.SqlClient
Public Class Form1
Private Sub OnLoad(sender As Object, e As EventArgs) Handles MyBase.Load
GetCBChords(1)
End Sub
Private Sub GetCBChords(id As Integer)
Dim [table] As DataTable = New DataTable
Using [connection] As New SqlConnection("Data Source=.;Initial Catalog=EE_Q28960774;Integrated Security=True;Pooling=False")
Using [command] As New SqlCommand(String.Format("SELECT * FROM Chord WHERE ID = {0}", id), [connection])
[connection].Open()
Dim reader As SqlDataReader = [command].ExecuteReader()
[table].Load(reader)
For Each [row] As DataRow In [table].Rows
For Each [column] As DataColumn In [table].Columns
If Not [column].ColumnName.Equals("ID", StringComparison.OrdinalIgnoreCase) Then
ComboBox1.Items.Add([row]([column].ColumnName))
End If
Next
Next
End Using
End Using
End Sub
End Class
-saige-
Featured Post
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Introduction
Remote Share is a simple remote sharing tool, enabling you to see, add and remove remote or local shares.
The application is written in VB.NET targeting the .NET framework 2.0.
The source code and the compiled programs have been in…
Introduction
When many people think of the WebBrowser (http://msdn.microsoft.com/en-us/library/2te2y1x6%28v=VS.85%29.aspx) control, they immediately think of a control which allows the viewing and navigation of web pages. While this is true, it's a…
Michael from AdRem Software explains how to view the most utilized and worst performing nodes in your network, by accessing the Top Charts view in NetCrunch network monitor (https://www.adremsoft.com/). Top Charts is a view in which you can set seve…
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month11 days, 17 hours left to enroll
623 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.