Item ComboBox dari ComboBox - Pemrograman Visual Basic

Belajar Pemrograman Visual Basic Net itu enak dan menantang, kenapa? Setelah lama mencari solusi untuk kasus ini akhirnya ketemu jawaban untuk "Mengisi ComboBox dari Pilihan ComboBox Visual Studio 2008", Langsung aja ini Source ya.

Contoh Untuk Mengisi Cmb_A
Sub Cmb_A()
        Call Untuk_Conect_Database()
        xSQL = ""
        xSQL = "select No_Ref from Ref_Kepala order by No_Ref"
        CMD_odbc = New Odbc.OdbcCommand(xSQL, CONN_odbc)
        DTReader_odbc = CMD_odbc.ExecuteReader()
        If DTReader_odbc.HasRows Then
            While DTReader_odbc.Read
                Me.No_Ref.Items.Add(DTReader_odbc("No_Ref"))
            End While
        Else
            MessageBox.Show("Nomor Ref Tidak Ada...", "Toranno Pesan", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
        DTReader_odbc.Close()
        CMD_odbc.Dispose()
        CONN_odbc.Close()
    End Sub

Item ComboBox dari ComboBox - Pemrograman Visual Basic

Contoh untuk mengisi Cmb_B
Sub Cmb_B()
        Call Untuk_Conect_Database()
        xSQL = ""
        xSQL = "select PCI from Ref_Isi where No_Ref='" & No_Ref.Text & "'"
        CMD_odbc = New Odbc.OdbcCommand(xSQL, CONN_odbc)
        DTReader_odbc = CMD_odbc.ExecuteReader()
        If DTReader_odbc.HasRows Then
            While DTReader_odbc.Read
                Me.N_PCI.Items.Add(DTReader_odbc("PCI"))
            End While
        Else
            MessageBox.Show("Nomor Ref Tidak Ada...", "Toranno Pesan", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
        DTReader_odbc.Close()
        CMD_odbc.Dispose()
        CONN_odbc.Close()
    End Sub

sehingga dengan kode ini, jika dipilih Item di Cmb_A maka Cmb_B akan terisi sesuai dengan Cmb_B

Kasus ini Mengisi ComboBox dari Pilihan ComboBox , semoga membantu