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
• Hapus Data
ado.Execute "DELETE * FROM [nama tabel] WHERE [nama kolom1]='" + TextCari.Text + "'"
Code diatas tidak memerlukan lagi kode pencarian seperti code hapus untuk DATA dan Adodc
Terima Kasih, Semoga Bermanfaat.
Labels:
Tutorial VB6
Previous Article
Responses
3 Respones to "Perintah Search, Insert, Update dan Delete dalam VB6"
thanks gan, boleh di coba :D
7 Maret 2013 pukul 02.31
SAYA MAS JOKO WIDODO DI SURABAYA.
DEMI ALLAH INI CERITA YANG BENAR BENAR TERJADI(ASLI)BUKAN REKAYASA!!!
HANYA DENGAN MENPROMOSIKAN WETSITE KIYAI KANJENG DIMAS DI INTERNET SAYA BARU MERASA LEGAH KARNA BERKAT BANTUAN BELIU HUTANG PIUTAN SAYA YANG RATUSAN JUTA SUDAH LUNAS SEMUA PADAHAL DULUHNYA SAYA SUDAH KE TIPU 5 KALI OLEH DUKUN YANG TIDAK BERTANGUNG JAWAB HUTANG SAYA DI MANA MANA KARNA HARUS MENBAYAR MAHAR YANG TIADA HENTINGNYA YANG INILAH YANG ITULAH'TAPI AKU TIDAK PUTUS ASA DALAM HATI KECILKU TIDAK MUNKIN SEMUA DUKUN DI INTERNET PALSU AHIRNYA KU TEMUKAN NOMOR KIYAI KANJENG DI INTERNET AKU MENDAFTAR JADI SANTRI DENGAN MENBAYAR SHAKAT YANG DI MINTA ALHASIL CUMA DENGAN WAKTU 2 HARI SAJA AKU SUDAH MENDAPATKAN APA YANG KU HARAPKAN SERIUS INI KISAH NYATA DARI SAYA.....
…TERIMA KASIH ATAS BANTUANNYA AKI KANJENG…
**** BELIAU MELAYANI SEPERTI: ***
1.PESUGIHAN INSTANT 10 MILYAR
2.UANG KEMBALI PECAHAN 100rb DAN 50rb
3.JUAL TUYUL MEMEK / JUAL MUSUH
4.ANGKA TOGEL GHOIB.DLL..
…=>AKI KANJENG<=…
>>>085-320-279-333<<<
SAYA MAS JOKO WIDODO DI SURABAYA.
DEMI ALLAH INI CERITA YANG BENAR BENAR TERJADI(ASLI)BUKAN REKAYASA!!!
HANYA DENGAN MENPROMOSIKAN WETSITE KIYAI KANJENG DIMAS DI INTERNET SAYA BARU MERASA LEGAH KARNA BERKAT BANTUAN BELIU HUTANG PIUTAN SAYA YANG RATUSAN JUTA SUDAH LUNAS SEMUA PADAHAL DULUHNYA SAYA SUDAH KE TIPU 5 KALI OLEH DUKUN YANG TIDAK BERTANGUNG JAWAB HUTANG SAYA DI MANA MANA KARNA HARUS MENBAYAR MAHAR YANG TIADA HENTINGNYA YANG INILAH YANG ITULAH'TAPI AKU TIDAK PUTUS ASA DALAM HATI KECILKU TIDAK MUNKIN SEMUA DUKUN DI INTERNET PALSU AHIRNYA KU TEMUKAN NOMOR KIYAI KANJENG DI INTERNET AKU MENDAFTAR JADI SANTRI DENGAN MENBAYAR SHAKAT YANG DI MINTA ALHASIL CUMA DENGAN WAKTU 2 HARI SAJA AKU SUDAH MENDAPATKAN APA YANG KU HARAPKAN SERIUS INI KISAH NYATA DARI SAYA.....
…TERIMA KASIH ATAS BANTUANNYA AKI KANJENG…
**** BELIAU MELAYANI SEPERTI: ***
1.PESUGIHAN INSTANT 10 MILYAR
2.UANG KEMBALI PECAHAN 100rb DAN 50rb
3.JUAL TUYUL MEMEK / JUAL MUSUH
4.ANGKA TOGEL GHOIB.DLL..
…=>AKI KANJENG<=…
>>>085-320-279-333<<<
20 Februari 2016 pukul 07.14
@Kiyai kanjeng dimas taat pribadi Bodo Amat
20 Agustus 2017 pukul 20.02
Posting Komentar