pancaPATI

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

Aplikasi pemrograman penerimaan siswa baru

Posted by Unknown | Wednesday, 30 November 2011 | Category: tutorial VB6, vb, vb6 | 0 comments

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

mengatur tabel grid VB6

Posted by Unknown | | Category: tutorial VB6 | 0 comments

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

menyimpan VB6

Posted by Unknown | | Category: tutorial VB6 | 0 comments

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

pencarian menggunakan inputbox VB6

Posted by Unknown | | Category: tutorial VB6 | 0 comments

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

prosedur tampil pada vb6.0

Posted by Unknown | | Category: tutorial VB6 | 0 comments

text1.text=adodc1.recordset.fields("fiel...

Monday, 24 October 2011

aplikasi pesanan star taylor vb6

Posted by Unknown | Monday, 24 October 2011 | Category: free download, vb6 | 0 comments

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)