Cara Input Data Menggunakan Radio Button Pada VB .NET

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.

0 Response to "Cara Input Data Menggunakan Radio Button Pada VB .NET"

Post a Comment