自动获得下一记录ID号码（转）

'--FUNCTION : it can get One Database's espacialy Fields SERIALNO
'--Parament :
'　　　　(1). mLen　: the FIELD's total length
'　　　　(2). mHead : the SerialNo Start with Charactor
'　　　　(3). mField: the database fields name it will be.
'　　　　(4). mDB　: Database Name
'--Return　: Return a Specaily format string with you want HEADCHAR by appointed.
'--Attention: the mLen must no less than the length of mHead　　　　　　　　　　　　　
'--Example　: sSerialNo = GetSerialNo(12, "TA", "ta_id", "mtotal_Asset")
'==-----------------------------------------------------------------------------------------------------

Function GetSerialNo(mLen, mHead, mField, mDB)
　　Dim tmpstr
　　dim strSql
　　dim tmpRs
　　
　　If mLen <= len(mHead) then　　　　　　　　　　　　　　　　　　　　　　　　'if Length of head Character equal mLen　
GetSerialNo = Null　　　　　　　　　　　　　　　　　　　　　　　　　　'then return NULL
exit function
　　end if

　　mHead = UCase(mHead)
　　strSql = " Select max(" & mField & ") mMax from " & mDB
　　strSql = strSql & " Where " & mField & " like '" & mHead & "%'"　　　　　　'The sql Condition
　　
　　Set tmpRs = Server.CreateObject("ADODB.RecordSet")
　　tmpRs.Open strSql, Session("OraArsConn")
　　
　　If (tmpRs.BOF And tmpRs.EOF) Then
　　　　tmpstr = String(mLen - Len(mHead) - 1, "0") & "1"　　　　　　　　　　　'The base begin with 1
　　　　tmpstr = mHead + tmpstr
　　Else
IF not IsNull(tmpRs.Fields("mMax")) Then
tmpstr = tmpRs.Fields("mMax")　 'Get the max value
tmpStr = Mid(tmpStr,Len(mHead) + 1,mLen)　　　　　　　　　　　　
tmpStr = CInt(tmpStr) + 1　　　　　　　　　　　　　　　　　　　　　　　'Increase the value　　
tmpStr = mHead & String(mLen - len(mHead) - len(tmpStr),"0") & tmpStr　'Create New SerialNo
Else
tmpstr = String(mLen - Len(mHead) - 1, "0") & "1"　　　　　　　　　　　'The base begin with 1
tmpstr = mHead + tmpstr
End If
　　End If
　　tmpRs.close
　　set tmpRs = nothing
　　
　　GetSerialNo = tmpstr
End Function

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124477/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10294527/viewspace-124477/