Coding SIMPAN,EDIT,HAPUS,Dan Cari di VB6

Materi pembelajaran visual basic6 di wearnes madiun akhirnya selesai juga.. nah pada artikel kali ini akan sedikit saya berikan CARA UNTUK EDIT,HAPUS,TAMBAH dan CARI DI VB6 dengan ADODC Ataupun ADODB di visual basic6.
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

nah untuk adodb koneksina pake module add module dolo buat koneksina...

sederhanana kaya gini



Public con As New ADODB.Connection

Public rst As New ADODB.Recordset 'berfungsi sebagai variabel penyimpan sementara record

Public strcon As String ' variabel untuk code koneksi

Public strsql As String ' variabel untuk menampung code atau query sql

Public Sub Connections()
strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=test"



Nb : nah isi provider bla bla bla diatas... diambil dari connection string di data maupun adodc di jendela propertiesna copas z oce...



#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...
Silakan di coba apabila anda mengalami kesulitan dalam CARA UNTUK EDIT,HAPUS,TAMBAH dan CARI DI VB6 dengan ADODC Ataupun ADODB di visual basic6. bisa meninggalkan komentar di bawah..

Share on Google Plus