應(yīng)用數(shù)據(jù)庫的唯一性約束并在asp中捕捉數(shù)據(jù)庫的錯誤

發(fā)布時間：2008-07-10 閱讀數(shù)：次來源：網(wǎng)樂原科技

本文中所提到的asp頁面，除特別聲明外，均指<@PAGE LANGUEGE=”VBSCRIPT”>
寫asp與數(shù)據(jù)庫的結(jié)合的程序時，經(jīng)常會遇到同一數(shù)據(jù)表中不允許存在重復值的問題，比如用戶注冊程序中不允許出現(xiàn)相同的用戶ID。這樣的情況下，我以前采取的辦法是讀取數(shù)據(jù)庫中的已存在值，然后與用戶輸入的值比較，如果有相同，則提示已被注冊，須重新填寫。這樣做可以達到預(yù)期的目的，但是因為有一次額外的數(shù)據(jù)庫存取操作，比較浪費資源。
我們都知道，數(shù)據(jù)表中的列可以設(shè)置唯一性約束，就是從數(shù)據(jù)庫限制該字段不允許出現(xiàn)重復值，違反唯一性約束后，數(shù)據(jù)庫將返回2627錯誤，提示“違反了 %1! 約束 ''%2!''。不能在對象 ''%4!'' 中插入重復鍵”，這是數(shù)據(jù)庫的輸出，SQL Server 的所有錯誤都存儲在系統(tǒng)表 master.dbo.sysmessages 中。用戶定義的消息也可以存儲在 sysmessages 中。在asp中調(diào)用存儲過程的時候，由于存儲過程沒有容錯處理，會返回該提示到頁面，并終止語句的執(zhí)行，@@Error返回值為0。如果頁面設(shè)置了容錯，則不會出現(xiàn)錯誤提示，但因為錯誤是數(shù)據(jù)庫中出現(xiàn)的，所以Err.Number不能得到其錯誤號。（也可能是我的數(shù)據(jù)庫不熟的原因:-)，還請大蝦指點）。近日研究ADO，找到了一種更加簡便的方式實現(xiàn)該控制。
ADO(ActiveX Data Objects)被廣泛的用于應(yīng)用程序與數(shù)據(jù)庫的連接，asp也可以通過他來實現(xiàn)對數(shù)據(jù)庫的操作的。ADO 2.1的Connection對象中有一個Error對象，通過它可以捕捉到來自數(shù)據(jù)庫的錯誤，以在asp頁面中控制。該對象常用的Property有如下幾個，均為只讀：
Description：字符型，返回來自數(shù)據(jù)庫的錯誤描述
Source：字符型，錯誤來源
SQLState：字符型，ODBC API（驅(qū)動程序管理器）錯誤，SQL Server 2000中對其有如下描述：
SQLSTATE 返回的字符串值由兩個字符的類值后接三個字符的子類值組成。類值 01 表明是一種警告，后跟隨 SQL_SUCCESS_WITH_INFO 的返回代碼。只要類值不是 01（IM 除外），則表明是一種錯誤，后跟隨 SQL_ERROR 的返回代碼。類 IM 專門用于表明從 ODBC 實現(xiàn)產(chǎn)生的警告和錯誤。任何類中子類值 000 均用于實現(xiàn)給定類中所定義條件。這種類值和子類值的分配方法由 SQL-92 定義。
跑題了跑題了，回到剛才的話題~~~
Number：返回與錯誤相關(guān)聯(lián)的數(shù)字值，是一個 32 位的值。較高的 16 位字是設(shè)施代碼，而較低的字才是真正的錯誤代碼。
NativeError：這就是我們今天要用到的，MSDN對他的描述是：
The NativeError property on a Error（是不是M$的BUG？我英語不及格:-)）object indicates the provider-specific error code for a given Error object. This property returns a a Long value that indicates the error code.
還有HelpFile和Helpcontext，都是有關(guān)幫助的，這里就不詳述了。
在這里我們用到了NativeError，用它來捕捉來自數(shù)據(jù)庫的錯誤，他返回了該錯誤的編號。源程序片斷如下：
<%ON ERROR RESUME NEXT 'VBSCRIPT的容錯
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")

