Creating a Server Component with VB - Redesigned - Part 2

We''''re ready to combine the error code we explored previously with the database code we just developed. Again, this code example will demonstrate how to use transactional processes by "rolling back" all SQL statements when an error occurs in any one SQL statement. Of course, we''''re only using a single select SQL statement, but the process is the same for including multiple SQL statements that necessitate an "all or nothing" database commitment.

We''''ll also use the error processing to send a customized error message back to the calling code if our SQL statement happens to be invalid because an incorrect NoteID was sent as a method parameter. This is important because we really don''''t have any control over what NoteID value might be sent to our method code and we want to let the calling code deal with an erroneous NoteID in its own way - since it''''s the code that sent it.

Adding Error Handling to Database Code   
Public Function ShowNotes(ByVal lngNoteID As Long, _
	Optional ByVal intStyleID As Integer = 0, _
	Optional ByVal strURL As String = "NoteExample.asp", _
	Optional ByVal strDbConnectionString As String = "NotesDSN") As String

    ''''///// ERROR CODE //////////////////////////////////////////////
    On Error GoTo ErrorCode

    ''''///// DB Connectivity Variables
    Dim sql As String
    Dim Rs As New ADODB.Recordset
    Dim objCmd As New ADODB.Command
    Dim objConn As New ADODB.Connection

    ''''///// DB Value Storage variables
    Dim strNoteText As String

    ''''///// OPEN DATABASE ///////////////////////////////////////////
    objConn.Open strDbConnectionString
    objConn.BeginTrans

    ''''///// GET SELECTED NOTE TEXT FROM DATABASE ////////////////////
    sql = "SELECT NoteText FROM NoteTable WHERE NoteID = " & lngNoteID
    objCmd.CommandText = sql
    objCmd.CommandType = adCmdText
    Set objCmd.ActiveConnection = objConn
    Rs.Open objCmd
  

    ''''///// Check if any data was returned
    If Rs.EOF = True And Rs.BOF = True Then
        ''''///// No data returned, set error information, raise error
        Err.Number = 40001
        Err.Source = "NoteProject::NoteClass::ShowNotes"
        Err.Description = "00000002<BR>Possible invalid lngNoteID entered as method value"
        Err.Raise Err.Number, Err.Source, Err.Description
    Else
        strNoteText = Rs.Fields("NoteText")
    End If
    

    ''''--> ANY OTHER DATABASE CODE GOES HERE


    ''''///// FINISH AND CLOSE UP DATABASE PROCESSES //////////////////
    objConn.CommitTrans
    objConn.Close
    Set Rs = Nothing
    Set objCmd = Nothing
    Set objConn = Nothing


    ''''--> OTHER METHOD CODE GOES HERE


    ''''///// SEND BACK NOTE TEXT FROM DATABASE
    ShowNotes = strNoteText

    ''''///// EXIT FUNCTION IF NO ERROR RAISED ////////////////////////
    Exit Function
    
    ''''///// CODE IF ERROR OCCURS ////////////////////////////////////
ErrorCode:

    ''''///// ROLLBACK, CLOSE DB REFERENCES, AND SEND BACK RAISED ERROR
    objConn.RollbackTrans
    If IsObject(Rs) Then Set Rs = Nothing
    If IsObject(objCmd) Then Set objCmd = Nothing
    If IsObject(objConn) Then Set objConn = Nothing
    Err.Raise Err.Number, Err.Source, Err.Description

End Function



文章整理：西部数码--专业提供域名注册、虚拟主机服务

http://www.west263.com

以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!