rahmatdcc.blogspot.com

Membuat "Automatic ID Number" (nomor ID Otomatis) sering dilakukan dalam hal pemrograman. jika pemrogramannya berbasis client-server, atau berbasis databases, pembuatan ID numbernya bisa dilakukan di dua sisi, disisi aplikasi pemrogramnnya atau disisi basis datanya (database). berikut cara pembuatan auto number menggunakan Vb.net. 

1. Buatlah objek "txtKode"
2. Copy script dibawah ini!
    Sub IdReg()
        'Membuat kode dengan 6 digit
        txtKode.Text = Format(GenerateCD, "000000")
    End Sub

    Public Function GenerateCD() As Integer
      
        'contoh pengambilan dari tabel "data_barang"
        cSelect("SELECT MAX(right(barang_kode, 6)) as Nomor " & _
                "FROM data_barang ")
        rdr.Read()
        If rdr.HasRows Then
            If IsDBNull(rdr.Item("Nomor")) = True Then
                GenerateCD = 1
            Else
                GenerateCD = Val(rdr.Item("Nomor")) + 1
            End If
        Else
            GenerateCD = 1
        End If
        rdr.Close()

    End Function

Cara Panggil ==> call idreg()

        Sub TabelGroup()
        With Me.ListView1
            .FullRowSelect = True
            .GridLines = True
            .AllowColumnReorder = True
            .CheckBoxes = True
            .HoverSelection = True
            .View = Windows.Forms.View.Details

            With .Columns
                .Add("", 0)
                .Add("Kode", 60, HorizontalAlignment.Center)
                .Add("Nama Group", 200)
                .Add("Tipe1", 0)
                .Add("Tipe", 150)
                .Add("Jumlah Menu", 100, HorizontalAlignment.Center)
                .Add("Keterangan", 480)
            End With

        End With
    End Sub
    Sub DataGroup()

        Me.Cursor = Cursors.WaitCursor
        cSelect("SELECT group_kode, group_nama, group_akses, group_keterangan, " & _
                "group_akses, GetGroupJenis(group_akses) as Tipe, " & _
                "GetGroupJumlah(group_kode) as JumlahMenu " & _
                "FROM data_pengguna_group")

        Me.ListView1.Items.Clear()
        If rdr.HasRows Then
            Do While rdr.Read
                Dim ls As New ListViewItem()
                ls.SubItems.Add(rdr.Item("group_kode").ToString())
                ls.SubItems.Add(rdr.Item("group_nama").ToString())
                ls.SubItems.Add(rdr.Item("group_akses").ToString())
                ls.SubItems.Add(rdr.Item("Tipe").ToString())
                ls.SubItems.Add(rdr.Item("JumlahMenu").ToString())
                ls.SubItems.Add(rdr.Item("group_keterangan").ToString())
                ListView1.Items.Add(ls)
            Loop
        End If
        rdr.Close()
        Call lvWarna(Me.ListView1)
        Me.Cursor = Cursors.Default

    End Sub