' 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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
