Imports System
Imports System.Data.SqlClient
Public Class MainClass
Public Shared Sub Main()
Dim conString As String = "Data Source=.\sqlexpress;Database=AdventureWorks;Integrated Security=SSPI;Min Pool Size=5;Max Pool Size=15;Connection Lifetime=600;"
Dim sb1 As New SqlConnectionStringBuilder(conString)
Console.WriteLine(" Database Source = " & sb1.DataSource)
Console.WriteLine(" Database = " & sb1.InitialCatalog)
Console.WriteLine(" Use Integrated Security = " & sb1.IntegratedSecurity)
Console.WriteLine(" Min Pool Size = " & sb1.MinPoolSize)
Console.WriteLine(" Max Pool Size = " & sb1.MaxPoolSize)
Console.WriteLine(" Lifetime = " & sb1.LoadBalanceTimeout)
Dim sb2 As New SqlConnectionStringBuilder(conString)
sb2.DataSource = ".\sqlexpress"
sb2.InitialCatalog = "AdventureWorks"
sb2.IntegratedSecurity = True
sb2.MinPoolSize = 5
sb2.MaxPoolSize = 15
sb2.LoadBalanceTimeout = 600
Console.WriteLine(sb2.ConnectionString)
End Sub
End Class
| 
