 |
| Membuat Autonumber di Visual Studio (.net) 2010 |
Nomor atau huruf yang membentuk kode sangat penting untuk membuat id sebuah database. Untuk menginput banyak data, terkadang malas untuk mengetikkan id secara manual dan kadang juga lupa dengan id yang sudah dibuat tadi. Untuk itu, perlu dibuat nomor otomatis atau auto number. Nomor otomatis juga dapat digunakan untuk mencegah agar data tidak bentrok id yang sudah dibuat. Berikut adalah code atau script untuk membuat nomor otomatis di Visual Studio 2010.
Dim notomatis As Single
Dim mycmd As MySqlCommand
Dim objdatareader As MySqlDataReader
Dim myconnection As New MySqlConnection("server=localhost;database=namadatabase;uid=root;password=;")
myconnection.Open()
mycmd = myconnection.CreateCommand
mycmd.CommandText = "select count(*) as nomorid from namatable"
objdatareader = mycmd.ExecuteReader
While objdatareader.Read
notomatis = Val(objdatareader.Item("nomorid ").ToString) + 1
End While
Select Case Len(Trim(notomatis))
Case 1 : TextBox2.Text = "XX" + Date.Now.ToString("yy") + "-0000" + Trim(Str(notomatis))
Case 2 : TextBox2.Text = "XX" + Date.Now.ToString("yy") + "-000" + Trim(Str(notomatis))
Case 3 : TextBox2.Text = "XX" + Date.Now.ToString("yy") + "-00" + Trim(Str(notomatis))
Case 4 : TextBox2.Text = "XX" + Date.Now.ToString("yy") + "-0" + Trim(Str(notomatis))
Case 5 : TextBox2.Text = "XX" + Date.Now.ToString("yy") + "-" + Trim(Str(notomatis))
End Select
myconnection.Close()
EmoticonEmoticon