Membuat CRUD pada Visual Basic .Net - III [ Update ]

Berikut adalah cara menggubah 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 = ""

        TextBox1.Enabled = False

        

        ' membatasi length Textbox1 

        TextBox1.MaxLength = 15

        ' Panggil koneksi 

        Call Koneksi()

        ' Memanggil table karyawan

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

ds = New DataSet

da.Fill(ds, "karyawan")

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

 

    End Sub

  End Class

untuk melihat hasilnya sementara jalankan tekan F5, maka akan ditampilkan gambar seperti dibawah :

Kemudian tambahkan sintak pada event DataGridView Klik, untuk mengambil Nilai pada DataGridView dan tampung ke Textbox

Private Sub DataGridView1_CellMouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick

With DataGridView1 

TextBox1.Text = .Rows(e.RowIndex).Cells(0).Value

TextBox2.Text = .Rows(e.RowIndex).Cells(1).Value

TextBox3.Text = .Rows(e.RowIndex).Cells(2).Value

TextBox4.Text = .Rows(e.RowIndex).Cells(3).Value

End With

 

 End Sub

lalu tambahkan sintax ubah pada button Edit :

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

            ' validasi textbox jika tidak terisi maka muncul alert 

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

                MsgBox("Semua field harus terisi")

            Else

                ' jika semua terisi 

                Call Koneksi()

                ' update table karyawan

                Dim eData As String 

                 eData = "Update karyawan set nama='" & TextBox2.Text & "', telepon ='" & TextBox3.Text & "',  alamat='" & TextBox4.Text & "'where nip ='" & TextBox1.Text & "'"

                cmd = New MySqlCommand(eData, cConn)

cmd.ExecuteNonQuery();

                ' jika berhasil tampilkan alert / message ("edit data berhasil")

                MsgBox("Edit data berhasil")

                ' mengosongkan textbox 

                Call clearText()

            End If

    End Sub

Kemudian jalankan tekan F5, klik DataGridView, maka akan ditampilkan 

Kemudian ubah menjadi seperti gambar dibawah :

Lalu klik Edit, maka akan tampil seperti dibawah ini: