lazada.co.id

Monday 31 October 2011

pencarian menggunakan inputbox VB6

Posted by Unknown | Monday 31 October 2011 | Category: |

vcar = (InputBox("pesan", "info"))
Adodc1.Recordset.Find "field='" & vcar & "'", , adSearchForward, 1
If Adodc1.Recordset.EOF Then
MsgBox "data tidak di temukan"
Adodc1.Refresh
Else
a = MsgBox("pesan", vbYesNo, "info")
If a = vbYes Then
Adodc1.Recordset.Delete
End If
End If


Currently have 0 comments:


Leave a Reply

Subscribe to: Post Comments (Atom)

Popular Posts

  • (no title)
    2 Langkah Mudah Bergabung Daftar Gratis 100%, Tanpa Biaya Registrasi ( ahmad mustaqim CN001741 ) 085640865808 >>>...
  • mengatur tabel grid VB6
    Gridkaryawan.Cols = 6 Gridkaryawan.Rows = 10 Gridkaryawan.ColWidth(0) = 100 Gridkaryawan.ColWidth(1) = 900 Gridkaryawan.ColWidth(2) = 200...
  • Narpes Antivirus C Language Source Code V 2
    klik download  Narpes Antivirus C Language Source Code V 2 klik download Narpes Antivirus C Language Source Code V 1 klik download Narp...
  • smadav
      klik download smadav v.8.4 sumber : http://www.smadav.net/
  • Camp Fire Kiss
    nie dia baru games, boleh nie dicoba, eitz...... download dulu klik  
  • (no title)
    KOMISI & BONUS MEMBER Meskipun dengan keanggotaan GRATIS / Free 100% , namun sistem ...
  • prosedur tampil pada vb6.0
     text1.text=adodc1.recordset.fields("field")
  • operamini software
    download operamini v.4.1 indosat klik (khusus buat pengguna kartu indosat)
  • contoh program toko
    Private Sub brsh_Click() a = MsgBox("yakin mau di bersihkan?", vbOKCancel, "info") If a = vbOK Then kobar.Text = &...
  • Adobe PhotoShop CS5 12.0.3
    monggo dipun unduh bos...bok menawi pengen di cobo...  Adobe PhotoShop CS5 12.0.3 meniko dipun pencet   . 3all