Coding Visual Basic

                Berikut adalah comtoh penulisan code vb6 untuk simpan, cari, ubah dan hapus data dengan menggunakan Data Control, ADODC, dan ADODB. (codenya basic/pemula)

Code-code dibawah ini hanya sebatas code-code dasar untuk simpan, cari, ubah dan hapus, tidak disertakan code-code validasi, penanganan error ataupun code untuk koneksinya.

 

1. 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

2. 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

3. ADODB

Sebelum melangkah lebih jauh sebaiknya Anda membaca terlebih dahulu bagaimana koneksi database dengan menggunakan ADODB disini

#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

By : ITB MEDICOM