devxlogo

CreateConnection – Creating a suitable connection object for a given connection string

CreateConnection – Creating a suitable connection object for a given connection string

' Create a suitable connection object for a given connection string.' Requires Imports for System.Data, System.Data.Common, System.Data.OleDb,'  System.Data.SqlClient and System.Data.Odbc'' Example: Dim cn As IDbConnection = CreateConnection(connStr)Function CreateConnection(ByVal connString As String) As IDbConnection    If connString.ToLower.IndexOf("provider=") >= 0 Then        Return New OleDbConnection(connString)    ElseIf connString.ToLower.IndexOf("driver") >= 0 Then        Return New OdbcConnection(connString)    Else        Return New SqlConnection(connString)    End IfEnd Function

devx-admin

Share the Post: