Cara Mudah Membuat CRUD Pada Visual Studio 2010 dan Mysql

Assalmualaikum Warahmatullahi Wabarakatu
Bismilahirrahmanirrahiim
Sebelum kita memulai mengerjakan sesuatu ada baiknya kita berdoa terlebih dahulu agar apa yang kita kerjakan dapat berkah dari allah SWT, Aamiin.

Pada kesempatan kali ini saya akan melanjutkan memberikan informasi mengenai proses CRUD pada visual studio 2010 dan database mysql. Pada pertemuan sebelumnya kita sudah membuat proses menambahkan data dan pada pertemuan kali ini kita akan membuat proses update atau edit atau ubah terserah lah hehe.. Langsung Saja

Pertama : Ubah nama pada toolstrip setelah tambah menjadi update. Klik kanan pada ikon gambar toolstrip pilih DisplayStyle lalu pilih ImageAndText atau apabila anda ingin memilih yang lain silahkan. Lalu ubah Name dan Text pada jendela properties menjadi "update". Seperti ini

Kedua : Tahap memasukan script. Kita sudah membuat beberapa script sebelumnya selanjutnya kita akan masukan script berikut diatas End Class
Masukan script berikut untuk menampilkan data yang akan diupdate di datagrid
Private Sub DataGrid_CellMouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGrid.CellContentClick
        kode.Text = DataGrid.CurrentRow.Cells(0).Value
        barang.Text = DataGrid.CurrentRow.Cells(1).Value
        harga.Text = DataGrid.CurrentRow.Cells(2).Value
        update.Enabled = False
        kode.ReadOnly = True
    End Sub

Selanjutnya masukan script berikut untuk proses pengubahan data. Jadi proses pengubahan data akan dilakukan jika kita mengklik 2 kali pada data yang mau diubah
Private Sub update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles update.Click
        DataGrid_CellMouseClick(Nothing, Nothing)
    End Sub

Setelah itu kita buat toolstrip dengan text dan name batal pada jendela properties. Lalu klik 2 kali dan masukan script berikut untuk menghilangkan data yang akan diubah ketika ingin dibatalkan
Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
        kode.Text = String.Empty
        barang.Text = String.Empty
        harga.Text = String.Empty
        update.Enabled = True
        kode.ReadOnly = False
        Data_Load()
    End Sub

Lalu terakhir pada script toolstrip tambah ada penambahan pada bagian berikut dikarenakan kita memiliki aktifitas update data
Try
            conn.Open()
            If update.Enabled = True Then
                SQL = "INSERT INTO CRUD (id, barang, harga) VALUES " & _
                      "('" & kode.Text & "', '" & barang.Text & "', '" & harga.Text & "')"
            Else
                SQL = "UPDATE CRUD SET  barang = '" & barang.Text & "'" & _
                      "WHERE id = '" & kode.Text & "'"
            End If
DAN
If update.Enabled = True Then
                MsgBox("Data baru tersimpan")
            Else
                MsgBox("Perubahan tersimpan")
            End If

Maka keseluruhan script tambah pada toolstrip tambah menjadi
Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
        Dim myCommand As New MySqlCommand

        conn = New MySqlConnection()
        conn.ConnectionString = "server=localhost;user id=root;" & _
                                "password=;database=latihan"
        Try
            conn.Open()
            If update.Enabled = True Then
                SQL = "INSERT INTO CRUD (id, barang, harga) VALUES " & _
                      "('" & kode.Text & "', '" & barang.Text & "', '" & harga.Text & "')"
            Else
                SQL = "UPDATE CRUD SET  barang = '" & barang.Text & "'" & _
                      "WHERE id = '" & kode.Text & "'"
            End If

            myCommand.Connection = conn
            myCommand.CommandText = SQL
            myCommand.ExecuteNonQuery()

            If update.Enabled = True Then
                MsgBox("Data baru tersimpan")
            Else
                MsgBox("Perubahan tersimpan")
            End If

            batal_Click(Nothing, Nothing)

            conn.Close()
        Catch myerror As MySqlException
            MessageBox.Show("Error: " & myerror.Message)
        Finally
            conn.Dispose()
        End Try
    End Sub

Dan keseluruhan script pada aktifitas menambahkan dan mengubah
Imports MySql.Data.MySqlClient
Imports System.Data
Public Class Form1
    Dim conn As MySqlConnection
    Dim SQL As String

    Sub Data_Load()
        Dim myCommand As New MySqlCommand
        Dim myAdapter As New MySqlDataAdapter
        Dim myData As New DataTable

        conn = New MySqlConnection()
        conn.ConnectionString = "server=localhost;user id=root;" & _
                                "password=;database=latihan"
        Try
            If conn.State = ConnectionState.Closed Then conn.Open()
            SQL = "Select id, barang, harga From CRUD"

            myCommand.Connection = conn
            myCommand.CommandText = SQL

            myAdapter.SelectCommand = myCommand
            myAdapter.Fill(myData)
            With DataGrid
                .DataSource = myData
                .AllowUserToAddRows = False
                .AllowUserToDeleteRows = False
                .ReadOnly = True

                .Columns(0).HeaderText = "Kode barang"
                .Columns(1).HeaderText = "Nama barang"
                .Columns(2).HeaderText = "Harga"
                .Columns(0).Width = 100
                .Columns(1).Width = 250
                .Columns(2).Width = 250
            End With

            conn.Close()
        Catch myerror As MySqlException
            MessageBox.Show("Error: " & myerror.Message)
        Finally
            conn.Dispose()
        End Try
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Data_Load()
    End Sub
    Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
        Dim myCommand As New MySqlCommand

        conn = New MySqlConnection()
        conn.ConnectionString = "server=localhost;user id=root;" & _
                                "password=;database=latihan"
        Try
            conn.Open()
            If update.Enabled = True Then
                SQL = "INSERT INTO CRUD (id, barang, harga) VALUES " & _
                      "('" & kode.Text & "', '" & barang.Text & "', '" & harga.Text & "')"
            Else
                SQL = "UPDATE CRUD SET  barang = '" & barang.Text & "'" & _
                      "WHERE id = '" & kode.Text & "'"
            End If

            myCommand.Connection = conn
            myCommand.CommandText = SQL
            myCommand.ExecuteNonQuery()

            If update.Enabled = True Then
                MsgBox("Data baru tersimpan")
            Else
                MsgBox("Perubahan tersimpan")
            End If

            batal_Click(Nothing, Nothing)

            conn.Close()
        Catch myerror As MySqlException
            MessageBox.Show("Error: " & myerror.Message)
        Finally
            conn.Dispose()
        End Try
    End Sub
    Private Sub DataGrid_CellMouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGrid.CellContentClick
        kode.Text = DataGrid.CurrentRow.Cells(0).Value
        barang.Text = DataGrid.CurrentRow.Cells(1).Value
        harga.Text = DataGrid.CurrentRow.Cells(2).Value
        update.Enabled = False
        kode.ReadOnly = True
    End Sub
    Private Sub update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles update.Click
        DataGrid_CellMouseClick(Nothing, Nothing)
    End Sub
    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
        kode.Text = String.Empty
        barang.Text = String.Empty
        harga.Text = String.Empty
        update.Enabled = True
        kode.ReadOnly = False
        Data_Load()
    End Sub
End Class

Maka hasilnya akan muncul apabila kita klik 2 kali pada data yang akan diubah dan pilih tambah untuk menyimpan data yang sudah diubah

Selesaiiiii tutorial membuat CRUD pada visual studio 2010 dan Mysql, proses yang dilakukan ini ada proses update data. Kita sudah melakukan prosesa tambah dan update, pada tutorial berikutnya kita akan melakukan proses delete (hapus).
Sekian dari saya, semoga membantu anda. Great Day!!!!!