Membuat Autonumber dengan Function di VB.Net

MEMBUAT AUTO NUMBER MENGGUNAKAN FUNCTION DI VB.NET

Tampilan Form

Untuk membuat Auto Number dengan menggunakan Function langkahnya sbb:

1. Ketikkan script berikut di jendela coding.

    Function autonumber() As String
        Call bukaDB()
        CMD = New MySqlCommand("select right(IDKegiatan,4) as IDKegiatan from Kegiatan where

    left(IDKegiatan,1)='K' order by right(IDKegiatan,4) desc", Conn)
        CMD.CommandTimeout = 0
        RD = CMD.ExecuteReader
        If RD.HasRows Then
            RD.Read()
            Return "K" + Mid("0000", 1, 4 - (Val(Trim(RD.Item(0).ToString)) + 1).ToString.Length) + 

    (Val(Trim(RD.Item(0).ToString)) + 1).ToString
        Else
            Return "K0001"
        End If
      End Function

 2. Panggil Function yang sudah dibuat di event Form_Load, hasilnya seperti berikut:

     Private Sub FormKegiatan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

     Handles MyBase.Load
        Call isiGrid()
        txtIDKegiatan.Text = autonumber()
    End Sub

  3. Jalankan Program

Catatan :
Jika kita ingin setelah Klik Tombol Simpan Auto Number langsung dijalankan, maka panggil kembali. berikut contohnya
    Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click
        If txtIDKegiatan.Text = "" Then
            MsgBox("ID Kegiatan Harus Di isi", MsgBoxStyle.Exclamation, "Peringatan")
            txtIDKegiatan.Focus()
            Exit Sub
        ElseIf txtNamaKegiatan.Text = "" Then
            MsgBox("Nama Kegiatan Harus Di isi", MsgBoxStyle.Exclamation, "Peringatan")
            cmdsimpan.Focus()
            Exit Sub
        End If
        Call bukaDB()
        CMD = New MySqlCommand("SELECT IdKegiatan from Kegiatan WHERE IDKegiatan = '" & txtIDKegiatan.Text & "'", Conn)
        CMD.CommandTimeout = 0
        RD = CMD.ExecuteReader
        RD.Read()
        If RD.HasRows Then
            MsgBox("Maaf, IDKegiatan tersebut telah ada", MsgBoxStyle.Exclamation, "Peringatan")
        Else
            Call bukaDB()
            simpan = "INSERT INTO Kegiatan (IDkegiatan,NamaKegiatan,KodeUser) VALUES ('" & txtIDKegiatan.Text & "','" & _
            txtNamaKegiatan.Text & "','" & FormMenu.ToolStripStatusLabel1.Text & "')"
            CMD = New MySqlCommand(simpan, Conn)
            CMD.CommandTimeout = 0
            CMD.ExecuteNonQuery()
            Call isiGrid()
            Call Bersih()
            txtIDKegiatan.Text = autonumber()
        End If




Sekian
Semoga Bermanfaat