Auto generate code di Visual Basic

Sering kali, saat kita berhubungan dengan database, kita dihadapkan dengan masalah auto generate primary key. Biasanya cara paling gampang adalah dengan menggunakan fasilitas auto increment dari DBMS tersebut. Namun apabila primary key tersebut tidak berupa integer, maka fitur tersebut tidak dapat digunakan. Oleh karena itu mau tidak mau harus menggunakan coding untuk menggenerate key tersebut.

Contoh kasus disini menggunakan primary key sbb A01,A02,..A99

Dim counter As Integer
Dim kode as String
DATA.Open ” select max(right(field_name,jumlah_angka)) as max from table_name”
counter = Val(DATA!Max) + 1
If counter < 10 Then
kode = “A0″ & counter
Else
kode = “A” & counter
End If
DATA.Close

Algoritma ini hampir sama jika dilakukan pada bahasa pemrograman lainnya, kebetulan saja saya sedang menggunakan Visual Basic.
Semoga membantu.