Selamat sore semuanya. Ehmm... Akhirnya Saya sempat juga buka blog setelah seharian harus menyelesaikan setrikaan yang menggunung. Hehehe... Ini juga demi memenuhi permintaan teman Saya yang minta dituliskan script VB (Kenapa harus ke Saya??? Saya juga belum kelar tugasnyaaa... (۳˚Д˚)۳ ) Tapi gak papa lah, siapa tau abis corat coret disini Saya bisa dapet inspirasi... （*´▽｀*）

Haduuuuh bertele-tele banget dwehhh ngomongnya. Kalo gitu langsung aja yak!!!

Sebenernya ini cuma script-script dasar aja untuk menu simpan, cari, ubah dan hapus data setelah form terkoneksi dengan database (Saya menggunakan Access). Tidak disertakan kode-kode validasi, penanganan error ataupun kode untuk koneksinya. >> Kemampuan masih terbatas << Berikut scriptnya...

KONEKSI DENGAN DATA CONTROL
Yang perlu diperhatian adalah bahwa Data Control membutuhkan index untuk pencarian yang selanjutnya untuk melakukan edit dan hapus data.

Simpan Data :

Data1.Recordset.AddNew
Data1.Recordset!namakolom1 = Text1.Text
Data1.Recordset!namakolom2 = Text2.Text
Data1.Recordset.Update
Data1.Refresh

Pencarian Data :

Data1.Recordset.Index = "KodeIdx"
Data1.Recordset.Seek "=", Textcari.Text
If Not Data1.Recordset.NoMatch Then
Text1.Text = Data1.Recordset!namakolom1
Text2.Text = Data1.Recordset!namakolom2
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End if

Edit Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.

Data1.Recordset.Edit
Data1.Recordset!namakolom1=Text1.Text
Data1.Recordset!namakolom2=Text2.Text
Data1.Recordset.Update
Data1.Refresh

Hapus Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.

Data1.Recordset.Delete
Data1.Refresh

KONEKSI DENGAN ADODC

Simpan Data :

Adodc1.Recordset.AddNew
Adodc1.Recordset!namakolom1 = Text1.Text
Adodc1.Recordset!namakolom2 = Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh

Pencarian Data :

Adodc1.Recordset.Find "namakolom1='" + Text1.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
Text1.Text = Adodc1.Recordset!namakolom1
Text2.Text = Adodc1.Recordset!namakolom2
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End if

Edit Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.

Adodc1.Recordset!namakolom1=Text1.Text
Adodc1.Recordset!namakolom2=Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh

Hapus Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.

Adodc1.Recordset.Delete
Adodc1.Refresh

KONEKSI DENGAN ADODB

Simpan Data :

ado.Execute "INSERT INTO [nama tabel] VALUES ('" + Text1.Text + "','" + Text2.Text + "')"

Pencarian Data :

Set Rs = New Adodb.Recordset
Rs.Open "SELECT * FROM [nama table1] WHERE [nama kolom1]='" + TextCari.Text + "'", ado
If Not rs.EOF Then
Text1.Text = rs("namakolom1")
Text2.Text = rs("namakolom2")
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End if

Edit Data :

ado.Execute "UPDATE [nama tabel] Set [namakolom1]='" + Text1.Text + _
"',[namakolom2]='" + Text2.Text + _
"' WHERE [nama kolom1]='" + TextCari.Text + "'"

(Code diatas tidak memerlukan lagi kode pencarian seperti code edit untuk DATA dan Adodc)

Hapus Data :
ado.Execute "DELETE * FROM [nama tabel] WHERE [nama kolom1]='" + TextCari.Text + "'"

Begitulah scriptnya secara umum, silakan sesuaikan nama kolom dan nama tabel dengan tabel yang Anda buat. Semoga bermanfaat, selamat pusing dan Saya pamit dulu. Bye bye! *Dadah dadah ama kamera* \(◦^▽^◦)/