Membuat Autonumber / Kode Otomatis di Vb.Net

Membuat Autonumber / Kode Otomatis di Vb.Net

Tips dan Informasi kali ini akan berbagi tentang bagaimana Membuat Autonumber / Kode Otomatis di Vb.Net 2008.

Setelah membaca Membuat Koneksi Database Ms.acces di Vb.Net kali ini saya akan memposting tentang bagaimana membuat Autonumber atau kode otomatis pada textbox vb.net. Sebenarnya tidak sulit , saya saja bisa apa lagi anda. 

Ok langsung saja : 

Pertama buatlah susunan database seperti ini : 

- -Kodemahasiswa ------------Key

- -Nammahasiswa

- -Jurusan

Lihat gambar :

Setelah itu desain form seperti dibawah ini : 

Ini kodingnya :

buka()--------------memanggil koneksi di module

cmd = New OleDbCommand("select * from tbkode order by kodemahasiswa desc", koneksi)

baca = cmd.ExecuteReader

baca.Read()

If Not baca.HasRows Then

TextBox1.Text = "MS"+ "0001"

Else

TextBox1.Text = Val(Microsoft.VisualBasic.Mid(baca.Item("kodemahasiswa").ToString,4,3)) + 1

If Len(TextBox1.Text) = 1 Then

TextBox1.Text = "MS000" & TextBox1.Text & ""

ElseIf

Len(TextBox1.Text) = 2 ThenTextBox1.Text = "MS00" & TextBox1.Text & ""

ElseIf

Len(TextBox1.Text) = 3 ThenTextBox1.Text = "MS0" & TextBox1.Text & ""

End If

End If

Mudahkan Cara Membuat Autonumber di VB.Net - Visual Studio 2008 , semoga berhasil ya. Terimakasih sudah berkunjung Di TIPS DAN INFORMASI. Ikuti terus ya..