Melanjutkan Pembelajaran VB .NET, pada tutorial kali ini aku akan membahas Penggunaan dari radio button, yaitu cara input data memakai Radio Button pada VB .NET. Tutorial kali ini aku buat karena ada beberapa pertanyaan via email maupun via Youtube mengenai tema yang akan kita bahas kali ini. Karena aku akan membuatnya eksklusif dengan input kedatabase maka aku akan buat databasenya memakai MySQL. Bagi anda yang ingin menciptakan dengan database Access maupun SQL Server silahkan anda sanggup menyasuaikan.
Radio button pada VB .NET biasanya dipakai untuk menentukan beberapa pilihan yang ada di form, menyerupai Jenis Kelamin, Agama, Hobby dan lain sebagainya. Yang pada pada dasarnya untuk mempermudah pengguna aplikasi untuk menentukan pilihan yang akan diinput pada sebuah Form Aplikasi.
Contoh penggunaannya yaitu menyerupai gambar dibawah ini :
Silahkan anda lihat gambar diatas, Radio Button dipakai untuk menentukan Jenis Kelamin Pria atau Wanita pada form Anggota.
1. Membuat Database dan Tabel MySQL
Sesuai yang sudah aku jelaskan diatas, maka kita harus menciptakan database dan tabel terlebih dahulu. Silahkan anda buat database dengan nama :
dbjnm Kemudian anda buat tabel dengan nama
tbl_anggota Untuk field nya aku buat simple saja, yaitu : kodeanggota, namaanggota, jeniskelamin, dan alamatanggota
Atau jikalau anda tidak ingin ribet aku sudah berbagi SQL tbl_anggota, anda sanggup copy code dibawah dan masukan ke SQL database MySQL anda.
CREATE TABLE `tbl_anggota` ( `kodeanggota` varchar(6) NOT NULL, `namaanggota` varchar(50) NOT NULL, `jeniskelamin` varchar(20) NOT NULL, `alamatanggota` varchar(100) NOT NULL ) ENGINE=InnoDB DEFAULT CHARSET=latin1; ALTER TABLE `tbl_anggota` ADD PRIMARY KEY (`kodeanggota`); INSERT INTO `tbl_anggota` (`kodeanggota`, `namaanggota`, `jeniskelamin`, `alamatanggota`) VALUES ('AGT001', 'ANIS', 'WANITA', 'JL Anggur No 44'), ('AGT002', 'DODI', 'PRIA', 'JL Jeruk No 22'), ('AGT003', 'MAHMUD', 'PRIA', 'JL Belimbing No 31'), ('AGT004', 'ALIYA', 'WANITA', 'Jl Salak No 88');
Jika anda sudah menciptakan database dan tabel, silahkan anda buat form VB .NET dibawah
2. Membuat Form VB .NET Radio Button dan Kodingnya
Silahkan buka VB .NET anda, lalu buatlah Form1 dengan design form menyerupai gambar dibawah ini :
Form1 diatas terdapat : TextBox1, TextBox2, TextBox3,
RadioButton1, RadioButton2, Button1, Button2, Button3, Button4 dan DatagridView1
Kemudian masukan koding dibawah ini :
Imports System.Data.Odbc Public Class Form1 Dim CONN As OdbcConnection Dim CMD As OdbcCommand Dim DS As New DataSet Dim DA As OdbcDataAdapter Dim RD As OdbcDataReader Dim Gender As String Dim LokasiData As String Sub Koneksi() LokasiData = "Driver={MySQL ODBC 3.51 Driver};Database=dbjnm;server=localhost;uid=root" CONN = New OdbcConnection(LokasiData) If CONN.State = ConnectionState.Closed Then CONN.Open() End If End Sub Sub TampilGrid() Call Koneksi() DA = New OdbcDataAdapter("select * From tbl_anggota ", CONN) DS = New DataSet DA.Fill(DS, "tbl_anggota") DataGridView1.DataSource = DS.Tables("tbl_anggota") DataGridView1.ReadOnly = True End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call TampilGrid() End Sub Sub KosongkanData() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then MsgBox("Silahkan Isi Semua Form") Else Call Koneksi() If RadioButton1.Checked = True Then Gender = RadioButton1.Text ElseIf RadioButton2.Checked = True Then Gender = RadioButton2.Text End If Dim simpan As String = "insert into tbl_anggota values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & Gender & "','" & TextBox3.Text & "')" CMD = New OdbcCommand(simpan, CONN) CMD.ExecuteNonQuery() MsgBox("Input data berhasil") Call TampilGrid() Call KosongkanData() End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click End End Sub End Class
Selanjutnya silahkan jalankan Project VB .NET anda, Silahkan isi data lalu pilih jenis kelamin Pria atau Wanita, lalu Klik Input. Maka Data berhasil diinput
