Cara membuat kode Otomatis

Ricky Andes || Dalam input barang dan transaksi penjualan kita memang sangat butuh dalam hal Nomor Kode Otomatis. Cara membuat nomor otomatis atau kode otomatis atau cara membuat auto number itu sebenarnya tidaklah susah. Dalam pemrograman Visual Basic 2012 atau Vb net kita bisa membuat Kode otomatis atau Id otomatis agar tidak ada data dengan id atau kode yang sama. Hal ini sangat membantu kita dalam pembuatan data dan pembuatan data unik.
Pada artikel kali ini saya akan coba membagikan bagaimana cara membuat kode secara otomatis sehingga program bisa berjalan sesuai dengan keinginan kita. Pertama kita buat databasenya jangan lupa dengan tabelnya. Baiklah langsung saja, untuk mengikuti Tutorial kali ini anda terlebih dahulu Cara Membuat Modul Koneksi Mysql Database pada VB.Net agar nomor sebelumnya tersimpan di dalam database, kalo agan” ingin membuat Nomor Kode Otomatis mungking coding yang ane kasih bisa bantu, langsung saja ane kasing listingnya :

 

 

Klik gambar untuk memperbesar

  Sub kode_otomatis()

        tblkader = proses.ExecuteQuery("select * from kader order by kd_agt desc")
        txtnama.Focus()
        If tblkader.Rows.Count = 0 Then
            txtkode.Text = "AGTA-001"
        Else
            With tblkader.Rows(0)
                txtkode.Text = .Item("kd_agt")
            End With
            txtkode.Text = Val(Microsoft.VisualBasic.Mid(txtkode.Text, 5, 3)) + 1
            If Len(txtkode.Text) = 1 Then
                txtkode.Text = "AGTA-00" & txtkode.Text & " "
            ElseIf Len(txtkode.Text) = 2 Then
                txtkode.Text = "AGTA-0" & txtkode.Text & " "
            ElseIf Len(txtkode.Text) = 3 Then
                txtkode.Text = "AGTA-" & txtkode.Text & " "
            End If
        End If
    End Sub

Selemat mencoba  sahabat  ^_^