Cara Membuat No Urut Otomatis Pada Visual Basic 6.0

Postingan kali ini saya akan memberikan tutorial bagaimana membuat no urut otomatis pada VB 6.0. Penggunaan no urut ini berguna supaya mencegah terjadinya duplicate data atau penggunaan data yang sama pada field yang dijadikan primary key. Oke langsung Saja.

Tambahkan Coding Berikut pada form load


Private Sub Form_Load()
Set rs = conn.Execute("select * from nama_tabel order by primary_key desc;")
With rs
    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




Anda juga dapat mendownload contoh programnya disini
Semoga bermanfaat..