Home» Tips Trik VB.Net» Cara Membuat AutoNumber / Kode Otomatis Pada VB.Net

Cara Membuat AutoNumber / Kode Otomatis Pada VB.Net

Posted by

Ada kalanya kita ingin membuat pengkodean secara otomatis, misalnya untuk membuat membuat kode transaksi yang biasanya di set secara otomatis, kode anggota, kode barang dan  sebagainya yang sangat berguna ketika banyak item yang harus kita inputkan. Tentunya nomor/kode tersebut akan bertambah secara sequensial (berurutan) sesuai dengan item yang di input kedalam database, sehingga kemungkinan untuk duplikat (nomor ganda) pada database tidak akan ada.

Misalnya, kita akan membuat kode otomatis untuk kode anggota dengan urutan :
AG17001, AG17002, AG17003, dan seterusnya..

Caranya : 
- Buat sebuah Sub Prosedur misalnya dengan nama 'KodeOtomatis'
- Panggil prosedur tersebut di form_load, "Call KodeOtomatis"

 Berikut ini scriptnya :

Sub KodeOtomatis()
        cmd = New OdbcCommand("select * from tbl_anggota order by nmr_anggota desc", conn)
        rd = cmd.ExecuteReader
        rd.Read()

            If Not rd.HasRows Then
            LblNoAgt.Text = "AG17001"
        Else
            LblNoAgt.Text = Val(Microsoft.VisualBasic.Mid(rd.Item("nmr_anggota").ToString, 5, 3)) + 1

            If Len(LblNoAgt.Text) = 1 Then
                LblNoAgt.Text = "AG1700" & LblNoAgt.Text & ""
            ElseIf Len(LblNoAgt.Text) = 2 Then
                LblNoAgt.Text = "AG170" & LblNoAgt.Text & ""
            ElseIf Len(LblNoAgt.Text) = 3 Then
                LblNoAgt.Text = "AG17" & LblNoAgt.Text & ""
            End If
        End If
End Sub

Hasilnya seperti ini :




Jadi, setiap anda akan menginput data ke database, No. Anggota akan berurutan secara otomatis. Menjadi AG17001, AG17002, AG17003, daan seterusnya...


Semoga bermanfaat..!!

FOLLOW and JOIN to Get Update!

Social Media Widget SM Widgets




Demo Blog NJW V2 Updated at: 07.28
Ahmad Khoiri - Personal Blog at 07.28

16 comments:

  1. rieqhi13 Juli 2013 pukul 19.51

    ngasih contoh codingnya nanggung boss, sekalian dari declarasinya dong classnya skalian juga, connecsi databasenya juga deh... hehhehe maklum masih belajar jadi kalo gak dari awal banyak yg error nirunya :D

    BalasHapus
  2. Anonim22 Juli 2013 pukul 18.37

    rd itu apa ? deklarasi in dong.

    BalasHapus
  3. Dika27 Desember 2013 pukul 03.29

    sangat berguna bang..(y)

    BalasHapus
  4. chikaze-4.blogspot.com27 Desember 2013 pukul 17.42

    makasih :)
    sangat membantu

    BalasHapus
  5. Blog Hafizur Rachman11 Februari 2014 pukul 23.18

    tidak membantu

    BalasHapus
  6. Anonim1 April 2014 pukul 14.32

    Sangat tidak terperinci bagi orang awam jd gak ngerti harus mulai dari mana, diatas kasih tutor nya bagi org yg sudah tahu VB. bagi2 ilmunya nanggung

    BalasHapus
  7. ADE SULAEMAN2 April 2014 pukul 06.05

    skalian contoh projeknya dunk bos

    BalasHapus
  8. Ahmad Khoiri3 April 2014 pukul 10.08

    boleh..
    send email

    BalasHapus
  9. Anonim30 Oktober 2014 pukul 21.26

    gajelas jadi nya

    BalasHapus
  10. Anonim25 November 2014 pukul 20.53

    sewaktu kita buat form (klik 2x atau view code)
    muncul : public class form1 (dibawah ini baru ketik program kodeotomatis)cth
    import system.data.sqlclient
    Public Class Form1
    sub kodeotomatis()
    cmd = New OdbcCommand("select * from tbl_anggota order by nmr_anggota desc", conn)
    rd = cmd.ExecuteReader
    rd.Read() If Not rd.HasRows Then LblNoAgt.Text = "AG17001"
    Else
    LblNoAgt.Text = Val(Microsoft.VisualBasic.Mid(rd.Item("nmr_anggota").ToString, 5, 3)) + 1
    If Len(LblNoAgt.Text) = 1 Then
    LblNoAgt.Text = "AG1700" & LblNoAgt.Text & ""
    ElseIf Len(LblNoAgt.Text) = 2 Then
    LblNoAgt.Text = "AG170" & LblNoAgt.Text & ""
    ElseIf Len(LblNoAgt.Text) = 3 Then
    LblNoAgt.Text = "AG17" & LblNoAgt.Text & ""
    End If
    End If
    End Sub

    BalasHapus
  11. リアン26 Februari 2015 pukul 13.59

    Val(Microsoft.VisualBasic.Mid(rd.Item("nmr_anggota").ToString, 5, 3)) + 1 maksudnya pa?

    BalasHapus
  12. Unknown14 April 2015 pukul 13.05

    Siang Gan kok autonumbernya cuma sampe yg ke 10 yak gx bisa 10 ke atas ? boleh sharing ilmu ?

    BalasHapus
  13. Unknown11 Juni 2015 pukul 01.04

    thanks membantu

    BalasHapus
  14. LTA5 November 2015 pukul 17.21

    bisa divideoin gk bang cara pembuatannya

    BalasHapus
  15. LTA5 November 2015 pukul 17.21

    sya masih kurang jelas

    BalasHapus
  16. wiwin9 Mei 2018 pukul 15.59

    thank you bos

    BalasHapus