Simpan, Edit, Hapus, Cari di Visual Basic 6.0

Kali ini mau share tentang VB 6.0, yaitu program sederhana Simpan, Edit, Hapus, Cari di Visual Basic 6.0 dengan databasenya di microsoft access.
1. Langkah pertama buat project standard EXE dengan tampilan sebagai berikut :

catatan :
nama = text1
alamat = text2
cari = text3
simpan = command1
edit = command2
delete = command3
cari = command4
*Tambahkan components baru yaitu adodc dan datagrid.
caranya tekan Ctrl + T lalu centang pilihan seperti pada gambar

2. setelah selesai, sekarang hubungkan database (dalam hal ini menggunakan dbaccess ) dengan koneksi menggunakan adodc
caranya :
a. klik kanan pada adodc1 pilih ADODC Properties, maka akan ada tampilan sebagai berikut

b. klik pada pilihan build, maka akan tampil :

pada pilihan "select or enter a database name" arahkan pada database yang ingin dihubungkan (dalam hal ini nama databasenya adalah latihan"
lalu klik OK
c. stelah klik OK, maka akan muncul tampilan sebagai berikut :

d. Klik/pilih pada tab RecordSource

pada command type pilih 2 - adCmdTable, lalu pada table or stored procedure pilih database latihan. klik apply lalu OK

e. setelah itu klik pada datagrid1, pada datasource-nya pilih adodc1

3. setelah semua sudah dilakukan, sekarang tinggal penulisan source code nya. double click pada form dan paste-kan source berikut :

Private Sub Form_Activate()
Text1.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command4.SetFocus
End If
End Sub

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!Nama = Text1.Text
Adodc1.Recordset!Alamat = Text2.Text
Adodc1.Recordset.Update
DataGrid1.Refresh

Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command2_Click()
Select Case Command2.Caption
Case "edit"
Command2.Caption = "update"
Text1.Text = Adodc1.Recordset!Nama
Text2.Text = Adodc1.Recordset!Alamat
Case "update"
Adodc1.Recordset!Nama = Text1.Text
Adodc1.Recordset!Alamat = Text2.Text
Adodc1.Recordset.Update
DataGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Command2.Caption = "edit"
End Select
End Sub

Private Sub Command3_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.Find "Nama like '%" + Text3.Text + "%'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
     Text1.Text = Adodc1.Recordset!Nama
     Text2.Text = Adodc1.Recordset!Alamat
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End If
End Sub


Terakhir untuk running program tekan F5. Berikut tampilan programnya :

Sekian, terima kasih :)
Yang sudah berkunjung silahkan kasih komentarnya ya hehe