ODBC Connection Strings

cnn_str.bas

Public Function cnn_str(DB As String)
Dim cnnStr As String
    Select Case DB
        Case "AccessDB"    '''
            ''("Provider = Microsoft.ACE.OLEDB.12.0; data source=" & "C:\CodeMiner\CodeMinerDb.accdb")
            cnnStr = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                    "Data Source=" & "C:\Users\Documents\DqExplorer" & "\" & "ppsdb.accdb"
             
        Case "SqlExpress"
            cnnStr = "driver={SQL Server};server=mynotebook\SQLEXPRESS;" & _
                    "Trusted_Connectin=no;" & _
                    "database=myuser;uid=sa;pwd=1111;"
        Case "MSSql"
            cnnStr = ""
        Case "OracleODBC32"
            ''BON_DEV_SUNCATA,'BON_DEV_SUNTESTCATA'MYTESTCATA
            cnnStr = ("DRIVER=Oracle in OraClient11g_home1;" & _
                    "SERVER=DEV_SERVER;" & _
                    "DBQ=DEV_SERVER;" & _
                    "UID=myuser;" & _
                    "PWD=mypass!01;")
        Case "OracleODBC"
            cnnStr = ("DRIVER=Oracle in OraDb11g_home1;" & _
                    "SERVER=DEV_SERVER;" & _
                    "DBQ=DEV_SERVER;" & _
                    "UID=myuser;" & _
                    "PWD=mypass!01;")
        Case "OracleDSN"
            cnnStr = "DSN=dsnOra;UID=myuser;PASSWORD=mypass!01;"
        Case "cnnDQ64"    '''
            '''("DRIVER=Oracle in OraDb11g_home1;"--dsn method: dsnCnnDQ
            cnnStr = "DSN=dsnCnnDQ;UID=CATADQM;PASSWORD=CATADQM;"
        Case "cnnDQ32"    '''
            cnnStr = ("DRIVER=Oracle in OraClient11g_home1;" & _
                    "SERVER=DQ;" & _
                    "DBQ=DQ;" & _
                    "UID=myuser;" & _
                    "PWD=mypass!01;")
        
        Case "OracleTNS"
            cnnStr = "MYTESTCATA = " & _
                        "(DESCRIPTION =" & _
                            "(ADDRESS_LIST =" & _
                                "(ADDRESS = (PROTOCOL = TCP)(HOST = 10.111.11.111)(PORT = 4013)))" & _
                        "(CONNECT_DATA =" & _
                        "(SERVICE_NAME = TESTDB)))"
            ''........Error.......
        Case "Tibero5ODBC"
            cnnStr = "DRIVER={Tibero 5 ODBC Driver};SERVER=10.10.10.10;PORT=1521;DB=myDB;UID=myuser;PWD=mypass"
        Case "Tibero5DSN"
            cnnStr = "DSN=TiberoNew;UID=myuser;PASSWORD=mypass;CHARSET=MSWIN949;"
        Case "Tibero5OLEDB"
            cnnStr = "Provider=tbprov.Tbprov.5;Data Source=10.10.10.10,1521,RWISDB;User ID=myuser;Password=mypass;" '성공'Initial Catalog="";"
        Case Else
            cnnStr = ""
    End Select
    Debug.Print cnnStr & "...Connected.!"
    cnn_str = cnnStr
End Function