How to populate combobox in VB.net

[dheerloveguru]

Hi, I've re-framed my question. Could anyone solve this for me.

I'm using VB 2010 and Access Database file. The database consists of a table called 'usertbl' with 'username', 'type' and 'level' fields. The records are like follows:

Record 1 - Username: admin Type: admin Level:1
Record 2 - Username: user1 Type: user Level:2
Record 1 - Username: user2 Type: user Level:1

User's Combobox (cboUser) which populated with the username field and the cboType with the Type field. What I want is when the selecting item from the cbouser, the cboType combobox shows only the user's type such as when selecting 'admin' from cboUser, the cboType shows only admin and when select 'user' from cboUser, cboType should shows 'user1' and 'user2'. When both combo boxes are filled it populated a datagridview. But for all works only the problem is when I select 'admin' from cboUser, in the cboType it shows all three users (admin, user1, user2); where only admin should have been displayed.

Here is my code...

Imports System.Data.OleDb

Public Class Form1

Sub fillcombo()

mysql = "Select distinct * From Usertbl"

Dim cboCmd As New OleDb.OleDbCommand
cboCmd.CommandText = mysql
cboCmd.Connection = dataconn
dataread = cboCmd.ExecuteReader
While (dataread.Read())
cboName.Items.Add(dataread("username"))

End While
cboCmd.Dispose()
dataread.Close()

End Sub

Sub fillcbotype()

mysql = "Select distinct [Type] From Usertbl"

Dim cboCmd As New OleDb.OleDbCommand

cboCmd.CommandText = mysql
cboCmd.Connection = dataconn
dataread = cboCmd.ExecuteReader
While (dataread.Read())
cbotype.Items.Add(dataread("Type"))

End While
cboCmd.Dispose()
dataread.Close()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Module1.Connect()
Me.fillcombo()
Me.fillcbotype()
Me.myselection()

End Sub

Private Sub datagridshow()
Dim ds As New DataSet
Dim dt As New DataTable

ds.Tables.Add(dt)
Dim da As New OleDbDataAdapter

da = New OleDbDataAdapter("Select * From Usertbl", dataconn)
da.Fill(dt)

DataGridView1.DataSource = dt.DefaultView
dataconn.Close()


End Sub

Private Sub cboName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboName.SelectedIndexChanged
cbochange()



End Sub
Private Sub cbochange()
Dim ds As New DataSet
Dim dt As New DataTable

ds.Tables.Add(dt)
Dim da As New OleDbDataAdapter

da = New OleDbDataAdapter("Select Distinct * From Usertbl where username= '" & cboName.Text & "' and type='" & cbotype.Text & "'", dataconn)
da.Fill(dt)


DataGridView1.DataSource = dt.DefaultView
dataconn.Close()
End Sub

Private Sub cbotype_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbotype.SelectedIndexChanged

myselection()

End Sub

Private Sub myselection()

Dim mycon As New OleDb.OleDbConnection
mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 'C:\Users\Genius\Desktop\VBCode\Usertable.mdb'"
mycon.Open()


'dataconn.Open()
mysql = "Select * From Usertbl where username = '" & cbotype.Text & "' and type= '" & cbotype.Text & "'"
Dim mycmd As New OleDbCommand
mycmd.CommandText = mysql
mycmd.Connection = mycon
dataread = mycmd.ExecuteReader
If (dataread.Read() = True) Then
cboName.Text = (dataread("Username"))
cbotype.Text = (dataread("type"))
End If

mycmd.Dispose()
dataread.Close()
mycon.Dispose()

End Sub
End Class

[Rabbit]

Is this the same issue as your other thread? If it is, I will merge your two threads because we only allow one thread per question to avoid confusion and doubling up on efforts.