Simpan ODBC Prepared Statement MYSQL

Imports System.Data.Odbc

Public Class Form4

    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 nama(idnama,namapegawai) VALUES(?,?)"

        Try

            koneksi.Open()

            Dim perintah = New OdbcCommand(stringSQL, koneksi)

            perintah.Prepare()

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

            perintah.Parameters.AddWithValue("@namapegawai", TextBox2.Text)

            perintah.ExecuteNonQuery()

            koneksi.Close()


        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        TextBox1.Text = ""
        TextBox2.Text = ""

    End Sub