VB.Net – Funktion zum Herstellen einer SQL-Connection

In meinem Jobumfeld bin ich im aktuellen Projekt damit betraut, mehr und mehr separate MS SQL Server Datenbanken zum Import von Daten in ein IT-Managementtool anzubinden. Mittlerweile bin ich es leid, jedesmal pro Anbindung eine separate SQL-Connection herzustellen, bzw. den ConnectionString zusammenzustellen. Anbei nun eine kleine VB.Net-Funktion, welche eine nicht geöffnete, aber vollständig bestückte SQL-Connection herstellt. Die Wiederverwendung ist hierbei explizit erlaubt:

“‘ <summary>
“‘ Provides an generic Connection to MS SQL Server Database
“‘ </summary>
“‘ <param name=“Server“>Databaseserver</param>
“‘ <param name=“Database“>Database</param>
“‘ <param name=“IntegratedAuthentication“>True if SSPI, False if SQL Authentication</param>
“‘ <param name=“UserID“>SQL User-ID, will be ignored if IntegratedAuthentication = TRUE</param>
“‘ <param name=“Password“>SQL User-Password, will be ignored if IntegratedAuthentication = TRUE</param>
“‘ <returns>System.Data.SqlClient.SqlConnection-Object</returns>
“‘ <remarks>created by. C.Paul</remarks>
Public Function Generic_GetSQLConnection(ByVal Server As String, ByVal Database As String, ByVal IntegratedAuthentication As Boolean, ByVal UserID As String, ByVal Password As String) As System.Data.SqlClient.SqlConnection
Dim Connection As System.Data.SqlClient.SqlConnection

If IntegratedAuthentication Then
Connection = New System.Data.SqlClient.SqlConnection(„Data Source=“ & Server & „;initial Catalog=“ & Database & „;Integrated Security=True;Pooling=False“)
Else
Connection = New System.Data.SqlClient.SqlConnection(„User ID=“ & UserID & „;Data Source=“ & Server & „;initial Catalog=“ & Database & „;Password=“ & Password & „;Pooling=False“)
End If

Return Connection
End Function

Mit dieser Funktion habe ich sowohl die Möglichkeit eine Verbindung per Intergrated Authentication als auch per SQL Authentication herzustellen.