Membuat Nomor Otomatis Di Database VB6

Nomor otomatis / Auto Number merupakan sebuah proses penomoran di mana nomor tersebut akan berubah / bertambah secara otomatis ketika (biasanya) menambahkan / membuat sebuah data baru, di dalam sebuah database, Auto Number sering digunakan untuk form ID, seperti Id karyawan, Id Barang, Id User, dan id-id lainya, di tutorial kali ini kita akan membuat hal seperti itu, sebelum memulai tutorial ini, siapkan telebih dulu sebuah file database, untuk kemudahan dalam mempelajari tutorial ini, saya sarankan butalah database seperti yang saya buat, berikut kriterianya :

Nama File : Database_BluesPedia.mdb

Nama Tabel : AutoNumber_BluesPedia

Jangan lupa untuk di Save, Jika database sudah siap, ayo kita mulai :

1. Masuk ke VB dengan project standar Exe

2. Di form1 tambahkan 1 label, 1 text box, 1 command button, 1 datagrid, 1 adodc

ubah propertiesnya, untuk font size saya menggunakan 12, sehingga hasilnya seperti ini :

3. Jika sudah tambahkan script berikut :

'Variabel untuk Koneksi Database

Dim Koneksi As New ADODB.Connection

Dim BluesPedia As ADODB.Recordset

'Koneksi Database

Sub Open_Database()

Set Koneksi = New ADODB.Connection

Set BluesPedia = New ADODB.Recordset

Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database_BluesPedia.mdb"

End Sub

Private Sub Form_Activate()

Text1 = ""

Call Open_Database

Adodc1.ConnectionString = Koneksi

Adodc1.RecordSource = "AutoNumber_BluesPedia"

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

Call AutoNum_BP

Text1.Enabled = False

End Sub

'Awal Script untuk penomoran otomatis

Private Sub AutoNum_BP()

Call Open_Database

On Error Resume Next

BluesPedia.Open ("select * from AutoNumber_BluesPedia Where ID_No In(Select Max(ID_No)From AutoNumber_BluesPedia)Order By ID_No Desc"), Koneksi

BluesPedia.Requery

    Dim LongCaracter As String * 16 'Panjang karakter untuk text box adalah 16 digit

    Dim CountID As Long

    With BluesPedia

        If .EOF Then

            LongCaracter = "Blues/Pedia/" + "001"

            'Maka di text 1 akan tampil "Blues/Pedia/001"

            Text1 = LongCaracter

        Else

            CountID = Right(BluesPedia!ID_No, 3) + 1

            LongCaracter = "Blues/Pedia/" + Right("000" & CountID, 3)

        End If

        Text1 = LongCaracter

    End With

End Sub

'Akhir Script untuk penomoran otomatis

'Ganti script Blues/Pedia/ menjadi format no otomatis anda, misalnya "BP/II/16/"

'Script untuk menyimpan data yang ada di text box ke database, dan otomatis nomor akan berubah

Private Sub Command1_Click()

Call Open_Database

If Text1 = "" Then

MsgBox "Isi Form Dengan Benar !"

Else

Dim SaveData As String

    SaveData = "Insert Into AutoNumber_BluesPedia values ('" & Text1 & "')"

    Koneksi.Execute SaveData

    MsgBox "Data Berhasil Di Simpan", vbInformation, "Information"

    Form_Activate

End If

End Sub

Private Sub Command2_Click()

End

End Sub

'Akhir Script

4. Simpan project di tempat anda menyimpan file database, dan close file database

5. Jika sudah jalankan program

Ketika program di jalankan, otomatis text1 akan berisi number 001, jika sudah ada data sebelumnya maka text 1 akan berisikan number berikutnya dari data yang sudah ada,

Sekian tutorial kali ini, semoga bermanfaat