Membuat Nomor Faktur Otomatis Pada Visual Basic

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

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

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 :

form login
form transaksi

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

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

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

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 :

form login

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

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 :)

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

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

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS