penomoran otomatis dalam visual basic
Tutorial VB ini seperti halnya dalam membuat penomoran kedalam database menggunakan visual Basic secara otomatis.
Seperti halnya kita akan melakukan penamaan secara alfabet didalam database, bukan secara manual melainkan secara otomatis.
Penggunaan database yang saya gunakan adalah ms Access, mau versi 2007 atau 2003 ga jadi masalah
Kebanyakan orang yang menggunakan pemrograman vb yang terkoneksikan kedalam database, pastinya hal ini sangat dibutuhkan. Mengapa?
disamping tidak repot harus input langsung data, tapi juga memudahkan serta mempersingkat waktu. Hal ini biasa dipake untuk sebuah database dalam kapasitas jumlah besar.
Kalau menerut saya mah, bisa dibilang sedikit professional dalam bekerja, karena kita dituntut untuk bekerja cepat dan tepat
Bayangkan saja jika ada sebuah data yang jumlahnya mencapai 1000 data yang harus di entry dalam waktu singkat. pertanyaannya sekarang adalah, Berapa lama waktu yang kamu butuhkan untuk menyelesaikan?
Desain Nomor otomatis Visual Basic
secara simple yang akan saya ajarkan hanya berupa form kecil.
Syarat yang dibutuhkan:
- Label (1)
- TextBox(1)
- Adodc (1)
- DBGRID(1)
- CommandButton(1)
setelah selesai mendesain, langkah selanjutnya adalah input code ini di form
sub otomatis()
dim nomor,otomatis as string
adodc1.recordsource = "select kode_barang from barang"
adodc1.refresh
if adodc1.recordset.recordcount = 0 then
otomatis = "B-001"
else
adodc1.recordset.movelast
nomor= Right (adodc1.recordset!kode_barang,3)+1
otomatis= "B-"&right("000"&nomor,3)
end if
textboxt1.text= otomatis
end sub
dim nomor,otomatis as string
adodc1.recordsource = "select kode_barang from barang"
adodc1.refresh
if adodc1.recordset.recordcount = 0 then
otomatis = "B-001"
else
adodc1.recordset.movelast
nomor= Right (adodc1.recordset!kode_barang,3)+1
otomatis= "B-"&right("000"&nomor,3)
end if
textboxt1.text= otomatis
end sub
Setelah selesai panggil sub tersebut di Form_load dengan nama "otomatis"
Penjelasan:
* untuk variable awal kita harus ubah kedalam string
* adodc1 adalah adodc yang sudah kita input kedalam form
* buatlah database yang didalam table tersebut ada nama "kode_barang" dan nama table tersebut adalah "barang"
* "adodc1.recordset.recordcount = 0" dimaksudkan apabila jumlah didalam database tidak ada entry, maka data yang pertama kali masuk adalah "B-001"
* jika telah selesai dengan pernyataan diatas, maka data data berikutnya akan terisikan kedalam database.
* "nomor= Right (adodc1.recordset!kode_barang,3)+1" maksudnya adalah program vb akan masuk kedalam database yang berisikan sebuah table "kode_barang" melalui adodc
* Pemanggilan sub tersebut digunakan pada textbox yang kita input
* Untuk commandbutton, digunakan untuk pemasukan data textbox kedalam dbgrid (untuk code ini, dipostingan selanjutnya yah ^,..,^)
Kalau kalian suka dengan artikel ini, like dengan FB. Jika kalian masih kurang mengerti, silahkan bertanya dicomment postingan ini. Program ini dibuat dengan Visual Basic di www.vb-6.com
Semoga bermanfaat
