Cara Buat CRUD VB Net dan ODBC MySQL - Simpan Edit dan Hapus

08 October 2020 08:01 5601 View


CRUD VB Net dan ODBC MySQL - Halo teman - teman semuanya, pada kesempatan kali ini kita semua akan belajar tentang CRUD atau simpan, edit dan hapus di vb net. Sebelumnya kita sudah berhasil siapkan tools yang kita gunakan, cara buat database, cara buat koneksi odbc dan cara buat koneksi di vb. net di kesempatan ini kita akan bahas tuntas. 

Baca Juga - Cara Buat CRUD VB Net dan ODBC MYSQL - Koneksi dan Database

Harap ikuti langkah-langkah berikut ini

 

Langkah - 1 Buat Project

Cara Menampilkan Form berikut ini Buka File - Pilih New - Pilih Project lalu muncul tampilan gambar seperti berikut ini. 

CRUD VB NET

Setelah muncul tampilan seperti diatas harap ketik name Project  dan tentukan location Project anda dimana di simpan. Lalu Ok makah teman-teman tampil form kosong seperti berikut ini

Langkah - 2 Design Form CRUD

Harap design form seperti berikut ini dan beri name setiap object agar setiap name masing-masing object dapat di panggil di halaman coding. 

Untuk object lebel tidak perlu di namakan karena lebel tidak di panggil di coding.

Langkah - 3 Membuat Coding

1. Import Terlebih dahulu data ODBC nya sebelum class frmCrud

Imports System.Data.Odbc

2. Lalu setelah Class fromCrud buat class dibawah ini

Coding dibawah ini berfungsi untuk panggil isi tabel tbl_biodata

Sub tampil_data()
        DA = New OdbcDataAdapter("SELECT * FROM tbl_biodata", Konek)
        DS = New DataSet
        DA.Fill(DS)
        TABEL1.DataSource = DS.Tables(0)
        TABEL1.ReadOnly = True
        TABEL1.Columns(1).Width = 200
        TABEL1.Columns(2).Width = 200
    End Sub

Coding dibawah ini berfungsi untuk bersihkan/kosongkan textboxt

  Sub databaru()
        txtnama.Clear()
        txtalamat.Clear()
        txtkode.Clear()
        txtkode.Focus()
    End Sub
    Sub bersihkan()
        txtnama.Clear()
        txtalamat.Clear()
        txtkode.Clear()
        txtnama.Focus()
    End Sub

Coding dibawah ini untuk memanggil class koneksi, tampil data dan class bersihkan

Private Sub frmCrud_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call KonekDB()
        Call tampil_data()
        Call bersihkan()
      txtkode.Enabled = False
End Sub

3. Lalu double klik Button Tambah dan input coding dibawah ini

Call databaru()

4. Double Klik Button Simpan dan input coding dibawah ini

     Try
            If txtnama.Text = "" Then
                MsgBox("Nama tidak boleh kosong", vbExclamation, "Pesan")
                Exit Sub
            ElseIf txtalamat.Text = "" Then
                MsgBox("Alamat tidak boleh kosong", vbExclamation, "Pesan")
                Exit Sub
            Else
                CMD = New OdbcCommand("SELECT * FROM TBL_BIODATA WHERE KODE = '" & txtkode.Text & "'", Konek)
                DR = CMD.ExecuteReader
                DR.Read()
                If Not DR.HasRows Then
                    Dim simpan As String = "insert into tbl_biodata (nama,alamat) value ('" & txtnama.Text & "','" _
                                                                                            & txtalamat.Text & "')"
                    CMD = New OdbcCommand(simpan, Konek)
                    CMD.ExecuteNonQuery()
                    MsgBox("Data berhasil di simpan", vbInformation, "Simpan")
                    Call tampil_data()
                    Call bersihkan()

                Else
                    MsgBox("Data Sudah Ada")
                End If
            End If
        Catch ex As Exception
            MsgBox("Terdapat kesalahan" & ex.Message)
        End Try

5. Double Klik Button Edit dan input coding dibawah ini

      Try
            If txtnama.Text = "" Then
                MsgBox("Nama tidak boleh kosong", vbExclamation, "Pesan")
                Exit Sub
            ElseIf txtalamat.Text = "" Then
                MsgBox("Alamat tidak boleh kosong", vbExclamation, "Pesan")
                Exit Sub
            Else
                CMD = New OdbcCommand("select * from tbl_biodata where kode = '" & txtkode.Text & "'", Konek)
                DR = CMD.ExecuteReader
                DR.Read()
                If DR.HasRows Then
                    Dim edit As String = "update tbl_biodata set nama ='" & txtnama.Text & _
                        "',alamat='" & txtalamat.Text & _
                        "' where kode='" & txtkode.Text & "'"
                    CMD = New OdbcCommand(edit, Konek)
                    CMD.ExecuteNonQuery()
                    MsgBox("Berhasil di edit", vbInformation, "Edit")
                    Call tampil_data()
                  Call bersihkan()
                Else
                    MsgBox("Data belum dipilih")
                    Exit Sub
                End If
            End If
        Catch ex As Exception
            MsgBox("Terdapat kesalahan" & ex.Message)
        End Try

6. Double Klik Button Hapus dan input coding dibawah ini

 If txtkode.Text = "" Then
            MsgBox("Data belum di pilih", vbInformation, "Pesan")
            Exit Sub
        Else
            Dim hapusdata As String = "delete from tbl_biodata where kode = '" & txtkode.Text & "'"
            CMD = New OdbcCommand(hapusdata, Konek)
            CMD.ExecuteNonQuery()
            MsgBox("Data berhasil di hapus", vbInformation, "Pesan")
            Call tampil_data()
            Call bersihkan()
End If

6. Double Klik Tabel1 / Data Grid View 

Setelah double klik lalu teman-teman bisa ke CellMouseClick dan input coding dibawah ini. tujuan dari coding ini agar setiap data yang kita pilih di datagrid view tampil di textboxt

        On Error Resume Next
        txtkode.Text = TABEL1.Rows(e.RowIndex).Cells(0).Value
        CMD = New OdbcCommand("SELECT * FROM TBL_BIODATA WHERE KODE = '" & txtkode.Text & "'", Konek)
        DR = CMD.ExecuteReader
        DR.Read()
        If DR.HasRows Then
            txtkode.Text = DR.Item("KODE")
            txtnama.Text = DR.Item("NAMA")
            txtalamat.Text = DR.Item("ALAMAT")
  End If

Setelah mengikuti langkah-langkah diatas, jika mengalami kesulitan untuk memahami nya dapat dilihat full source code dibawah ini

Imports System.Data.Odbc
Public Class frmCrud
    Sub tampil_data()
        DA = New OdbcDataAdapter("SELECT * FROM tbl_biodata", Konek)
        DS = New DataSet
        DA.Fill(DS)
        TABEL1.DataSource = DS.Tables(0)
        TABEL1.ReadOnly = True
        TABEL1.Columns(1).Width = 200
        TABEL1.Columns(2).Width = 200
    End Sub

    Sub databaru()
        txtnama.Clear()
        txtalamat.Clear()
        txtkode.Clear()
        txtkode.Focus()
    End Sub
    Sub bersihkan()
        txtnama.Clear()
        txtalamat.Clear()
        txtkode.Clear()
        txtnama.Focus()
    End Sub
    Private Sub frmCrud_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call KonekDB()
        Call tampil_data()
        Call bersihkan()
        txtkode.Enabled = False
    End Sub
    Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click
        Call databaru()
    End Sub
    
    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        Try
            If txtnama.Text = "" Then
                MsgBox("Nama tidak boleh kosong", vbExclamation, "Pesan")
                Exit Sub
            ElseIf txtalamat.Text = "" Then
                MsgBox("Alamat tidak boleh kosong", vbExclamation, "Pesan")
                Exit Sub
            Else
                CMD = New OdbcCommand("SELECT * FROM TBL_BIODATA WHERE KODE = '" & txtkode.Text & "'", Konek)
                DR = CMD.ExecuteReader
                DR.Read()
                If Not DR.HasRows Then
                    Dim simpan As String = "insert into tbl_biodata (nama,alamat) value ('" & txtnama.Text & "','" _
                                                                                            & txtalamat.Text & "')"
                    CMD = New OdbcCommand(simpan, Konek)
                    CMD.ExecuteNonQuery()
                    MsgBox("Data berhasil di simpan", vbInformation, "Simpan")
                    Call tampil_data()
                    Call bersihkan()

                Else
                    MsgBox("Data Sudah Ada")
                End If
            End If
        Catch ex As Exception
            MsgBox("Terdapat kesalahan" & ex.Message)
        End Try

    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
        Try
            If txtnama.Text = "" Then
                MsgBox("Nama tidak boleh kosong", vbExclamation, "Pesan")
                Exit Sub
            ElseIf txtalamat.Text = "" Then
                MsgBox("Alamat tidak boleh kosong", vbExclamation, "Pesan")
                Exit Sub
            Else
                CMD = New OdbcCommand("select * from tbl_biodata where kode = '" & txtkode.Text & "'", Konek)
                DR = CMD.ExecuteReader
                DR.Read()
                If DR.HasRows Then
                    Dim edit As String = "update tbl_biodata set nama ='" & txtnama.Text & _
                        "',alamat='" & txtalamat.Text & _
                        "' where kode='" & txtkode.Text & "'"
                    CMD = New OdbcCommand(edit, Konek)
                    CMD.ExecuteNonQuery()
                    MsgBox("Berhasil di edit", vbInformation, "Edit")
                    Call tampil_data()
                    Call bersihkan()

                Else
                    MsgBox("Data belum dipilih")
                    Exit Sub
                End If
            End If
        Catch ex As Exception
            MsgBox("Terdapat kesalahan" & ex.Message)
        End Try
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        If txtkode.Text = "" Then
            MsgBox("Data belum di pilih", vbInformation, "Pesan")
            Exit Sub
        Else
            Dim hapusdata As String = "delete from tbl_biodata where kode = '" & txtkode.Text & "'"
            CMD = New OdbcCommand(hapusdata, Konek)
            CMD.ExecuteNonQuery()
            MsgBox("Data berhasil di hapus", vbInformation, "Pesan")
            Call tampil_data()
            Call bersihkan()
        End If
    End Sub
    Private Sub TABEL1_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles TABEL1.CellMouseClick
        On Error Resume Next
        txtkode.Text = TABEL1.Rows(e.RowIndex).Cells(0).Value
        CMD = New OdbcCommand("SELECT * FROM TBL_BIODATA WHERE KODE = '" & txtkode.Text & "'", Konek)
        DR = CMD.ExecuteReader
        DR.Read()
        If DR.HasRows Then
            txtkode.Text = DR.Item("KODE")
            txtnama.Text = DR.Item("NAMA")
            txtalamat.Text = DR.Item("ALAMAT")
        End If
    End Sub
    Private Sub txtCari_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCari.TextChanged
        If CBFILTER.SelectedIndex = 0 Then
            DA = New OdbcDataAdapter("select * from tbl_biodata where nama like '" & txtCari.Text & "%'", Konek)
            DS = New DataSet
            DA.Fill(DS)
            TABEL1.DataSource = DS.Tables(0)
        Else
            DA = New OdbcDataAdapter("select * from tbl_biodata where alamat like '" & txtCari.Text & "%'", Konek)
            DS = New DataSet
            DA.Fill(DS)
            TABEL1.DataSource = DS.Tables(0)
        End If
    End Sub
End Class

Jika sudah berhasil semua  kurang lebih hasilnya seperti gambar berikut ini.

Sekian dulu ya teman-teman tutorial singkat ini tentang CRUD di Visual basic.net jika ada kesalahan dalam penyampian materi dan sebagainya  mohon di maklumi.  Jika teman-teman juga kesulitan memahami artikel sudah saya siapkan juga tutorial dalam bentuk audio visual / video  klik link dibawah ini.

Video Tutorial CRUD VB.Net

Download Source Code

 


Delisman Hulu

Admin


Rekomondasi
Komentar

Harap berkomentar yang berkaitan dengan topik. Terimakasih