Tutorial Insert, Edit & Delete Data Tabel dengan Visual Basic

Di tutorial Insert, Edit & Delete Data Tabel dengan Visual Basic, anda akan belejar bagaimana menambah record ke database (save data), mengedit record yang telah ada di tabel (edit data) dan menghapus record yang telah ada di tabel (delete data).

Bukalah kembali project yang telah anda buat pada tutorial sebelumnya.

Pada tutorial sebelumnya anda telah membuat admin_from seperti di bawah:

Pilih menu project -> Components atau tekan Crtl+T pada keybord anda. Centang pada “Microsoft ADO Data Control 6.0 (OLEDB)” dan “Microsoft DataGrid Control 6.0 (OLEDB)” kemudian tekan tombol OK. Pada bagian pallet window akan muncul icon seperti yang diberi tanda di bawah, yang diberi tanda merah adalah “Microsoft ADO Data Control 6.0 (OLEDB)” atau disingkat ADODC dan yang diberi tanda biru adalah “Microsoft DataGrid Control 6.0 (OLEDB)” atau disingkat DataGrid.

Sekarang pilih menu Project -> Add From, pada window Add Form pilih Form dan tekan tombol Open. Sebuah form baru akan terbentuk. Tambahkan 4 label, 4 text box, 4 button, 1 Adodc dan 1 datagrid, seperti di bawah:

Kemudian atur properti form tersebut seperti berikut :

Setelah diatur propertinya maka hasilnya akan seperti berikut:

Langkah selanjunya, double click pada from dan ketik kode di bawah :

Option Explicit
Public rs_Product As ADODB.Recordset

Private Sub Form_Load()
On Error GoTo salah
'membuka koneksi
Call Koneksi
Set rs_Product = New ADODB.Recordset
Dim SQl As String
'membentuk query untuk menampilkan data
SQl = "select * from product order by product_id"
'membuka tabel
rs_Product.CursorLocation = adUseClient
rs_Product.Open SQl, conn, adOpenDynamic, adLockOptimistic
'manampilkan data pada datagrid
Set ado_product.Recordset = rs_Product

Exit Sub
salah:
MsgBox err.Description
End Sub

apa yang dilakukan kode di atas adalah membuka koneksi dengan memanggil Sub Koneksi, membuat ADODC.Recordset baru (Set rs_Product = New ADODB.Recordset) dan membuat query untuk membaca record pada tabel. Setelah itu membukan tabel dengan perintah Open (rs_Product.CursorLocation = adUseClient diikuti rs_Product.Open SQl, conn, adOpenDynamic, adLockOptimistic) dan kemudian menampilkanya pada Datagrid.

Sekarang double click tombol Add dan ketik kode berikut:

Private Sub btn_add_Click()
On Error GoTo salah
If btn_add.Caption = "Add" Then
btn_add.Caption = "Save"
'menambah record baru ke tabel
ado_product.Recordset.AddNew

txt_prd_ID.Locked = False
txt_prd_name.Locked = False
txt_price.Locked = False
txt_stock.Locked = False
btn_edit.Enabled = False
btn_delete.Enabled = False
Else
'menyimpan record baru
ado_product.Recordset.Update

txt_prd_name.Locked = True
txt_prd_ID.Locked = True
txt_price.Locked = True
txt_stock.Locked = True
btn_edit.Enabled = True
btn_delete.Enabled = True
btn_add.Caption = "Add"
End If
Exit Sub
salah:
MsgBox err.Description
End Sub

Kode di atas digunakan untuk menambahkan record ke tabel pada database. Sekarang double click pada tombol Edit dan ketik kode berikut :

Private Sub btn_edit_Click()
On Error GoTo salah
If btn_edit.Caption = "Edit" Then
'edit record pada tabel
ado_product.Recordset.Update

txt_prd_ID.Locked = False
txt_prd_name.Locked = False
txt_price.Locked = False
txt_stock.Locked = False
btn_edit.Caption = "Save"
btn_delete.Enabled = False
btn_add.Enabled = False
Else
'simpan perubahan data
'dan kembalikan kondisi tombol dan text box
txt_prd_name.Locked = True
txt_prd_ID.Locked = True
txt_price.Locked = True
txt_stock.Locked = True
btn_add.Enabled = True
btn_delete.Enabled = True
btn_edit.Caption = "Edit"
End If
Exit Sub
salah:
MsgBox err.Description

End Sub

Kode di atas digunakan untuk mengedit record yang telah ada di tabel. Selanjutnya double click tombol Delete dan ketik kode berikut:

Private Sub btn_delete_Click()
On Error GoTo salah
Dim pil As VbMsgBoxResult
pil = MsgBox("Are you sure to delete?", vbYesNo + vbQuestion, "Delete")
If pil = vbYes Then
'hapus record
ado_product.Recordset.Delete
'memapilkan kembali record-record tabel
Call Form_Load
End If
Exit Sub
salah:
MsgBox err.Description
End Sub

Kode tersebut digunakan untuk menghapus record yang ada di tabel. Sekarang double click pada ADODC (ado_product) dan ketik kode berikut :

Private Sub ado_product_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
ado_product.Caption = "Data ke-" & ado_product.Recordset.AbsolutePosition & " Dari total " & ado_product.Recordset.RecordCount & " data"
End Sub

Yang terakhir double click pada tombol Close dan ketik kode :

Private Sub btn_close_Click()
Unload Me
End Sub

Sampai disini anda telah selesai membuat form untuk menambah record ke database, mengedit record yang telah ada, dan menghapus record yang telah ada di tabel. Sekarang anda buka form_admin (Gambar 1) dan double click pada tombol Product dan ketik kode berikut:

Private Sub btn_product_Click()
Load form_product
form_product.Show
End Sub 

Sekarang simpan project anda kembali dan cobalah untuk menjalanknya dengan menekan tombol F5 pada keybord atau dengan memilih menu Run -> Start.

Di tutorial Membuat Aplikasi Client Server dengan VB dan MYSQL, pokok bahasan Insert, Edit & Delete Data Tabel dengan Visual Basic, anda telah belajar tentang cara insert data ke tabel mysql, edit data, dan delete data yang ada di tabel menggunakan ADODB. Belajar cara menggunakan Microsoft ADO Data Control 6.0 (OLEDB)” atau disingkat ADODC dan “Microsoft DataGrid Control 6.0 “

Silahkan anda download file tutorial kali ini melalui tombol download di bawah ini :

Download

sumber : myphptutorial