Wednesday 11 January 2012
Aplikasi Rental Mobil (aseeek..) VB 6.0
pasti masih banyak kekurangan... mohon di koreksi dan saya berharap sarannya...
Aplikasi Pembayaran Kursus (VB 6.0) Tugas liburan tahun baru...
Wednesday 30 November 2011
Monday 31 October 2011
pencarian menggunakan textbox VB6
Adodc1.RecordSource = "select*from pesan where nama='" & Text4 & "' "
Adodc1.Refresh
With Adodc1.Recordset
If .BOF And .EOF Then
MsgBox "data tidak ada"
Text4 = ""
Text4.SetFocus
Else
tampil
Text4 = ""
Text4.SetFocus
End If
End With
With Adodc1.Recordset
If isi = True Then
.AddNew
.Fields("field") = Text1.Text
.Fields("field") = DTPicker1
.Update
Else
.Fields("field") = Text1.Text
.Fields("field") = DTPicker1
.Update
End If
End With
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
menampilkan kode otomatis berdasarkan tahun VB6
if adodc1.recordset.BOF and adodc1.recordset. EOF then
text1.text=format (date,"yyyy") & "001"
else
adodc1.recordset.movelast
text1.text=format(date,"yyyy")&right(str(val(right(adodc1.recordset!field,3))+1001),3)
end if
text1.text=adodc1.recordset.fields("field")
Monday 24 October 2011
jangan diketawakan ya.. namanya juga masih belajar.. hehe... tapi tolong di bantu ya.. di kasih taw kekurangannnya...
Popular Posts
-
2 Langkah Mudah Bergabung Daftar Gratis 100%, Tanpa Biaya Registrasi ( ahmad mustaqim CN001741 ) 085640865808 >>>...
-
Gridkaryawan.Cols = 6 Gridkaryawan.Rows = 10 Gridkaryawan.ColWidth(0) = 100 Gridkaryawan.ColWidth(1) = 900 Gridkaryawan.ColWidth(2) = 200...
-
klik download Narpes Antivirus C Language Source Code V 2 klik download Narpes Antivirus C Language Source Code V 1 klik download Narp...
-
text1.text=adodc1.recordset.fields("field")
-
Vb2 View more documents from Ahmad Mustaqim .
-
monggo dipun unduh bos...bok menawi pengen di cobo... Adobe PhotoShop CS5 12.0.3 meniko dipun pencet . 3all
-
With Adodc1.Recordset If isi = True Then .AddNew .Fields("field") = Text1.Text .Fields("field") = DTPicker1 .Update...