本文整理汇总了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