Edit File Database Access di Visual Basic

Melanjutkan artikel sebelumnya mengenai Cara Menambahkan / Input Data File Databases Access Dengan VB, Di tutorial kali ini kita akan belajar cara mengubah / edit sebuah data di microsoft access menggunakan visual basic. berikut tutorialnya :

Jika anda melanjutkan dari tutorial sebelumnya, anda bisa langsung ke langkah 5 dan ganti caption command1 menjadi "EDIT"

1. Buatlah file database access dengan format .mdb, namai tabel dengan "Data_User" dengan kriteria seperti ini :

Jika sudah, simpan database

2. Buka VB dan pilih project Standar EXE

3. Dan tambahkan 1 data grid, 3 text box, 2 command button, 3 label, dan 1 Adodc, atur propertiesnya sehingga seperti ini :

Tool Box	Properties	Keterangan
Form 1	Start Up Positions	Center Screen
Label 1	Caption	No
Label 2		Nama
Label 3		Alamat
Text 1	Text	(Kosong)
Text 2
Text 3
Command 1	Caption	EDIT
Commnad 2		KELUAR
Adodc 1	Visible	False
All	Font Size	12

4. Koneksikan Access dengan VB

Baca Juga : Cara Menghubungkan Ms. Access dengan Visual Basic

5. Jika sudah terhubung, tuliskan script berikut, sehingga keseluruhan script seperti ini :

Private Sub Command1_Click()
'Jika caption command 1 adalah "EDIT" maka
If Command1.Caption = "EDIT" Then
   With Adodc1
   Text1 = .Recordset.Fields(0) 'Text box akan berisi data dari database
   Text2 = .Recordset.Fields(1)
   Text3 = .Recordset.Fields(2)
   End With
   Command1.Caption = "UPDATE"
   Command2.Caption = "BATAL"

 'Jika caption command 1 adalah "UPDATE" maka
ElseIf Command1.Caption = "UPDATE" Then
'Perbaharui data database
   With Adodc1
   .Recordset.Fields(0) = Text1.Text
   .Recordset.Fields(1) = Text2.Text
   .Recordset.Fields(2) = Text3.Text
   .Recordset.Update
   .Refresh
   .RecordSource = "select * from Data_User"
   .Refresh
   End With
   DataGrid1.ReBind
   MsgBox "Data Berhasil DI Ubah", vbInformation, "BLUES PEDIA"
   Call Form_Load
End If
End Sub

Private Sub Command2_Click()
If Command2.Caption = "KELUAR" Then
End
ElseIf Command2.Caption = "BATAL" Then
Call Form_Load
End If
End Sub

Private Sub Form_Load()
'Kondisi awal program ketika program di jalankan
Text1 = ""
Text2 = ""
Text3 = ""
Command1.Caption = "EDIT"
Command2.Caption = "KELUAR"
End Sub

6. Jika sudah Jalankan program

Pertama klik salah satu record di data grid, lalu klik EDIT, maka otomatis text box akan berisikan data dari datagrid, dan editlah data sesuai keinginan, jika sudah klik UPDATE, dan database pun berhasil di perbaharui. dan klik KELUAR untuk menghentikan program.

Skian tutorial databas kali ini semoga bermanfaat