Cara membuat nomor otomatis di vb6 di database acces

Apakah anda kesulitan untuk membuat nomor otomatis di vb 6? ok sekarang kita akan belajar bagaimana membuat nomor otomatis atau kode otomatis tersebut.

Sebelumnya yang kita butuhkan yaitu  :

1. 1 buat database.. silahkan buat database dg nama dbpelanggan dan tabelnya yaitu tbpelanggan. untuk fieldnya (kode_pelanggan text 6, nama text 45, TTL text 35, gender text 25, alamat text 225, telepon text 12) jika tidak ingin repot saya sudah membuatnya disini.
2. kemudian di vb nya silahkan tambahkan 1 buah form (7 label, 5 text, 1 combo, 1 command button, 1 datagrid) lihat gambar.
3. tambahkan 1 buah module

sekarang desain tampilan form seperti gambar dibawah ini :

jika sudah, kita klik 2x pada bagian module, tambahkan perintah koneksi ke databasenya.
Public con As New ADODB.Connection
Public rst As New ADODB.Recordset
Public strcon As String
Public strsql As String

Public Sub buka()
On Error GoTo pesan
strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\dbpelanggan.accdb;Persist Security Info=False"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strcon
Else
con.Open strcon
End If
Exit Sub
pesan:
MsgBox "Tidak ada koneksi ke database..!", vbInformation, "Informasi"
End Sub

Public Sub tutup()
con.Close
End Sub

setelah itu kita beri perintah pada form yang telah kita desain tadi.. klik simbol code pada bagian paling atas di object (General)  kemudian procedure (Declarations) kita tambahkan perintah berikut..
Option Explicit
Dim lihat As New Recordset
Dim pelanggan As New Recordset
Dim sql As String

lanjut tambahkan perintah berikut tepat dibawah perintah diatas
Private Sub datapelanggan()
con.CursorLocation = adUseClient
Set lihat = New Recordset
sql = "Select * From tbpelanggan order by kode_pelanggan asc"
lihat.Open sql, con, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = lihat.DataSource
DataGrid1.Columns(0).Width = 1500
DataGrid1.Columns(1).Width = 1800
DataGrid1.Columns(2).Width = 2200
DataGrid1.Columns(3).Width = 1100
DataGrid1.Columns(4).Width = 2100
DataGrid1.Columns(5).Width = 1200
End Sub

'perintah diatas adalah procedure yang kita buat sendiri untuk menampilkan data pelanggan di datagrid

selanjutnya tambahkan perintah berikut masih dibawah perintah diatas.
Function kodepelanggan() As String
Dim kode_pelanggan As New Recordset
Dim mor As String
Dim sql As String
buka
sql = "select right(max(kode_pelanggan),4) as maxno from tbpelanggan"
Set kode_pelanggan = con.Execute(sql)

If IsNull(kode_pelanggan("maxno")) Then
    kodepelanggan = "P-0001"
Else
    mor = Right("0000" & CInt(kode_pelanggan("maxno")) + 1, 4)
    kodepelanggan = "P-" & mor
End If

Text1.Text = kodepelanggan
End Function

'perintah diatas adalah function yang kita buat sendiri untuk membuat nomor otomatis

selanjutnya tambahkan perintah berikut masih dibawah perintah diatas.
Private Sub kosong()
Text1.Text = ""
Text1.Enabled = False
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Combo1.Text = ""
End Sub

'perintah diatas adalah procedure yang kita buat sendiri untuk mengosongkan text dan combo saat input data

setelah selesai membuat procedure dan function diatas,silahkan klik 2x pada bagian form ketikkan seperti berikut ini
Private Sub Form_Load()
kosong
'perintah diatas memanggil procedure kosong yg sdah dibuat
buka
datapelanggan
'perintah diatas memanggil procedure datapelanggan yg sdah dibuat
kodepelanggan
'perintah diatas memanggil function kodepelanggan yg sdah dibuat 
End Sub

terakhir kita tambahkan perintah simpan di button simpan seperti berikut
Private Sub Command2_Click()
buka
Set pelanggan = New Recordset
sql = "insert into tbpelanggan values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Combo1.Text & "','" & Text4.Text & "','" & Text5.Text & "')"
Set pelanggan = con.Execute(sql)
tutup

MsgBox "Data pelanggan berhasil disimpan..!", vbInformation, "Informasi"
kosong
buka
datapelanggan
kodepelanggan
End Sub


selesaiii !!! :)
silahkan jalankan dengan menekan F5.. apakah berhasil..

jika ingin mendownload file yang sudah dibuat silahkan dibagian sini

ditunggu komennya..

About Me :

Saya Martin Purnansyah
Nama Marcode adalah singkatan dari martin code, niat awal saya membuat website ini bertujuan untuk berbagi pengalaman yang saya dapat selama belajar pemrograman. Semoga situs marcode.web.id kedepannya rutin membuat tutorial - tutorial baru. Salam Coding.. :)