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

SqlConnection.Database

<source lang="vbnet"> Imports System Imports System.Data Imports System.Data.SqlClient public class MainClass

  Shared Sub Main()
     Dim connString As String = "server=(local)\SQLEXPRESS; " & _
        "integrated security=sspi;"
     Dim conn As New SqlConnection(connString)
     Try
        conn.Open()
        Console.WriteLine("Connection Opened")
        Console.WriteLine("Connection Properties")
        Console.WriteLine("- ConnectionString : {0}",conn.ConnectionString)
        Console.WriteLine("- Database : {0}",conn.Database)
        Console.WriteLine("- DataSource : {0}", conn.DataSource)
        Console.WriteLine("- ServerVersion : {0}", conn.ServerVersion)
        Console.WriteLine("- State : {0}", conn.State)
        Console.WriteLine("- WorkstationId : {0}", conn.WorkstationId)
     Catch ex As SqlException
        Console.WriteLine("Error: " & ex.ToString())
     Finally
        conn.Close()
        Console.WriteLine("Connection Closed")
     End Try
  End Sub

End Class

 </source>

SqlConnection.DataSource

<source lang="vbnet"> Imports System Imports System.Data Imports System.Data.SqlClient public class MainClass

  Shared Sub Main()
     Dim connString As String = "server=(local)\SQLEXPRESS; " & _
        "integrated security=sspi;"
     Dim conn As New SqlConnection(connString)
     Try
        conn.Open()
        Console.WriteLine("Connection Opened")
        Console.WriteLine("Connection Properties")
        Console.WriteLine("- ConnectionString : {0}",conn.ConnectionString)
        Console.WriteLine("- Database : {0}",conn.Database)
        Console.WriteLine("- DataSource : {0}", conn.DataSource)
        Console.WriteLine("- ServerVersion : {0}", conn.ServerVersion)
        Console.WriteLine("- State : {0}", conn.State)
        Console.WriteLine("- WorkstationId : {0}", conn.WorkstationId)
     Catch ex As SqlException
        Console.WriteLine("Error: " & ex.ToString())
     Finally
        conn.Close()
        Console.WriteLine("Connection Closed")
     End Try
  End Sub

End Class

 </source>

SqlConnection.InfoMessage

<source lang="vbnet"> Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization Imports System.Windows.Forms Imports System.Data.SqlClient

Public Class MainClass

   Shared Dim WithEvents con As SqlConnection
   Shared Sub Main()
       con = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=master;Integrated Security=SSPI") 
       Dim cmd As New SqlCommand()
       cmd.rumandText = "PRINT("This raises an InfoMessage event")"
       cmd.Connection = con
       Try
           con.Open()
           cmd.ExecuteNonQuery()
       Finally
           con.Close()
       End Try
   End Sub
   Shared Sub con_InfoMessage(ByVal Sender As Object, _
                ByVal E As SqlInfoMessageEventArgs) Handles con.InfoMessage
       Console.WriteLine( _
                  "{0} - {1}", "InfoMessage", E.Errors.Item(0).ToString())
   End Sub

End Class

 </source>

SqlConnection.ServerVersion

<source lang="vbnet"> Imports System Imports System.Data Imports System.Data.SqlClient public class MainClass

  Shared Sub Main()
     Dim connString As String = "server=(local)\SQLEXPRESS; " & _
        "integrated security=sspi;"
     Dim conn As New SqlConnection(connString)
     Try
        conn.Open()
        Console.WriteLine("Connection Opened")
        Console.WriteLine("Connection Properties")
        Console.WriteLine("- ConnectionString : {0}",conn.ConnectionString)
        Console.WriteLine("- Database : {0}",conn.Database)
        Console.WriteLine("- DataSource : {0}", conn.DataSource)
        Console.WriteLine("- ServerVersion : {0}", conn.ServerVersion)
        Console.WriteLine("- State : {0}", conn.State)
        Console.WriteLine("- WorkstationId : {0}", conn.WorkstationId)
     Catch ex As SqlException
        Console.WriteLine("Error: " & ex.ToString())
     Finally
        conn.Close()
        Console.WriteLine("Connection Closed")
     End Try
  End Sub

End Class

 </source>

SqlConnection.StateChange

<source lang="vbnet"> Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization Imports System.Xml Imports System.Windows.Forms Imports System.Data.SqlClient

Public Class MainClass

   Shared Dim WithEvents con As SqlConnection
   Shared Sub Main()
       con = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=MyDatabase;Integrated Security=SSPI") 
       Dim cmd As New SqlCommand()
       cmd.rumandText = "SELECT TOP 5 FirstName, LastName FROM Employee"
       cmd.Connection = con
       Try
           con.Open()
           Dim reader As SqlDataReader = cmd.ExecuteReader()
           While reader.Read()
               Console.WriteLine( _
                      "{0} - {1}", reader.GetString(0), reader.GetString(1))
           End While
           reader.Close()
       Finally
           con.Close()
       End Try
   End Sub
   Shared Sub con_StateChange(ByVal Sender As Object, _
                ByVal E As StateChangeEventArgs) Handles con.StateChange
       Console.WriteLine( _
                  "{0} - {1}", "ConnectionState", E.CurrentState.ToString())
   End Sub

End Class

 </source>

SqlConnection.Version

<source lang="vbnet"> Imports System Imports System.Data Imports System.Data.SqlClient public class MainClass

  Shared Sub Main()
     Dim connString As String = "server=(local)\SQLEXPRESS; " & _
        "integrated security=sspi;"
     Dim conn As New SqlConnection(connString)
     Try
        conn.Open()
        Console.WriteLine("Connection Opened")
        Console.WriteLine("Connection Properties")
        Console.WriteLine("- ConnectionString : {0}",conn.ConnectionString)
        Console.WriteLine("- Database : {0}",conn.Database)
        Console.WriteLine("- DataSource : {0}", conn.DataSource)
        Console.WriteLine("- ServerVersion : {0}", conn.ServerVersion)
        Console.WriteLine("- State : {0}", conn.State)
        Console.WriteLine("- WorkstationId : {0}", conn.WorkstationId)
     Catch ex As SqlException
        Console.WriteLine("Error: " & ex.ToString())
     Finally
        conn.Close()
        Console.WriteLine("Connection Closed")
     End Try
  End Sub

End Class

 </source>

SqlConnection.WorkstationId

<source lang="vbnet"> Imports System Imports System.Data Imports System.Data.SqlClient public class MainClass

  Shared Sub Main()
     Dim connString As String = "server=(local)\SQLEXPRESS; " & _
        "integrated security=sspi;"
     Dim conn As New SqlConnection(connString)
     Try
        conn.Open()
        Console.WriteLine("Connection Opened")
        Console.WriteLine("Connection Properties")
        Console.WriteLine("- ConnectionString : {0}",conn.ConnectionString)
        Console.WriteLine("- Database : {0}",conn.Database)
        Console.WriteLine("- DataSource : {0}", conn.DataSource)
        Console.WriteLine("- ServerVersion : {0}", conn.ServerVersion)
        Console.WriteLine("- State : {0}", conn.State)
        Console.WriteLine("- WorkstationId : {0}", conn.WorkstationId)
     Catch ex As SqlException
        Console.WriteLine("Error: " & ex.ToString())
     Finally
        conn.Close()
        Console.WriteLine("Connection Closed")
     End Try
  End Sub

End Class

 </source>