CARA MEMBUAT INPUT, UPDATE, DELETE dan CARI DATA DI VISUAL BASIC 6.0

 cara membuat input, update, delete dan cari data di visual basic 6.0 - aksi penting yang biasanya di aplikasi sistem informasi seperti yang akan saya tutorialkan.

Memasukan data di suatu sistem informasi itu pasti selalu dilakukan oleh user dan sebagai programmer bagaimana anda membuat aplikasi yang memudahkan user untuk memasukan data dengan cepat, mudah & juga menarik.

Memperbarui data, bila user boleh memasukan data terkadang data tersebut sudah harus diganti dengan yang baru atau user salah memasukan data berarti seorang user harus memperbarui datanya.

Menghapus data, bila ada data yang sudah tidak penting lagi atau suatu data yang salah dimasukan, berarti harus dihapus dari database karna hal ini sangat penting dalam sistem informasi data yang terlau banyak dapat menghambat kelancaran sistem informasi apalagi kalau memori anda hampir penuh :v.

Di tutorial ini masih pakai aplikasi visual basic 6.0 karena, masih banyak sekolah yang mengajarkan tentang visual basic 6.0 tetapi lain kali saya share tutorial dengan aplikasi lain. Di visual basic 6 yang dibutuhkan database dari microsoft access , adodc, dan datagrid. Sebelum membuat aplikasinya buat database terlebih dahulu dengan microsoft access dengan format *.mdb, nama tabel member dengan field kode(number) & nama(text).

1. buka visual basic 6.0 > pilih standar exe

2. ctrl + t , maka keluar window komponen di vb 6 > pilih komponen  Microsoft ADO Data Control     6.0 (OLEDB) & Microsoft Datagrid Control 6.0(OLEDB) > klik OK

3. tambahkan 2 label, 3 text box, 4 command button, 1 datagrid, dan 1 adodc.

4. perintah command1 : 

Private Sub Command1_Click()

If Text1.Text = "" Or Text2.Text = "" Then

MsgBox "data masih ada yang kurang"

Else

Adodc1.Recordset.AddNew

Adodc1.Recordset!kode = Text1

Adodc1.Recordset!nama = Text2

Adodc1.Recordset.Update

Adodc1.Refresh

End If

Adodc1.Refresh

End Sub

5. perintah command2 :

Private Sub Command2_Click()

If Text1.Text = "" Or Text2.Text = "" Then

MsgBox "data masih ada yang kurang"

Else

Adodc1.Recordset!kode = Text1

Adodc1.Recordset!nama = Text2

Adodc1.Recordset.Update

Adodc1.Refresh

End If

Adodc1.Refresh

End Sub

6. perintah command 3 :

Private Sub Command3_Click()

Adodc1.Recordset.Delete

Adodc1.Refresh

End Sub

 7. perintah command 4 :

Private Sub Command4_Click()

Text1.Text = vbclear

Text2.Text = vbclear

End Sub

 8. perintah text3 :

Private Sub Text3_Change()

If Text3.Text = "" Then

Adodc1.RecordSource = "select * from member"

Adodc1.Refresh

Else

Adodc1.RecordSource = "select * from member where nama='" & Text3.Text & "'"

Adodc1.Refresh

End If

End Sub

 9. perintah datagrid1 pada properties: datasource = adodc1 > pada window script :

Private Sub DataGrid1_Click()

If Adodc1.Recordset.EOF And Adodc1.Recordset.BOF Then

MsgBox "Data 0"

Else

Text1.Text = Adodc1.Recordset!kode

Text2.Text = Adodc1.Recordset!nama

End If

End Sub

 10. klik kanan pada adodc1 > adodc properties > klik build > pilih Microsoft.Jet.OLEDB.4.0 >          klik next > select or enter database(gunakan database ms.access format *.mdb) > klik ok
       klik tab recordsource > pada command text sql ( select * from member) > klik ok.

 Source code : download