[Tanya ] membuat autoNumber dengan Format "Huruf-Angka" dengan vb.net dan Mysql

Question

selamat sore rekan2 sekalian...

saya mau nanya nih, gimana cara membuat no.Otomatis dengan menggunakan Vb.Net dan Mysql.?

untuk No.Otomatis nya di ambil dari kolom "IDkode" dari tabel "TblNo" di database, dengan mengambil IDkode yang terakhir.

misal Untuk No.Otomatis nya saya Buat dengan format : "AA-1" , "AA-2", "AA-3", Dst......

tapi setelah saya coba untuk menambahkan kodenya kedalam database secara manual Kemudian saya save. Hasilnya seperti ini :

Tipe Kolom IDKode Saya set ke tipe "Varchar" dengan panjang karakter = 10.

kemudian saya coba lakukan query untuk menampilkan : Semua Idkode ; IDKode dengan Substring ; Dan IDkode order by DESC dengan limit 1, seperti ini:

dari kode yang saya Input manual sebelumnya, jelas bahwa Idkode : "AA-21" adalah yang paling terakhir dan paling besar nilai nya.

untuk kode yang saya gunakan di form seperti ini :

    Property QueryString() As String
        Get
            Return m_QueryString
        End Get
        Set(ByVal value As String)
            m_QueryString = value
            ds = New DataSet
            ds.Clear()
            da = New SqlClient.SqlDataAdapter(m_QueryString, cnnSQL)
            da.Fill(ds)
        End Set
    End Property

-=-=-=-===- No otomatis -=-=-=-=-

    Private Sub noUrut()

        Dim strTemp As String = ""
        Dim strValue As String = ""

        sq.QueryString = "select Idkode from tblno WHERE SUBSTRING(IDkode,1,3) ='AA-' order by idkode DESC limit 1"

        If sq.GetRecords.Rows.Count = 0 Then
            Textno.Text = "AA-" & "1"
        Else
            strTemp = sq.GetRecords.Rows(0)("idkode").ToString()   
            strTemp = strTemp.Replace("AA-", String.Empty)
            Dim intNumber As Integer
            Integer.TryParse(strTemp, intNumber)
            intNumber += 1
            Textno.Text = "AA-" & intNumber.ToString()
        End If
    End Sub

pada bagian Code :

strTemp = sq.GetRecords.Rows(0)("idkode").ToString() 

yang tampil adalah kode : AA-9, Seharusnya kan : AA-21

untuk mendapatkan Kode Selanjutnya yaitu : AA-22, itu bagaimana ya...????

terima kasih..

Answer 1

AA-9 itu lebih besar dari A-21.

Solusinya, tambahkan nol di depan angka. Misalnya AA-00009, AA-00010, AA-00011, dst.

---

Ahmad Masykur http://www.masykur.web.id/

Answer 2

Tafarie, pengurutannya menjadi seperti itu karena bercampur dengan string. Tambahkan nol di depannya untuk mengurutkannya.. bisa dengan menggunakan format(angka, "0000")..

Answer 3

BAGAI MANA JIKA DATAbase mengunakan accses 2007

saya butuh bantuan untuk ini vb.net dengan acces 2007 .. untuk kode autonomber,,,

trimakasihh di tunggu jwaban nya,,,