SQL Server: So behandelt man Ausnahmefehler in der Datenschicht

Der folgende Code ist ein Äquivalent zu dem auf der vorangegangenen Seite in VB.NET:

</p> <p><title>ZDNet developer – Test</title></p> <p>Dim conn AS SqlConnection<br /> Dim cmd As SqlCommand<br /> Dim connString As String<br /> Dim rvalue As Integer<br /> Public Sub SubmitChanges()<br /> connString = „data<br /> source=LOU8-3590424PATTON;uid=test;pwd=test;initial catalog=Northwind“<br /> Try<br /> conn = new SqlConnection(connString)<br /> cmd = new SqlCommand(„sp_UpdateCustomerPhone“, conn)<br /> cmd.CommandType = CommandType.StoredProcedure<br /> cmd.Parameters.Add(„@id“, SqlDbType.NVarChar, 5)<br /> cmd.Parameters(„@id“).Value = lblID.Text<br /> cmd.Parameters.Add(„@phone“, SqlDbType.NVarChar, 24)<br /> cmd.Parameters(„@phone“).Value = txtPhone.Text<br /> cmd.Parameters.Add(„@retvalue“,<br /> System.Data.SqlDbType.Int)<br /> cmd.Parameters(„@retvalue“).Direction<br /> = ParameterDirection.Output<br /> conn.Open()<br /> cmd.ExecuteNonQuery()<br /> rvalue = System.Convert.ToInt32(cmd.Parameters(„@retvalue“).Value) If (rvalue = -1) Then<br /> lblMessage.Text = „Datenbankfehler während des Updates.“<br /> lblMessage.Visible = true<br /> Else<br /> lblMessage.Text = „Daten wurden aktualisiert.“<br /> lblMessage.Visible = true<br /> >End If conn.Close() Catch ex As SqlException<br /> lblMessage.Text = „Fehler beim Datenbankzugriff:<br /> “ + ex.ToString()<br /> Catch ex As Exception<br /> lblMessage.Text = „Ausnahme: “ + ex.ToString()<br /> Finally<br /> If (conn.State = ConnectionState.Open)<br /> Then<br /> conn.Close()<br /> End If<br /> conn.Dispose()<br /> End Try<br /> End Sub<br /> Private Sub btnUpdatePhone_Click(sender As Object, e<br /> As<br /> System.Web.UI.WebControls.CommandEventArgs) SubmitChanges()<br /> End Sub</p> <p>New Number:</p> <p>ALFKI</p> <p>