Membuat Auto Number di VB 6.0 dengan Database access

Mungkin dari Sobat sudah banyak yang tau cara membuat AutoNumber di vb 6.0, tapi buat yang belum tau saya akan menuliskan tips cara untuk membuat autonumber menggunakan vb 6.0.

Saya akan mencoba membuat contoh  project sederhana, caranya tidak terlalu sulit.

Langkah pertama yang harus sobat lakukan adalah membuat dulu database dengan menggunakan access beri nama database dengan nama Dbbiodata dan Buat lahtabel seperti dibawah dengan nama tabel tbdata

Kemudian langkah pembuatan formnya adalah seperti ini :

 

Dan untuk properties form tersebut buat lah seperti ini

Object	Name	Caption
labl1	label1	Biodata Pribadi
labl2	label2	Id
labl3	label3	Nama
labl4	label4	Alamat
labl5	label5	HP
labl6	label6	Jenis Kelamin
labl7	label7	Agama
text1	Txtid	(kosongkan)
text2	Txtnama	(kosongkan)
text3	Txtalamat	(Kosongkan)
text4	Txthp	(Kosongkan)
Option1	optpria	Pria
Option2	optwanita	Wanita
Combo1	Combo1	Agama
command1	cmdadd	ADD
Command2	cmdsave	SAVE
command1	cmddelete	DELETE
Command2	cmdexit	EXIT
Adodc1	Adodc1	(visible=false)
MSHFlexGrid1	Grid1	(DataSource=Adodc1)

Kemudian koneksikan antara database dengan Vb menggunakan Adodc (untuk cara mengkoneksikannya silahkan sobat lihat di sini)

Untuk kode listingnya seperti berikut

Private Sub cmdadd_Click()

'ini kode untuk autonumber

On Error Resume Next

Adodc1.RecordSource = "select * from tbdata where ID='" & txtid & "'"

With Adodc1.Recordset

If .BOF And .EOF Then

txtid.Text = "J" + Format(Date, "yyyy") & Format(Date, "mm") & "001"

Else

.MoveLast

txtid.Text = "J" + Format(Date, "yyyy") & Format(Date, "mm") & Right(Str(Val(Right(!ID, 3)) + 1001), 3)

End If

End With

bersih

End Sub

Private Sub cmdsave_Click()

'Kode perintah SAVE jika ingin memberikan pesan setiap kali menyimpan bisa dilihat DISINI

On Error Resume Next

With Adodc1.Recordset

.AddNew

!ID = txtid.Text

!Nama = txtnama.Text

!Alamat = txtalamat.Text

!HP = txthp.Text

If optpria.Value = True Then

!Jenis_Kelamin = "L"

End If

If optwanita.Value = True Then

!Jenis_Kelamin = "P"

End If

!Agama = Combo1.Text

End With

Adodc1.Recordset.Requery

Set Grid1.DataSource = Adodc1

Grid1.Refresh

End Sub

Sub bersih()

txtnama.Text = ""

txtalamat.Text = ""

txthp.Text = ""

optpria.Value = False

optwanita.Value = False

Combo1.Text = "Agama"

End Sub

Private Sub Form_Load()

'ini kode untuk menambah item pada combobox

Combo1.AddItem "Islam"

Combo1.AddItem "Kristen"

Combo1.AddItem "Hindu"

Combo1.AddItem "Budha"

End Sub

Private Sub cmdexit_Click() 'ini perintah untuk keluar

Unload Me

End Sub

Setelah selesai coba untuk di run maka hasilnya akan seperti ini 

Ok sudah selesai sekarang sobat coba runing programnya...
Sampai disini dulu tulisan tentang cara membuat Aouto number di VB 6.0 dengan menggunakan dabase access. 
Selamat mencoba dan semoga bermanfaat.. :-)

Sobat suka tulisan ini..?

	Dapatkan Tulisan Gratis Via Email!
Follow Fajar345!