Download source code vb6, source code delphi7, tutorial vb, tutorial delphi, tutorial php

Simpan, Cari, Edit dan hapus pada Visual Basic 6.0

Share on :
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
  1. 'Simpan Data :  
  2.   
  3. Data1.Recordset.AddNew  
  4. Data1.Recordset!namakolom1 = Text1.Text  
  5. Data1.Recordset!namakolom2 = Text2.Text  
  6. Data1.Recordset.Update  
  7. Data1.Refresh  
  8.   
  9. 'Pencarian Data :  
  10.   
  11. Data1.Recordset.Index = "KodeIdx"  
  12. Data1.Recordset.Seek "=", Textcari.Text  
  13. If Not Data1.Recordset.NoMatch Then  
  14.      Text1.Text = Data1.Recordset!namakolom1  
  15.      Text2.Text = Data1.Recordset!namakolom2  
  16. Else  
  17.      MsgBox "Maaf, Data Tidak Ditemukan!"  
  18. End if  
  19.   
  20. 'Edit Data :  
  21.   
  22. Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.  
  23. Data1.Recordset.Edit  
  24. Data1.Recordset!namakolom1=Text1.Text  
  25. Data1.Recordset!namakolom2=Text2.Text  
  26. Data1.Recordset.Update  
  27. Data1.Refresh  
  28.   
  29. 'Hapus Data :  
  30.   
  31. Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.  
  32. Data1.Recordset.Delete  
  33. Data1.Refresh  


2. ADODC
  1. 'Simpan Data :  
  2. Adodc1.Recordset.AddNew  
  3. Adodc1.Recordset!namakolom1 = Text1.Text  
  4. Adodc1.Recordset!namakolom2 = Text2.Text  
  5. Adodc1.Recordset.Update  
  6. Adodc1.Refresh  
  7.   
  8.   
  9. 'Pencarian Data :  
  10.   
  11.   
  12. Adodc1.Recordset.Find "namakolom1='" + Text1.Text + "'", , adSearchForward, 1  
  13. If Not Adodc1.Recordset.EOF Then  
  14.      Text1.Text = Adodc1.Recordset!namakolom1  
  15.      Text2.Text = Adodc1.Recordset!namakolom2  
  16. Else  
  17.      MsgBox "Maaf, Data Tidak Ditemukan!"  
  18. End if  
  19.   
  20. 'Edit Data :  
  21.   
  22. Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.  
  23.   
  24. Adodc1.Recordset!namakolom1=Text1.Text  
  25. Adodc1.Recordset!namakolom2=Text2.Text  
  26. Adodc1.Recordset.Update  
  27. Adodc1.Refresh  
  28.   
  29. 'Hapus Data :  
  30.   
  31. Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.  
  32. Adodc1.Recordset.Delete  
  33. Adodc1.Refresh  

3. ADODB
Sebelum melangkah lebih jauh sebaiknya Anda membaca terlebih dahulu bagaimana koneksi database dengan menggunakan ADODB disini
  1. 'Simpan Data :  
  2. ado.Execute "INSERT INTO [nama tabel] VALUES ('" + Text1.Text + "','" +  Text2.Text + "')"  
  3.   
  4. 'Pencarian Data  
  5. Set Rs = New Adodb.Recordset  
  6. Rs.Open "SELECT * FROM [nama table1] WHERE [nama kolom1]='" + TextCari.Text + "'", ado  
  7. If Not rs.EOF Then  
  8.      Text1.Text = rs("namakolom1")  
  9.      Text2.Text = rs("namakolom2")  
  10. Else  
  11.      MsgBox "Maaf, Data Tidak Ditemukan!"  
  12. End if  
  13.   
  14. 'Edit Data  
  15.   
  16. ado.Execute "UPDATE [nama tabel] Set [namakolom1]='" + Text1.Text + _  
  17.                     "',[namakolom2]='" + Text2.Text + _  
  18.                     "' WHERE [nama kolom1]='" + TextCari.Text + "'"  
  19.   
  20. Code diatas tidak memerlukan lagi kode pencarian seperti code edit untuk DATA dan Adodc  
  21.   
  22. 'Hapus Data  
  23. 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

Klik Like/share jika anda menyukai tulisan Share


0 komentar on Simpan, Cari, Edit dan hapus pada Visual Basic 6.0 :

Post a Comment and Don't Spam!

Terimakasih Sudah Berkomentar di artikel ini