Lompat ke konten Lompat ke sidebar Lompat ke footer

Widget HTML #1

Cara Input Data Menggunakan Radio Button Pada VB .NET

Probskomputer - Melanjutkan Pembelajaran VB .NET, pada tutorial kali ini saya akan membahas Penggunaan dari radio button, yaitu cara input data menggunakan Radio Button pada VB .NET. Tutorial kali ini saya buat lantaran ada beberapa pertanyaan via email maupun via Youtube mengenai tema yang akan kita bahas kali ini. Karena saya akan membuatnya langsung dengan input kedatabase maka saya akan buat databasenya menggunakan MySQL. Bagi anda yang ingin membuat dengan database Access maupun SQL Server silahkan anda dapat menyasuaikan.

Radio button pada VB .NET biasanya digunakan untuk memilih beberapa pilihan yang ada di form, seperti Jenis Kelamin, Agama, Hobby dan lain sebagainya. Yang pada intinya untuk mempermudah pengguna aplikasi untuk memilih pilihan yang akan diinput pada sebuah Form Aplikasi.

Contoh penggunaannya adalah seperti gambar dibawah ini :

Cara Input Data Menggunakan Radio Button Pada VB .NET
Silahkan anda lihat gambar diatas, Radio Button digunakan untuk menentukan Jenis Kelamin Pria atau Wanita pada form Anggota.

1. Membuat Database dan Tabel MySQL

Sesuai yang sudah saya jelaskan diatas, maka kita harus membuat database dan tabel terlebih dahulu. Silahkan anda buat database dengan nama : dbjnm
Kemudian anda buat tabel dengan nama tbl_anggota
Untuk field nya saya buat simple saja,  yaitu : kodeanggota, namaanggota, jeniskelamin, dan alamatanggota

Penggunaan Radio Button Pada VB .NET

Atau jika anda tidak ingin ribet saya sudah membuatkan SQL tbl_anggota, anda bisa 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 membuat database dan tabel, silahkan anda buat form VB .NET dibawah

2. Membuat Form VB .NET Radio Button dan Kodingnya

Silahkan buka VB .NET anda, kemudian buatlah Form1 dengan design form seperti 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 kemudian pilih jenis kelamin Pria atau Wanita, kemudian Klik Input. Maka Data berhasil diinput

Demikian Tutorial VB .NET yaitu : Cara Input Data Menggunakan Radio Button Pada VB .NET, semoga bermanfaat untuk anda. Jika tutorial ini bermanfaat silahkan anda share dan bagikan kepada rekan anda. Atau anda bisa berkomentar dibawah.