VB.Net by API/System.Data.SqlClient/SqlException

Материал из VB Эксперт
Версия от 12:50, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

SqlException.LineNumber

  
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.rumandText = "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


SqlException.Message

  
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.rumandText = "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


SqlException.Number

  
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.rumandText = "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


SqlException.Procedure

  
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.rumandText = "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


SqlException.Server

  
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.rumandText = "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


SqlException.Source

  
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.rumandText = "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
Источник — «http://vbex.ru/index.php?title=VB.Net_by_API/System.Data.SqlClient/SqlException&oldid=2366»