OPRAG-OPREG

Below script is how to use an auto number using SQL database which support to reset auto number everyday. means record data will be reset to 001 when the day is changing. Public Overridable Function SerialOrderId_AutoNum() As String         MeDB.TutupKoneksi()         DTS = New DataSet         DTA = New  _               SqlDataAdapter("SELECT SerialOrderId FROM SerialOrder_Table " & _                              "WHERE YEAR(LEFT(SerialOrderId,8)) + MONTH(LEFT(SerialOrderId,8)) " & _                              "+ DAY(LEFT(SerialOrderId,8)) = YEAR(GETDATE()) + MONTH(GETDATE()) + " & _                              "DAY(GETDATE()) ORDER BY SerialOrderId ASC", MeDB.BukaKoneksi)         DTA.Fill(DTS)         If DTS.Tables(0).Rows.Count = 0 Then             Return Format(Now.Date, "yyyyMMdd") & "0001"         Else             Dim KODE As String = Mid(DTS.Tables(0).Rows(DTS.Tables(0).Rows.Count - 1).Item(0), 4)