Oleh: denysutani | September 26, 2008

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.


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Kategori

%d blogger menyukai ini: