Koneksi RadioButton Ke MYSQL

Imports System.Data.Odbc

Public Class Form5
    'Source code yg berhasil menghubungkan antara radiobutton dengan MYSQL

    Dim Gender As String = Nothing

    Dim koneksi As OdbcConnection = Nothing

    Dim stringKoneksi As String = "DSN=localhost"

    Dim stringSQL As String



    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click



        koneksi = New OdbcConnection(stringKoneksi)

        stringSQL = "INSERT INTO jeniskelamin(idjeniskelamin,jeniskelamin) VALUES (?,?)"

        Try

            koneksi.Open()

            Dim perintah = New OdbcCommand(stringSQL, koneksi)

            perintah.Prepare()

            perintah.Parameters.AddWithValue("@idjeniskelamin", TextBox1.Text)

            perintah.Parameters.AddWithValue("@jeniskelamin", Gender)

            perintah.ExecuteNonQuery()

            koneksi.Close()





        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try



    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Gender = "Pria"
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Gender = "Wanita"
    End Sub
End Class