Membuat CRUD pada Visual Basic .Net - II [ Insert ]

 

Berikut adalah cara menyimpan data pada Visual Basic .Net , tampilan layout  seperti gambar dibawah ini :

lalu buat form1.vb untuk koneksi ke database, pada tutor ini menggunakan Mysql sebagai database:

Klik kanan pada form1.vb, lalu pilih view code, isikan sintak :

Imports MySql.Data.MySqlClient

Public Class Form1

    Dim svr As String = "localhost"

    Dim uid As String = "root"

    Dim pwd As String = ""

    Dim db As String = "dtbase"

    Dim cConn As New MySqlConnection

    'Membuat Koneksi

    Sub Koneksi()

    cConn.ConnectionString = "server= " + svr + "; user id=" + uid + "; password=" + pwd + "; database=" + db + ""

Try

            cConn.Open()

        Finally

            cConn.Dispose()

        End Try

    End Sub

   Sub clearText()

        ' Kosongkan value textbox

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        ' membatasi length Textbox1 

        TextBox1.MaxLength = 15

        ' Panggil koneksi 

        Call Koneksi()

        ' Memanggil table  karyawan

da = New MySqlDataAdapter("Select * from karyawan", conn):

ds = New DataSet

da.Fill(ds, "karyawan")

DataGridView1.DataSource = ds.Tables("karyawan")

 

    End Sub

  End Class

Kemudian tambahkan sintak pada button simpan untuk proses penyimpanan data :

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

            ' mencek pengisian data, jika kosong muncul alert semua harus field terisi

            ' ini artinya disebut validasi

If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then

                MsgBox("Semua field harus terisi")

            Else

                ' jika semua terisi field maka akan memanggil koneksi

                Call Koneksi()

                ' simpan data

                Dim simpan As String 

                simpan = "Insert into karyawan values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"

cmd = New MySqlCommand(simpan, cConn)

                ' tampilkan message "berhasil simpan"

                MsgBox("data berhasil tersimpan")

                ' membersihkan textbox

                Call clearText()

            End If

    End Sub