Tags Posts tagged with "insert update delete vb.net"

insert update delete vb.net

0 35

Pada posting kali ini saya akan membahas bagaimana cara melakukan proses crud(create, read, update, delete) tabel database MySql dengan VB.net. Sebagai percobaan saya membuat project aplikasi sederhana untuk mempraktekan proses insert, update, delete di VB.net dengan database mysql. Untuk koneksi VB.net silahkan baca petunjuknya di postingan saya koneksi VB.net dengan mysql. Kemudian buat database mysql dan tabelnya. Kali ini saya membuat database bernama phonebook, dengan tabel phonebook. Tabel phonebook terdiri dari field id, nomor, nama, dan email

Setelah database dibuat, kita memulai membuat project baru di vb.net. Beri nama project phonebook. Lakukan koneksi vb.net dengan mysql. Kemudian mulai mendesign form vb.net. Design form yang saya buat adalah seperti berikut ini:


Untuk memudahkan proses coding, saya merubah nama textbox dan button. Kemudian kita dapat memulai coding. Kita deklarasikan variable yang akan kita gunakan untuk menampung data dari database. Source nya sebagai berikut:

Public strconn As String = "server=localhost; uid=root; pwd=; database=phonebook;"
'buat objek adapter
Dim myadp As MySqlDataAdapter
'buat data tabel (agar data disusun tabel)
Dim dt As New DataTable
'buat perintah query disini
Public conn As New MySqlConnection(strconn)

Kemudian kita membuat event onLoad yang akan kita beri code berikut:

'jika koneksi tertutup
If conn.State = ConnectionState.Closed Then
Try
'buka koneksi
conn.Open()
'tangkap error mysql, jika ada ( ini hanya sebagian)
Catch mex As MySqlException
If mex.Number = 0 Then
MsgBox("Tidak bisa connect ke db", "no server")
ElseIf mex.Number = 1045 Then
MsgBox("Salah user/pass mysql", "akses ditolak")
Else
MsgBox(mex.Number & mex.Message)
End If
'tangkap error umum
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
Call read_data()

Untuk function read_data() kita gunakan untuk membaca data dari database. isi source codenya adalah sebagai berikut:


Private Sub read_data()
Dim query As String
query = "select * from phonebook"
Try
'jalankan perintah baca
myadp = New MySqlDataAdapter(query, conn)
'isi data tabel
dt.Clear()
myadp.Fill(dt)
'pindahkan isi data tabel ke dgv_data
Dgv_data.DataSource = dt
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

 

Setelah ini kita dapat memasukan source code untuk melakukan insert, update, dan delete. source code insert adalah sebagai berikut:

If btntambah.Text = "simpan" Then
Dim mycmd As New MySqlCommand("insert into phonebook (id,nomorHp,nama,email) values ('','" & txtnumber.Text & "','" & txtnama.Text & "','" & txtemail.Text & "')", conn)
Try
If mycmd.ExecuteNonQuery() = 1 Then
MsgBox("insert data berhasil")
txtnumber.Text = ""
txtnama.Text = ""
txtemail.Text = ""

txtnumber.Enabled = False
txtnama.Enabled = False
txtemail.Enabled = False

btnhapus.Enabled = True
btnubah.Enabled = True
btntambah.Text = “tambah”
Call read_data()
Exit Sub
End If

Untuk source code hapus, adalah sebagai berikut:

Dim mycmd As New MySqlCommand("delete from phonebook where id='" & txtidku.Text & "'", conn)
Try
If mycmd.ExecuteNonQuery() = 1 Then
MsgBox("Hapus data berhasil")
Call read_data()
End If
Catch ex As MySqlException
MsgBox("insert data gagal")
End Try
Else
MsgBox("Pilih data yang ingin dihapus")

terakhir untuk proses update record database, dapat menggunakan source code berikut:


If btnubah.Text = "simpan" Then
Dim mycmd As New MySqlCommand("update phonebook set nomorHp='" & txtnumber.Text & "', nama='" & txtnama.Text & "',email='" & txtemail.Text & "' where id='" & txtidku.Text & "'", conn)
Try
If mycmd.ExecuteNonQuery() = 1 Then
MsgBox("update data berhasil")
txtnumber.Text = ""
txtnama.Text = ""
txtemail.Text = ""

txtnumber.Enabled = False
txtnama.Enabled = False
txtemail.Enabled = False

btnhapus.Enabled = True
btnubah.Enabled = True
btnubah.Text = “Ubah”
Call read_data()
Exit Sub
End If

Catch ex As MySqlException
MsgBox(“update data gagal”)
End Try
End If

Silahkan coba compile dan jalankan aplikasinya. Aplikasi ini masih sederhana dan jauh dari sempurna, namun sudah mencukupi untuk melakukan uji coba sederhana. Saran dan masukan sangat diharapkan untuk menyempurnakan panduan ini. Semoga bermanfaat.

Link source code:

download