Conn.Open"DSN=BBII; UID=sa; PWD="
SQL="Exec ch_insNovel 'd','22','33','44','55'"
'SQL = "Insert Into Novel (Name,Author,yy,ee)VALUES('nn','ee','jj')"，與上句效果是一樣的
RS.Open SQL,Conn
If Conn.Errors.Count = 0 Then'判斷錯誤的個數(shù)
IsSucc = " 成功 "'
Else
select case Conn.Errors.Item(0).NativeError
case 2627
IsSucc = "ddddddd" '你可以根據(jù)需要，定義多個自己的錯誤返回值
End Select
End if
Response.Write "<br>:::"&IsSucc
%>
注意select case…一句中的“Conn.Errors.Item(0).NativeError”，返回一組item中的第一個。在我們這個例子當中，伴隨2627措促同時發(fā)生的是“語句已終止”（3621），嚴格來講，他不是錯誤，而是一般性警告（嚴重級別=10)。所以我們需要用來判斷的是第一個錯誤,當然，你可以定義i = i + 1來查看所有發(fā)生的錯誤。這樣，我們就能夠知道來自SQL Server的錯誤的具體內(nèi)容，可以更容易的控制了。

附：錯誤編號
<!—ErrLp.asp-->
<%ON ERROR RESUME NEXT
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL Server}; Server=127.0.0.1; database=master; UID=sa; pwd="
set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * From sysmessages Where msglangid = 2052 Order By error"
rs.open sql,conn,3,2
PAGE = CLng(REQUEST("txtpage"))
RS.PageSize = 100
If PAGE < 1 Then PAGE = 1
If PAGE > RS.PageCount Then PAGE = RS.PageCount
RS.AbsolutePage = PAGE
%>
<style>
td
{
font-family: Verdana;
font-size: 10pt;
}
</style>
<Div>
<FORM METHOD="GET">
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#999999">
<TR>
<TD width="100">總計數(shù)：<%=RS.RecordCount%></td>
<TD width="80">總頁數(shù):<%=RS.PageCount%></TD>
<TD width="90">目前頁次:<%=page%></TD>
<TD width="80">轉(zhuǎn)到<INPUT TYPE="text" NAME="txtpage" SIZE="2" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1">頁</TD>
<TD width="60">
<%
If page <> 1 Then
Response.Write"<a href=ErrorLp.asp?txtpage=1>第一頁</a>"%> </TD>
<TD width="60">
<%Response.Write"<a href=ErrorLp.asp?txtpage="&(page - 1)&">上一頁</a>"%> </TD>
<%
End If

If page <>RS.PageCount Then%>
<TD width="60">
<%Response.Write"<a href=ErrorLp.asp?txtpage="&(page + 1)&">下一頁</a>"%> </TD>
<TD width="70"><%Response.Write"<a href=ErrorLp.asp?txtpage="&RS.PageCount&">最后一頁</a>"
End If
%>
</TD>
<TD> </TD>
</TR>
</TABLE>
</FORM>
</DIV>
<p>
<DIV>
<TABLE CELLSPACING="0" CELLPADDING="0" BORDER="1" WIDTH="100%" bordercolor="#999999">
<TR>
<TD>錯誤號</TD>
<TD>嚴重級別</TD>
<TD>DLEVEL</TD>
<TD>信息</TD>
</TR>

<%For ipage = 1 To RS.PageSize%>

<TR onmouseOver="javascript:this.style.background='#dddddd';" onmouseOut="javascript:this.style.background='';">
<TD><%=RS("error")%></TD>
<TD><%=RS("severity")%></TD>
<TD><%=RS("dlevel")%></TD>
<TD><%=RS("description")%></TD>
</TR>
<% RS.MoveNext
IF RS.EOF THEN EXIT FOR
NEXT
SET RS = NOTHING
SET Conn = NOTHING
%>
</TABLE>
</DIV>

另：有關(guān)ADO2.1與Conn.Errors的說明，請見ms-help://MS.MSDNVS.2052/dnaxctrl/html/ado_objm.htm