lazada.co.id

Wednesday 11 January 2012

Aplikasi Rental Mobil (aseeek..) VB 6.0

Posted by Unknown | Wednesday 11 January 2012 | Category: | 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: | 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: , , | 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: | 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: | 0 comments


Gridkaryawan.Cols = 6
Gridkaryawan.Rows = 10
Gridkaryawan.ColWidth(0) = 100
Gridkaryawan.ColWidth(1) = 900
Gridkaryawan.ColWidth(2) = 2000
Gridkaryawan.ColWidth(3) = 1500
Gridkaryawan.ColWidth(4) = 1500
Gridkaryawan.ColWidth(5) = 1500

menyimpan VB6

Posted by Unknown | | Category: | 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 With

pencarian menggunakan inputbox VB6

Posted by Unknown | | Category: | 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 If

menampilkan kode otomatis berdasarkan tahun VB6

Posted by Unknown | | Category: | 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 if

prosedur tampil pada vb6.0

Posted by Unknown | | Category: | 0 comments

 text1.text=adodc1.recordset.fields("field")

Monday 24 October 2011

aplikasi pesanan star taylor vb6

Posted by Unknown | Monday 24 October 2011 | Category: , | 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 disini

Popular Posts