Membuat Premery Key Otomatis pada VB.Net

Dalam beberapa kasus kita sering harus menggunakan teknik ini seagai jalan penyelesaiannya, yaitu dengan membuat Premery Key Otomatis menggunakan VB.Net 2008. Penggunaan fungsi ini dimungkinkan kita tidak perlu lagi membuat Kode Unik atau Premery Key. Kode Unik yang dibuat telah otomatis diambil dari nilai lanjutan dari nilai sebelumnya.

Misalkan Nilai yang ada didatabase saat ini adalah :

S-0002 Dan Kita menginginkan nilai seterusnya adalah S-0003, maka kita akan menggunakan fungsi berikut ini :

Source code Membuat Premery Key Otomatis pada VB.Net

Form Load :

Dim DR As DataRow
Dim s As String

'mengambil 4 karakter dari kanan (yg merupakan nomer) dari field ID, kemudian dicari nilai yg paling besar (max)
'kemudian hasilnya d tampung d field buatan dgn nama Nomor

DR = SQLTable("select max(right(ID,4)) as Nomor from tblPenjualan").Rows(0)

'jika berisi null atau tdk ditemukan
If DR.IsNull("Nomor") Then
   s = "S-0001" 'member nilai awal
Else
   s = "S-" & Format(DR("Nomor") + 1, "0000")
End If
txtID.Text = s

Button Tambah :

If ExecSQL("insert into tblPenjualan (ID, Pelanggan) values ('" & txtID.Text & "', '" & txtPelanggan.Text & "')") = True Then
 MsgBox("Sukses !!!")
 Me.Dispose()
End If

Download Premery Key Otomatis pada VB.Net

Download : Membuat Premery Key Otomatis Via Google Drive
Password : keyoto

• Twitter
• Facebook
• Google
• Tumblr
• Pinterest

Sandi Fadilah

Artikel Terkait