Cara Buat CRUD VB Net dan ODBC MySQL - Simpan Edit dan Hapus
08 October 2020 08:01 6863 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.
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.
Rekomondasi
Artikel Terbaru
Cara Membuat Foreach Data Array Nama Bulan di PHP Native
PHP
Dilihat 2114 Kali
Contoh Code Switch Statement di PHP Native
PHP
Dilihat 1508 Kali
Cara Membuat Kondisi IF dan Else dengan PHP Native
PHP
Dilihat 1365 Kali
Cara Membuat Array Nama Bulan di PHP Native
PHP
Dilihat 2104 Kali
Tutorial CRUD Laravel 7 Eloquent dengan Bootstrap - Database dan Migration - Part 2
Laravel
Dilihat 3622 Kali
Tutorial CRUD Laravel 7 Eloquent dengan Bootstrap - Tahap Awal Instalasi - Part 1
Laravel
Dilihat 2736 Kali
Cara Membuat CRUD Rest API dengan Lumen – Delete Data - Part 7
Lumen
Dilihat 1891 Kali
Lumen
Vue JS
Laravel
Flutter
VB Net
CSS
Teknologi
SQL Server
MYSQL
PHP
HTML
Harap berkomentar yang berkaitan dengan topik. Terimakasih