Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
Nov 17, 2003

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 If
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap