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

2 Responses to "Membuat Nomor Otomatis Di Database VB6"

  1. Gan, kok saya nomornya 001 terus ya. jadi kalo di datanya ada 001, nomor otomatisnya gak mau 002. maunya 001 terus

    ReplyDelete
    Replies
    1. coba cek lagi scriptnya, pastikan benar semua ya,
      coba krm projectnya ke email, untuk saya cek atau WhatsApp
      :D

      Delete