Home » » Cara Input Data Memakai Radio Button Pada Vb .Net

Cara Input Data Memakai Radio Button Pada Vb .Net

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 :

 pada tutorial kali ini aku akan membahas Penggunaan dari radio button Cara Input Data Menggunakan Radio Button Pada VB .NET
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

 pada tutorial kali ini aku akan membahas Penggunaan dari radio button Cara Input Data Menggunakan Radio Button Pada VB .NET

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

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

0 comments:

Post a Comment

Search

Blog Archive