Cara Membuat Auto Number Dengan Visual Basic 6.0

Cara Membuat Auto Number Dengan Visual Basic 6.0 | Gho Blog's - Penggunaan auto number pada sebuah program bertujuan agar tidak terjadinya duplikasi data pada primary key di tiap-tiap record yang akan di entrikan ke database.

Saya mengangkat topik ini karena banyak pertanyaan dari member di forum tentang bagaimana cara membuat auto number di Visual Basic 6.0.

Sebagai contoh saya akan membuat auto number untuk entri data barang, menggunakan database access, berikut ini disain tabel barang yang akan primar key nya (kode) akan kita buat auto number di visual basic 6.0 :

Kode barang yang akan dibuat seperti berikut ini :
BRG001, BRG002, BRG003, BRG004 dan seterusnya...

Berikut ini script koneksi database yang saya gunakan dan saya letakan di module :

Global conn As ADODB.Connection Global rsbrg As ADODB.Recordset Sub koneksi() On Error GoTo gagal: Set conn = New ADODB.Connection conn.Provider = "microsoft.jet.oledb.4.0" conn.CursorLocation = adUseClient conn.Open App.Path & "\latihan.mdb" Exit Sub gagal: If (Err.Number = -2147467259) Then MsgBox "Koneksi Aplikasi Ke Database Gagal...!", vbCritical, "Informasi" End End If End Sub

Berikut ini script auto number pada form entri barang, letakan script berikut di bagian General Code form tersebut :

Sub autoNumber() Set rsbrg = New ADODB.Recordset rsbrg.LockType = adLockOptimistic rsbrg.CursorType = adOpenDynamic rsbrg.Open "select kode from barang Where Left(kode,3)order by kode desc", conn, , , adCmdText If rsbrg.RecordCount > 0 Then Kanan = Right(rsbrg!kode, 3) + 1001 Else Kanan = 1001 End If Me.Text1.Text = "BRG" & Right(Kanan, 3) End Sub

Kemudian panggil fungsi Autonumber yang dibuat di Form_Load()

Private Sub Form_Load() koneksi autoNumber '<---- Panggil Fungsi Auto Number End Sub

UPDATE :
Script auto number diatas hanya berjalan untuk penggunaan DBMS Access, untuk yang menggunakan DBMS MySQL, gunakan script berikut ini :

Sub autoNumber() Set rsbrg = New ADODB.Recordset rsbrg.Open "select * from barang order by kode desc limit 1", conn, adOpenDynamic, adLockOptimistic With rsbrg If .EOF Then Text1.Text = "BRG" & "001" Else Text1.Text = "BRG" & Right(Str(Val(Right(.Fields(0), 3)) + 1001), 3) End If End With End Sub

Untuk lebih jelasnya, silakan sobat download contoh program nya dsini :

Sekian dulu posting kami yang berjudul Cara Membuat Auto Number Dengan Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat.