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 :

Cara Membuat Nomor Kode Otomatis pada VB.Net

Sub Kode_Otomatis()
Call cekkoneksi()

sqlCommand = New MySqlCommand(“Select * From penjualan where no_penjualan in(select max(no_penjualan) from penjualan) “, sConnection)
DR = sqlCommand.ExecuteReader
DR.Read()

If DR.HasRows = 0 Then
txtNo.Text = “TR0001″
DR.Close()

End If
If Not DR.HasRows Then
txtNo.Text = “TR” + “0001″
DR.Close()

Else
txtNo.Text = Val(Microsoft.VisualBasic.Mid(DR.Item(“no_penjualan”).ToString, 4, 3)) + 1
If Len(txtNo.Text) = 1 Then
txtNo.Text = “TR000″ & txtNo.Text & “”
ElseIf Len(txtNo.Text) = 2 Then
txtNo.Text = “TR00″ & txtNo.Text & “”
ElseIf Len(txtNo.Text) = 3 Then
txtNo.Text = “TR0″ & txtNo.Text & “”
End If
DR.Close()

End If
End Sub

Tulisan Lainnya :

JUAL DVD KUMPULAN PROGRAM APLIKASI DAN SOURCE CODE VB.NET

PAKET DVD VISUAL BASIC.NET

Harga : Rp.100.000,- + Ongkir

SMS ORDER : 0856-9769-5965