Membuat ID Otomatis

Assalamu'alaykum wr wb

follow my Twitter @ThoyyibA
Berawal dari mencari referensi untuk membuat id otomatis dan selalu berakhir dengan kegagalan ..
kali ini kak thoy akan berbagi sedikit tentang membuat id otomatis pada Visual Studio.NET

Semoga bermanfaat dan bisa dijadikan referensi .. :)
okelah langsung saja kita ke tkp, dari pada lama basa-basi hhe
disini saya ambil contoh untuk pembuatan id otomatis sederhana untuk negara berikut kodingannya

Private Sub id_otomatis()
        Dim sementara As Integer
        Dim isi As String = ""
        dc = New SqlCommand
        dc.Connection = koneksi.konek
        dc.CommandType = CommandType.StoredProcedure
        dc.CommandText = "otomatis_id_negara"
        dr = dc.ExecuteReader
        If dr.Read Then
            sementara = CInt(Replace(dr.Item("id_negara"), "N-", ""))
            txt_id.Text = "N-" & CStr(sementara + 1)
        Else
            txt_id.Text = "N-1"
        End If
    End Sub

Ini Hasilnya :

Catatan dari kak Thoy :
1. Pada program diatas saya menggunakan StoredProcedure dengan nama otomatis_id_negara
2. Isi dari StoredProcedure otomatis_id_ikan adalah select * from tbl_negara order by id_negara desc
3. Pastikan sudah terkoneksi dengan databasenya
4. Data id baru N-5 muncul setelah tombol tambah ane klik

Semoga membantu
Wassalamu'alaykum wr wb