STMIKBG MATARAM

Sebenarnya sama aj dengan generate kode di VB6. logika nya sama aja kok, misalkan kita mau membuat kode secara berurutan dengan format : “00001″ - “0000n”. kita buat dulu sebuah tabel dengan nama tabel `barang` yang berisikan field dengan nama `kode_barang`.

setelah itu mulai dengan query ke tabel bayar, code-nya sbb :

Private Sub GenerateKode()
 Dim a, b, c, d, e, f As String
    DS = Nothing
    DS = New DataSet
    DA = New MySqlDataAdapter("Select `kode_barang` FROM Barang Order By `Kode_barang` DESC", _ Conn)
    DA.Fill(DS, "Barang")
 If (DS.Tables("Barang").Rows(0).Item(0) Is System.DBNull.Value) Then
       a = "0000"
       b = "1"
       c = a & b
     Txtkodebarang.Text = c
 Else
     'a = Val(CMs.Position) + 1
     b = DS.Tables("Barang").Rows(0).Item(0).ToString
     c = (Val(DS.Tables("Barang").Rows(0).Item(0).ToString))
     d = Val(c) + 1
     e = Mid("00000?", 1, Val(6 - Len(Str(d))))
     f = Trim(e) & Trim(d)
        MsgBox(b)
        MsgBox(c)
        MsgBox(d)
        MsgBox(e)
        MsgBox(f)
        txtkodebarang.Text = (f)
 End If
 End Sub