Cara Menampilkan Data Dari Database Ke Textbox Vb Net Dari Combobox
02 Mei 2020
Cara Menampilkan Data Dari Database Ke Textbox Vb Net Dari Combobox – Halo teman-teman, artikel ini merupakan lanjutan dari portingan artikel saya sebelumnya tentang menampilkan data dari database ke Textbox Vb Net dari ListView (baca disini). Pada artikel ini saya berikan tips bagaimana cara menampilkan data dari database ke Textbox Vb Net dari Combobox.
Berikut tahap – tahap yang dilakukan untuk menampilkan data dari database ke Textbox Vb Net dari Combobox :
1. Yang pertama buat desain program vb net seperti yang telihat pada gambar berikut ini
2. Klik kanan pada form
3. Klik View Code untuk membuka lembar kerja pembuatan koding vb net
4. Selanjutnya input coding koneksi database dengan vb net berikut ini
5. Panggil Database Di Form Load
Untuk memanggil database di form load, Double click form load pada program kemudian input coding koding vb net berikut ini
6. Untuk memanggil data dari database ke combobox no induk secara otomatis ketika program dijalankan, silahkan input coding vb net berikut ini di form load, tepatnya di bawah ShowDB () yang telah dibuat pada tahap yang kelima.
7. Selajutnya kembali ke desain program lalu Double click Combobox No Induk
8. Agar dapat menampilkan data dari database ke Textbox Vb Net dari Combobox ketika dilakukan klik pada salah satu item yang dipanggil dari database ke Combobox maka input coding vb net berikut ini.
9. Selanjutnya jalankan program vb net dengan tekan tombol F5 pada keyboard
10. Untuk menguji program menampilkan data dari database ke Textbox Vb Net dari Combobox yang anda buat, Klik salah satu item yang terdapat di combobox.
Demikianlah postingan artikel kali ini untuk berbagi tips Cara Menampilkan Data Dari Database Ke Textbox Vb Net Dari Combobox. Semoga dapat mempermudah anda untuk membuat program yang memerlukan koding perintah untuk menampilkan Data Dari Database Ke Textbox Vb Net Dari Combobox.
Berikut tahap – tahap yang dilakukan untuk menampilkan data dari database ke Textbox Vb Net dari Combobox :
1. Yang pertama buat desain program vb net seperti yang telihat pada gambar berikut ini
2. Klik kanan pada form
3. Klik View Code untuk membuka lembar kerja pembuatan koding vb net
4. Selanjutnya input coding koneksi database dengan vb net berikut ini
Imports MySql.Data.MySqlClient
Public Class Form1
Public DB As New MySql.Data. MySqlClient. MySqlConnection
Public DR As MySqlDataReader
Public MSD As MySqlCommand
Public SQL As String
Public DS As DataSet
Public MDA As MySqlDataAdapter
Sub ShowDB()
SQL = "Server=Localhost; uid=root ;database= database_siswa"
Try
DB.ConnectionString = SQL
DB.Open()
Catch ex As Exception
MsgBox (ex.Message )
End Try
End Sub
Public Class Form1
Public DB As New MySql.Data. MySqlClient. MySqlConnection
Public DR As MySqlDataReader
Public MSD As MySqlCommand
Public SQL As String
Public DS As DataSet
Public MDA As MySqlDataAdapter
Sub ShowDB()
SQL = "Server=Localhost; uid=root ;database= database_siswa"
Try
DB.ConnectionString = SQL
DB.Open()
Catch ex As Exception
MsgBox (ex.Message )
End Try
End Sub
5. Panggil Database Di Form Load
Untuk memanggil database di form load, Double click form load pada program kemudian input coding koding vb net berikut ini
ShowDB( )
6. Untuk memanggil data dari database ke combobox no induk secara otomatis ketika program dijalankan, silahkan input coding vb net berikut ini di form load, tepatnya di bawah ShowDB () yang telah dibuat pada tahap yang kelima.
CMBnoinduk.Focus()
SQL = "select * from Tabel_Data_Siswa"
MSD = New MySqlCommand(SQL, DB )
DR = MSD. ExecuteReader
While DR.Read
CMBnoinduk. Items.Add(DR ( "NoIndukSiswa" ))
End While
DR.Close()
SQL = "select * from Tabel_Data_Siswa"
MSD = New MySqlCommand(SQL, DB )
DR = MSD. ExecuteReader
While DR.Read
CMBnoinduk. Items.Add(DR ( "NoIndukSiswa" ))
End While
DR.Close()
7. Selajutnya kembali ke desain program lalu Double click Combobox No Induk
8. Agar dapat menampilkan data dari database ke Textbox Vb Net dari Combobox ketika dilakukan klik pada salah satu item yang dipanggil dari database ke Combobox maka input coding vb net berikut ini.
SQL = " select * from Tabel_Data_Siswa where NoIndukSiswa = '" & CMBnoinduk. Text & "'"
MSD = New MySqlCommand(SQL,DB )
DR = MSD. ExecuteReader
DR.Read()
CMBnoinduk.Text = DR( "NoIndukSiswa")
TXBnama.Text = DR ("Nama" )
TXBjurusan.Text = DR("Jurusan")
TXBkelas.Text = DR("Kelas")
DR.Close()
MSD = New MySqlCommand(SQL,DB )
DR = MSD. ExecuteReader
DR.Read()
CMBnoinduk.Text = DR( "NoIndukSiswa")
TXBnama.Text = DR ("Nama" )
TXBjurusan.Text = DR("Jurusan")
TXBkelas.Text = DR("Kelas")
DR.Close()
9. Selanjutnya jalankan program vb net dengan tekan tombol F5 pada keyboard
10. Untuk menguji program menampilkan data dari database ke Textbox Vb Net dari Combobox yang anda buat, Klik salah satu item yang terdapat di combobox.
Demikianlah postingan artikel kali ini untuk berbagi tips Cara Menampilkan Data Dari Database Ke Textbox Vb Net Dari Combobox. Semoga dapat mempermudah anda untuk membuat program yang memerlukan koding perintah untuk menampilkan Data Dari Database Ke Textbox Vb Net Dari Combobox.