Menampilkan Data dari Database ke Combobox

Selamat malam teman,.. di malam yang sunyi ini ditemani rembulan yang indah seindah wajah ibukku,hehehe saya mau berbagi tutorial lagi semoga bermanfaat bagi newbie*seperti saya* yang membutuhkan pencerahan :D bagi para mastah cukup simak aja ya mohon maap lahir dan batin kalau ada salah..*hayaa kagag nyambung*:D ok,pembahasan saya kali ini adalah cara menampilkan data di database ke combobox,.. ok karna saya tidak bisa mengarang kata-kata lagi langsung ekskusi aja ya teman,... cekidott .. :D

Sediakan form misalnya seperti ini :

Dengan Properti :

Nama Kontrol	Values	Keterangan
Combobox	cmbno	Combobox untuk nomor penjualan
Datagridview	DataGridView1	Datagridview untuk menampilkan data yang dipanggil dari no.penjualan

Source code untuk menampilkan data kecombobox (cmbno)

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

        cmbno.Focus()

        Dim SQL As String

        SQL = "select no_transaksi from tb_penjualanheader"

        Dim mycomm As OdbcCommand

        Dim rd As OdbcDataReader

        mycomm = New OdbcCommand(SQL, conn.Open)

        rd = mycomm.ExecuteReader

        Do While rd.Read

            cmbno.Items.Add(rd("no_transaksi"))

        Loop

    End Sub

Ini source code untuk menampilkan data ke datagrid berdasarkan no.penjualan

Sub aturtabel()

        DataGridView1.Columns(0).Width = 100

        DataGridView1.Columns(1).Width = 250

        DataGridView1.Columns(2).Width = 100

        DataGridView1.Columns(3).Width = 100

        DataGridView1.Columns(4).Width = 100

    End Sub

    Sub ambil(ByVal strnomer As String)

        Dim StrS1 As String = "select kdbarang as ` Kode Barang` ,nama as ` Nama Barang`,hargajual as ` Harga Barang`,qty as ` Jumlah`,total as ` Total` from tb_penjualandetail where no_transaksi  like '%" & strnomer & "%' "

        DataGridView1.DataSource = getData(StrS1)

        aturtabel()

    End Sub

    Private Function getData(ByVal strSQL As String) As DataView

        Dim SelectQtry = strSQL

        Dim SampleSource As New DataSet

        Dim TableView As DataView

        Try

            Dim SampleCommand As New OdbcCommand()

            Dim SampleDataApdater = New OdbcDataAdapter()

            SampleCommand.CommandText = SelectQtry

            SampleCommand.Connection = conn.Open

            SampleDataApdater.SelectCommand = SampleCommand

            SampleDataApdater.Fill(SampleSource)

            TableView = SampleSource.Tables(0).DefaultView

        Catch ex As Exception

            Throw ex

        End Try

        Return TableView

    End Function

Di panggil di cmdno ya....

Private Sub cmbno_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbno.SelectedIndexChanged

        ambil(Trim(cmbno.Text))

    End Sub

 Semoga Bermanfaat :)

Posted in Visual Basic 2010