Blog Informasi dan Pendidikan

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 :

Membuat Autonumber / Kode Otomatis di Vb.Net

Setelah itu desain form seperti dibawah ini : 

Membuat Autonumber / Kode Otomatis di Vb.Net

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

Membuat Autonumber / Kode Otomatis di Vb.Net

Mudahkan Cara Membuat Autonumber di VB.Net - Visual Studio 2008 , semoga berhasil ya. Terimakasih sudah berkunjung Di TIPS DAN INFORMASI. Ikuti terus ya..
Tag : Coding, VB.NET
Back To Top