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

  • Pertanyaan

  • 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..


    Minggu, 21 April 2013 09.01

Jawaban

Semua Balasan

  • 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/

    Senin, 22 April 2013 01.19
  • Tafarie, pengurutannya menjadi seperti itu karena bercampur dengan string. Tambahkan nol di depannya untuk mengurutkannya.. bisa dengan menggunakan format(angka, "0000")..
    Jumat, 26 April 2013 08.47
  • 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,,, 

    Selasa, 13 Mei 2014 10.45