Cara Membuat Autonumber dengan visual basic dengan MySQL

    Selamat malam teman hari ini saya akan berbagi tentang bagaimana caranya membuat autonumber untuk memudahkan proses penggunaan sebuah aplikasi maka pada data yang tidak diperbolehkan duplicate seperti Kode penjualan, kode barang, kode admin, nomor pegawai,dll 

maka lebih efesien menggunakan autonumber. nah pertama kali maka agan perlu membuat tabel terlebih dahulu dengan contoh format seperti ini :

**Nah ini soure code untuk membuat autonumber..

Sub autonumberKode()

        Try

            Dim strsql As String = "select kd_pegawai,no_pegawai from tb_nomor;"

            Dim mycomm As OdbcCommand

            Dim rdr As OdbcDataReader

            mycomm = New OdbcCommand(strsql, conn.buka)

            rdr = mycomm.ExecuteReader

            If rdr.Read Then

                Dim strurut As String = rdr("no_pegawai").ToString.Trim

                Dim strkode As String = rdr("kd_pegawai").ToString.Trim

                txtkunci.Text = strkode & StrDup(3 - Len(strurut), "0") & strurut

            End If

        Catch ex As Exception

            Throw New Exception(ex.Message.ToString())

        End Try

    End Sub

**Kemudian panggil sub di atas di textbox kode pegawai

Private Sub txtkd_pegawai_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtkd_pegawai.TextChanged

        

     Call autonumberKode()

    End Sub

**atau juga bisa agan langsung meletakkan source code autonumber di textbox kode pegawai agan..  :)

Semoga Bermanfaat:)

Posted in Visual Basic 2010