Menampilkan Data Dari Tabel Di Database MYSQL Ke Combo Box

Cara Menampilkan Data Dari Tabel Di Database Ke Combo Box Dan Menyimpannya

Langkah-langkahnya adalah :

  1. Buatlah sub prosedur di jendela koding FormSertifikat, tulis script berikut

Sub pilihKegiatan()

        Call bukaDB()

        CMD = New MySqlCommand("Select * from Kegiatan", Conn)

        CMD.CommandTimeout = 0

        RD = CMD.ExecuteReader

        cboKegiatan.Items.Clear()

        Do While RD.Read

            cboKegiatan.Items.Add(RD.Item(0) & Space(5) & RD.Item(1))

        Loop

End Sub

Keterangan : Item (0) untuk menampilkan Idkegiatan

             Item (1) untuk menampilkan NamaKegiatan

       2. Panggil Prosedur PilihKegiatan di event Form_Load

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

        Call isiGrid()

        Call pilihpimpinan()

        Call pilihKegiatan()

        Call pilihKeikutsertaan()

        txtNomor.Text = autonumber()

End Sub

       3. Pada saat klik tombol simpan, ke database kita hanya mengambil 4 karakter dari kiri terhadap     pillihan yang ada di combobox kegiatan. Perhatikan script yang ditandai merah.

Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click

        If txtIDPembicara.Text = "" Then

            MsgBox("ID Pembicara Harus Di isi", MsgBoxStyle.Exclamation, "Peringatan")

            txtIDPembicara.Focus()

            Exit Sub

        ElseIf txtNamaPembicara.Text = "" Then

            MsgBox("Nama Pembicara Harus Di isi", MsgBoxStyle.Exclamation, "Peringatan")

            cboKegiatan.Focus()

            Exit Sub

        End If

        Call bukaDB()

        CMD = New MySqlCommand("SELECT Nomor from Sertifikat WHERE Nomor = '" & txtNomor.Text & "'", Conn)

        CMD.CommandTimeout = 0

        RD = CMD.ExecuteReader

        RD.Read()

        If RD.HasRows Then

            MsgBox("Maaf, Nomor Surat tersebut telah ada", MsgBoxStyle.Exclamation, "Peringatan")

        Else

            Call bukaDB()

            simpan = "INSERT INTO Sertifikat (Nomor,Tgl,IDPembicara,IDkegiatan,IDPeserta,IDKeikutsertaan,IDPimpinan,KodeUser) VALUES ('" & txtNomor.Text & "','" & Format(TglSurat.Value, "yyyy-MM-dd") & "','" & txtIDPembicara.Text & "','" & _

            Microsoft.VisualBasic.Left(cboKegiatan.Text, 4) & "','" & txtIDPeserta.Text & "','" & Microsoft.VisualBasic.Left(CboKeikutsertaan.Text, 5) & "','" & Microsoft.VisualBasic.Left(CboPimpinan.Text, 6) & "','" & FormMenu.ToolStripStatusLabel1.Text & "')"

            CMD = New MySqlCommand(simpan, Conn)

            CMD.CommandTimeout = 0

            CMD.ExecuteNonQuery()

            Call isiGrid()

        End If

End Sub

       4. Jalankan