Mega Code Archive

 

Categories / VB.Net / ADO Database

 

Obtain a pooled connection

Imports System Imports System.Data.SqlClient     Public Class MainClass         Public Shared Sub Main()             Using con As New SqlConnection                 con.ConnectionString = "Data Source=.\sqlexpress;Database=AdventureWorks;Integrated Security=SSPI;Min Pool Size=5;Max Pool Size=15;Connection Reset=True;Connection Lifetime=600;"                 con.Open()                 con.Close()             End Using             Using con As New SqlConnection                 con.ConnectionString = "Data Source=.\sqlexpress;Database=AdventureWorks;Integrated Security=SSPI;Pooling=False;"                 con.Open()                 con.Close()             End Using         End Sub     End Class