Usahawan-maju | Cara Membuat Auto Id Kode Nomer Otomatis - Dala pemrograman Visual Basic 2010 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 unix.
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. Kemudian setelah selesai kita buat sebuah modul dengan nama modul1 untuk membuatnya koneksikan. Isikan modul1 dengan script berikut :Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Module Module1
Public comSQL As New SqlClient.SqlCommand
Public sql_stok As String 'mendeklarasikan variabel sql bertipe string untuk query SQL
Public ds As String
Public sql As String 'mendeklarasikan variabel sql bertipe string untuk query SQL
Public conn As New SqlConnection 'mendeklarasikan variabel conn untuk koneksi SQL
'mendeklarasikan variabel str bertipe string untuk konfigurasi koneksi database
'dengan nama database pulsa
Public str As String = "Data Source = .\SQLEXPRESS;initial catalog=pulsa;trusted_connection = true"
'membuat sebuah procedur untuk membuka koneksi
Public Sub bukakoneksi()
If conn.State = ConnectionState.Closed Then
conn.ConnectionString = str
Try
conn.Open()
' MsgBox("Koneksi Berhasil")
Catch ex As Exception
MsgBox("Koneksi Gagal: " & ex.ToString)
End Try
End If
End Sub
Public Sub tutupkoneksi()
If conn.State = ConnectionState.Open Then
Try
conn.Close()
Catch ex As Exception
MsgBox("Gagal Menutup Koneksi" & ex.ToString)
End Try
End If
End Sub
End Module
Kemudian untuk pemanggilan koneksi dan tutup koneksi database yang telah kita buat pada modul1
adalah sebagai berikut.
bukakoneksi()
sql = " select max(id_stok) as no from stok"
comSQL = New SqlCommand(sql, conn)
Dim dr As SqlDataReader = comSQL.ExecuteReader()
If dr.Read = False Then
txtid_stok.Text = "ST-0001"
Else
txtid_stok.Text = dr("no").ToString
txtid_stok.Text = Microsoft.VisualBasic.Right(txtid_stok.Text, 4)
If Val(txtid_stok.Text) < 10 Then
txtid_stok.Text = "ST-000" & (Val(txtid_stok.Text) + 1)
ElseIf Val(txtid_stok.Text) >= 10 And Val(txtid_stok.Text) < 100 Then
txtid_stok.Text = "ST-00" & (Val(txtid_stok.Text) + 1)
ElseIf txtid_stok.Text > 99 Then
txtid_stok.Text = "ST-0" & (Val(txtid_stok.Text) + 1)
ElseIf txtid_stok.Text > 999 Then
txtid_stok.Text = "ST-" & (Val(txtid_stok.Text) + 1)
End If
End If
tutupkoneksi()
jangan lupa menambahkan Imports System.Data.SqlClient di atas class program yang sedang kita kerjakan secara detailnya artikel ini untuk temen-temen yang paling tidak sudah bisa menggerti penggunaan dan aturan pada bahasa pemrograman VB. Sekian semoga artikel Cara Membuat Auto Id Kode Nomer bermanfaat...
NB : Untuk membuat komentar atau baris yang tidak dibaca sebagai script atau perintah dari bahasa pemrograman kita bisa menggunakan tanda baca petik untuk mematikan baris tersebut.
