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
-
pasti masih banyak kekurangan... mohon di koreksi dan saya berharap sarannya...
-
Kursus View more documents from Ahmad Mustaqim .
-
free antivirus local indonesia klik download setup klik download portable
-
klik download Narpes Antivirus C Language Source Code V 2 klik download Narpes Antivirus C Language Source Code V 1 klik download Narp...
-
vcar = (InputBox("pesan", "info")) Adodc1.Recordset.Find "field='" & vcar & "'", , ...
-
if adodc1.recordset.BOF and adodc1.recordset. EOF then text1.text=format (date,"yyyy") & "001" else adodc1.record...
-
Keuntungan & Cara Kerja Pulsagram memberikan sistem bisnis pulsa terbaik dengan viral marketing gratis. Begitu keanggotaan tel...
-
monggo dipun unduh bos...bok menawi pengen di cobo... Adobe PhotoShop CS5 12.0.3 meniko dipun pencet . 3all