Belajar Visual Basic, Pencarian data dan Update

Artikel ini lanjutan dari artikel sebelumnya. Jika kamu belum sempat membaca/membuat program  seperti contoh pada artikel sebelumnya, kamu bisa download di sini.

Pada artikel sebelumnya, kita baru belajar memasukkan data dan menghapusnya. Kali ini kita akan membuat "pencarian data" dan "update data".

Langkah :

1. buka visual basic, open project kita sebelumnya ( atau yang kamu download barusan di atas)

2. tambah 2 buah command button, 1 buah textbox sehingga formnya seperti ini :

Atur properties :

commandbutton1, name = cmdcari, caption= CARI

commandbutoon2, name = cmdupdate, caption = UPDATE

textbox, name = txtcari, text= (kosong i)

sebelum kita masuk coding, kita buat index dulu pada database. Index ini nanti berguna sebagai kata kunci pencarian. Karena kita akan mencari berdasarkan NIM maka index yang kita buat pada database adalah field NIM.

Membuat Index pada database.

- klik menu Add-Ins, Visual Data Manager.

- akan muncul jendela VisData.

- klik File, Open Database, Microsoft Acces

- cari nama database kamu (dalam contoh ini nama database kita :databaseku)

- akan muncul nama database dan tabel kita.



- klik kanan pada tabel, pilih design...

- klik Add Index

- pada jendela yang muncul,isikan name = nimindex, kemudian pada Available Fields kamu klik nim.

- tekan button OK kemudian Close

- kita masih kembali ke jendela Table Structure, kita Close saja.

pembuatan index pun selesai. ( penjelasan : kita tadi telah membuat index dengan nama nimindex)

Kita menuju coding pencarian dan update:

Private Sub cmdcari_Click()
Data1.Recordset.Index = "nimindex"
Data1.Recordset.Seek "=", txtcari.Text
txtnim.Text = Data1.Recordset!nim
txtnama.Text = Data1.Recordset!nama
If Data1.Recordset!jkel = "L" Then
Option1.Value = True
Else
Option2.Value = True
End If
cmdtambah.Enabled = False
txtnim.Enabled = False
End Sub

Private Sub cmdupdate_Click()
On Error Resume Next
Data1.Recordset.Edit
Data1.Recordset!nama = txtnama
If Option1.Value = True Then
Data1.Recordset!jkel = "L"
Else
Data1.Recordset!jkel = "P"
End If
Data1.Recordset.Update
txtnim.Enabled = True
txtnim.Text = ""
txtnim.SetFocus
txtnama.Text = ""
txtcari.Text = ""
cmdtambah.Enabled = True
End Sub

Selesai.. :)

[artikel ini murni tulisan saya(alvin) sendiri, jika ada artikel yang mirip atau sama seperti artikel ini di blog/website lainnya, maka dapat diperkirakan artikel tersebut ngopi punya saya]