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
| 
