Source Code Pembuatan ID / Kode Otomatis Pada ASP.NET

7 Mei 2010
Posted by Unknown

Bagi rekan-rekan yang kepingin membuat penomoran atau id otomatis pada asp.net maka tutorial ini dapat sedikit membatu. Langsung saja ke Coding ya,,

catatan : bahasa yang saya pakai disini adalah Visual Basic, sedangkan database yang digunakan adalah microsoft Access 2003 dan editor Microsoft Visual Web Developmen 2008 Express. coding ini adalah sebuah prosedur dan untung menjalankanya tinggal dipanggil saja pada form load.



Sub ID_Otomatis()
'Digunakan Untuk Membuka koneksi yangbernama cn
cn.Open()
'deklarasi variabel
Dim query2, jum As String
' memilih field yang akan dijadikan penomoran / id otomatis menggunakan perintah sql
query2 = "select id from tb_detail"
Dim cmd1 As New OleDbCommand(query2, cn)
Dim tabel As New DataTable
Dim obj1 As OleDbDataReader = cmd1.ExecuteReader()
'mengecek penomoran terakhir dalam baris
If obj1.HasRows = True Then
While obj1.Read()
'mengambil nilai 3 digit dari kanan pada database
TextBox3.Text = Right(obj1("id"), 3)
End While
'menjumlahkan baris terakhir dengan 1
jum = TextBox3.Text + 1
If jum < 10 Then
TextBox3.Text = "PC000" + jum
ElseIf jum < 100 Then
TextBox3.Text = "PC00" + jum
ElseIf jum < 1000 Then
TextBox3.Text = "PC0" + jum
ElseIf jum < 10000 Then
TextBox3.Text = "PC" + jum
End If

Else
TextBox1.Text = "PC0001"
End If
'menutup koneksi cn
cn.Close()

End Sub

Nah,,,begitu saja codingnya, gampang kan,,,,

Semoga Bisa Membantu,,

0 komentar: