Dalam pembuatan aplikasi penjualan, biasanya pasti ada no fakturnya. nah biar ga repot-repot ngetik no faktur ada baiknya no fakturnya dibuat secara otomatis, jadi bisa lebih mempermudah proses transaksinya. ok langusng aja ya..
silahkan ketikan code berikut :
Private Sub Form_Activate()
Dim Rst As New ADODB.Recordset
Dim s As String
Rst.Open "select max(right(no_faktur,14)) as Nomor from beli_kredit", con
If IsNull(Rst!Nomor) Then
s = "000000000000001"
Else
s = "000" & Format(Rst!Nomor + 1, "000000000000")
End If
Text11 = s
End Sub
Keterangan...!
Dim Rst As New ADODB.Recordset adalah variabel yang mencari data dalam database
Rst.Open "select max(right(no_faktur,14)) as Nomor from beli_kredit", con adalah Sintax SQL untuk mencari data terakhir yang sebelah kanan dari field no_faktur sebanyak 14, asumsinya no_fakturnya maxlengtnya 15 dari tabel beli kredit. dan con adalah nama koneksinya
Ok segitu dulu ya buat hari ini seomga bisa membantu .. dan berguna. heheheh
Salam Coding
Membuat Nomor Faktur Otomatis Pada Visual Basic
KRISNA POS STANDAR
Aplikasi ini dapat menagani proses transaksi pada perusahaan khususnya usaha dagang. aplikasi dapat digunakan pada toko kelontong,mini market dan lain-lain. Aplikasi dapat diinstal dibanyak komputer tanpan harus ada notifikasi lagi dan aplikasi free update online. berikut screen shotnya :
Input data pada VB database Acces
Salam semua.hehe malem2 gini iseng ah posting. capa tau berguna, ok. sekarang we mau posting hal yang kecil tapi penting juga lo.. yaitu input data pada database acces dengan visual basic.
Ok. kemaren kan kita sudah buat cara koneksi vb nya. sekarang buat satu form lalu pada form load ketikan cara koneksi yang kemarin kita pelajari.isi form dengan dua texs box dan dua command button dan dua label, ganti label dengan caption kode dan nama lalu ganti caption command button dengan simpan dan keluar.
Double klik pada button simpan lalu ketikan sintak dibawah ini.
Dim simpan as string
simpan = "insert into barang (kode,nama) values ('" & textbox1.text & "','" & textboxt2.text & "')"
con.execute simpan
textboxt1.text =""
textboxt2.text =""
he.. segitu dulu ya.. selamat mecoba
Krisna Retail Lite
Krisna Retail Lite adalah aplikasi yang dapat digunakan untuk toko, aplikasi ini sangat cocok untuk bengkel yang menyediakan jasa service atau toko-toko lain yang menyediakan jasa service. aplikasi ini hanya dapat digunakan pada satu komputer yang tidak terkoneksi jaringan, Aplikasi dapat diinstal dibanyak komputer tanpa harus notifikasi / membeli aplikasi lagi, dan aplikasi free update onlie. berikut screnn shotnya :
Cara Koneksi VB dengan Acces
Yuk Belajar Visual Basic..! :)
Postingan di blog ini dibuat kusus untuk para newbie di visual basic yang ingin belajar database. untuk pertama kita akan belajar cara koneksi vb ke ms.Acces, Ok langsung aja ya...!
1. Buat Database dengan nama dbkonter (database ini akan kita gunakanan seterusnya)
2. Lalu buat tabel dengan nama tabel barang (kode_brg,nama,tgl_masuk,jenis,hargabeli,hargajual,stok)
3. Buka VB lalu klik menu project pilih reference
4. Pilih Microsoft Activex Data Object 2.0 Library lalu OK
5. Dari menu Project Add Module
6. Pada Module Tulis Sinatk Berikut :
Public con As New ADODB.Connection
Public con_str As String
7. untuk koneksinya buka pada form load lalu ketik :
Private Sub Form_Load()
con_str = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbkonter.mdb"
con.Open con_str
End Sub
Sekarang VB sudah terkoneksi dengan database Selamat mencoba ya.. :)
Silahan Komen khusus para newbie.hehehehe :)
Gratis Download berbagai Sourcecode
Silahkan Download sourcecode semuanya gratis :
1. sourcecode aplikasi konter hp gratis
2. sourcecode aplikasi restoran gratis
3. gratis download aplikasi rekap keuangan