本文整理匯總了VB.NET中System.Data.SqlClient.SqlException.Source屬性的典型用法代碼示例。如果您正苦於以下問題：VB.NET SqlException.Source屬性的具體用法？VB.NET SqlException.Source怎麽用？VB.NET SqlException.Source使用的例子？那麽, 這裏精選的屬性代碼示例或許可以為您提供幫助。您也可以進一步了解該屬性所在類System.Data.SqlClient.SqlException的用法示例。
在下文中一共展示了SqlException.Source屬性的2個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: ShowSqlException
Public Sub ShowSqlException(ByVal connectionString As String)
Dim queryString As String = "EXECUTE NonExistantStoredProcedure"
Dim errorMessages As New StringBuilder()
Using connection As New SqlConnection(connectionString)
Dim command As New SqlCommand(queryString, connection)
Try
command.Connection.Open()
command.ExecuteNonQuery()
Catch ex As SqlException
Dim i As Integer
For i = 0 To ex.Errors.Count - 1
errorMessages.Append("Index #" & i.ToString() & ControlChars.NewLine _
& "Message: " & ex.Errors(i).Message & ControlChars.NewLine _
& "Error Number: " & ex.Errors(i).Number & ControlChars.NewLine _
& "LineNumber: " & ex.Errors(i).LineNumber & ControlChars.NewLine _
& "Source: " & ex.Errors(i).Source & ControlChars.NewLine _
& "Procedure: " & ex.Errors(i).Procedure & ControlChars.NewLine)
Next i
Console.WriteLine(errorMessages.ToString())
End Try
End Using
End Sub示例2: MainClass
' 導入命名空間
Imports System
Imports System.Data
Imports System.Data.SqlClient
public class MainClass
Shared Sub Main()
Dim SqlConnection1 As New SqlConnection("server=(local)\SQLEXPRESS;" & _
"integrated security=sspi;database=MyDatabase")
Dim thisCommand As SqlCommand = SqlConnection1.CreateCommand()
thisCommand.CommandText = "Select nonExistColumn from Employee"
Try
SqlConnection1.Open()
thisCommand.ExecuteNonQuery()
Catch ex As System.Data.SqlClient.SqlException
Dim str As String
str = "Source : " & ex.Source & ControlChars.NewLine
str &= "Number : " & ex.Number & ControlChars.NewLine
str &= "Message : " & ex.Message & ControlChars.NewLine
str &= "Class : " & ex.Class.ToString() & ControlChars.NewLine
str &= "Procedure : " & ex.Procedure & ControlChars.NewLine
str &= "Line number : " & ex.LineNumber.ToString() & ControlChars.NewLine
str &= "Server : " & ex.Server
Console.WriteLine("Database Exception" & str)
Catch ex As System.Exception
Dim str As String
str = "Source : " & ex.Source
str &= ControlChars.NewLine
str &= "Exception Message : " & ex.Message
Console.WriteLine("General Exception" & str)
Finally
If SqlConnection1.State = ConnectionState.Open Then
Console.WriteLine("Finally block closing the connection")
SqlConnection1.Close()
End If
End Try
End Sub
End Class