Display the information about the connection.

  

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

    Public Class MainClass
        Public Shared Sub SqlConnectionExample()
            Using con As New SqlConnection
                con.ConnectionString = "Data Source=.\sqlexpress;Database=AdventureWorks;Integrated Security=SSPI;"
                con.Open()

                If con.State = ConnectionState.Open Then
                    Console.WriteLine("SqlConnection Information:")
                    Console.WriteLine("  Connection State = " & con.State)
                    Console.WriteLine("  Connection String = " & con.ConnectionString)
                    Console.WriteLine("  Database Source = " & con.DataSource)
                    Console.WriteLine("  Database = " & con.Database)
                    Console.WriteLine("  Server Version = " & con.ServerVersion)
                    Console.WriteLine("  Workstation Id = " & con.WorkstationId)
                    Console.WriteLine("  Timeout = " & con.ConnectionTimeout)
                    Console.WriteLine("  Packet Size = " & con.PacketSize)
                Else
                    Console.WriteLine("SqlConenction failed to open.")
                    Console.WriteLine("  Connection State = " & con.State)
                End If
                con.Close()
            End Using
        End Sub
        Public Shared Sub OleDbConnectionExample()
            Using con As New OleDbConnection
                con.ConnectionString = "Provider=SQLOLEDB;Data Source=.\sqlexpress;Initial Catalog=AdventureWorks;Integrated Security=SSPI;"
                con.Open()
                If con.State = ConnectionState.Open Then
                    Console.WriteLine("OleDbConnection Information:")
                    Console.WriteLine("  Connection State = " & con.State)
                    Console.WriteLine("  Connection String = " & con.ConnectionString)
                    Console.WriteLine("  Database Source = " & con.DataSource)
                    Console.WriteLine("  Database = " & con.Database)
                    Console.WriteLine("  Server Version = " & con.ServerVersion)
                    Console.WriteLine("  Timeout = " & con.ConnectionTimeout)
                Else
                    Console.WriteLine("OleDbConnection failed to open.")
                    Console.WriteLine("  Connection State = " & con.State)
                End If
                con.Close()
            End Using
        End Sub
        Public Shared Sub Main()
            SqlConnectionExample()
            OleDbConnectionExample()
        End Sub

    End Class

Related examples in the same category

1.	Connection state change event
2.	Info Message Event
3.	Execute Non Query Example
4.	Obtain a pooled connection
5.	Parameterized Command Example
6.	Parse the SQL Server connection string and display the component configuration parameters.
7.	SQL Server Online Check

Display the information about the connection. : SqlConnection « Database ADO.net « VB.Net

Related examples in the same category