Re: [Programmer-VB] Auto Number

Fri, 27 Jan 2006 00:51:57 -0800

Pertama, baca dari database no terakhir. kemudian ambil no.nya trus ditambah satu. kemudian tinggal di tambah P didepannnya.. juga banyaknya 0.
 
mungkin ini bisa dibuat contoh :
 
Private Sub Create_NewID()
Dim rsASM As New ADODB.Recordset
    sSQLString = " SELECT ISNULL(CONVERT(INT, LEFT(MAX(RSH_SparepartID), 6)), 0) + 1 AS New_ID " & _
                 " FROM Inventory.dbo.T_Repaired_Sparepart_Header " & _
                 " WHERE RSH_CmpID = '" & sCompany & "' AND " & _
                 "     Year(RSH_Date) = " & Year(DTPSP_Date.Value) & " "
    Set rsASM = New ADODB.Recordset
    rsASM.Open sSQLString, cnInventory, adOpenForwardOnly, adLockOptimistic
   
    If Not rsASM.EOF Then
        lblSparepart_No.Caption = Right(1000000 + Val(rsASM!New_ID), 6) & "/RS/" & Format(DTPSP_Date.Value, "yyyy")
    Else
        lblSparepart_No.Caption = "000001/RS/" & Format(DTPSP_Date.Value, "yyyy")
    End If
    rsASM.Close
    Set rsASM = Nothing
End Sub

Yahoo! Autos. Looking for a sweet ride? Get pricing, reviews, & more on new and used cars.

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke