Vb.net combobox dinamis
Pada suatu kasus ada kalanya item yang ditampilkan pada combobox berasal dari database. Misalnya untuk combobox fakultas di suatu aplikasi, nama nama fakultas yang di tampilkan berasal dari database. contohnya seperti gambar berikut.
berikut langkah langkah untuk menampilkan item combobox dari database mysql
Buat sebuah module koneksi antara vb dengan databsse mysql
Imports MySql.Data.MySqlClient
Module Conn
Public strConnection As String = "Server=localhost;user id=root; password=; database=Perpus"
Public sdr As MySqlDataReader
Public sdr1 As MySqlDataReader
Public cmd As MySqlCommand
con = New MySqlConnection(strConnection)
Try
If con.State = ConnectionState.Closed Then
con.Open()
End If
Catch ex As MySql.Data.MySqlClient.MySqlException
MsgBox("Koneksi ke Database Tidak Berhasil...!!")
End
End Try
End Sub
Public Sub tutupkoneksi()
If con.State = ConnectionState.Open Then
Try
con.Close()
Catch ex As Exception
MsgBox("Gagal Menutup Koneksi" & ex.ToString)
End Try
End If
End Sub
End Module
Setelah selesai membuat module koneksi, kemudian buat kode pada Form yang dibuat menjadi seperti berikut untuk memanggil data item yang diinginkan dari database.
Imports MySql.Data.MySqlClient
Public Class Form1
Dim ds As DataSet
Dim myadp As MySqlDataAdapter
Dim dt As New DataTable
Dim query As String
Dim DREADER As MySqlDataReader
Dim CMD As MySqlCommand
Dim sql As String
Sub tampil_fakultas()
Call hubungkan()
CMD = New MySqlCommand("select namafakultas from fakultas", conn)
DREADER = CMD.ExecuteReader
If DREADER.HasRows Then
Fakultas.Items.Clear()
Do While DREADER.Read
Fakultas.Items.Add(DREADER("namafakultas"))
Loop
Else
MessageBox.Show("data faultas tidak ada di databse..!!")
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
tampil_fakultas()
End Sub
End Class
code yang bercetak merah adalah nama field tabel yang ingin ditampilkan dan kode yang berwarna kuning adalah nama tabel dan code yang berwana putih adalah nama database yang menjadi sumber data.
selamat mencoba. semoga bermanfaat.
No comments :
Post a Comment