Wednesday, 11 January 2012
Aplikasi Rental Mobil (aseeek..) VB 6.0
Posted by Unknown | Wednesday, 11 January 2012 | Category:
vb6
|
0
comments

pasti masih banyak kekurangan... mohon di koreksi dan saya berharap sarannya.....
Aplikasi Pembayaran Kursus (VB 6.0) Tugas liburan tahun baru...
Posted by Unknown | | Category:
vb6
|
0
comments

Kursus
View more documents from Ahmad Mustaqim.
...
Wednesday, 30 November 2011

Vb2
View more documents from Ahmad Mustaqim...
Monday, 31 October 2011
pencarian menggunakan textbox VB6
Posted by Unknown | Monday, 31 October 2011 | Category:
tutorial VB6
|
0
comments

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
...

Normal 0 false false false EN-US X-NONE X-NONE MicrosoftInternetExplorer4 ...

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 W...

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...
menampilkan kode otomatis berdasarkan tahun VB6
Posted by Unknown | | Category:
tutorial VB6
|
0
comments

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...

text1.text=adodc1.recordset.fields("fiel...
Monday, 24 October 2011

jangan diketawakan ya.. namanya juga masih belajar.. hehe... tapi tolong di bantu ya.. di kasih taw kekurangannnya...
boleh tu... silahkan di download applikasinya dis...
Subscribe to:
Posts (Atom)
Popular Posts
-
Kursus View more documents from Ahmad Mustaqim .
-
free antivirus local indonesia klik download setup klik download portable
-
2 Langkah Mudah Bergabung Daftar Gratis 100%, Tanpa Biaya Registrasi ( ahmad mustaqim CN001741 ) 085640865808 >>...
-
if adodc1.recordset.BOF and adodc1.recordset. EOF then text1.text=format (date,"yyyy") & "001" else adodc1.record...
-
Gridkaryawan.Cols = 6 Gridkaryawan.Rows = 10 Gridkaryawan.ColWidth(0) = 100 Gridkaryawan.ColWidth(1) = 900 Gridkaryawan.ColWidth(2) = 200...
-
Tempatnya pulsa bisnis pulsa elektrik paling menguntungkan ! hub: aqim 085640865808 Sampai awal Juni 2010... Kami telah menerima Lebih dari ...
-
download operamini v.4.1 indosat klik (khusus buat pengguna kartu indosat)
-
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