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 BoxPropertiesKeterangan
Form 1Start Up PositionsCenter Screen
Label 1CaptionNo
Label 2Nama
Label 3Alamat
Text 1Text(Kosong)
Text 2
Text 3
Command 1CaptionEDIT
Commnad 2KELUAR
Adodc 1VisibleFalse
AllFont Size12

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




Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+

0 Response to "Edit File Database Access di Visual Basic"

Post a Comment