Ado connection string generator

Commenter

Contenu du snippet

Genere a la volée des chaines de connexion ADO

Source / Exemple : 


Public Function GenereCSTRING(TYPEBASE As Integer, BASE As String, SERVER As String, FICHIER As String, USER As String, PASSWORD As String) As String
'1 - ODBC
'2 - ORACLE
'3 - SQL SERVER
'4 - ACCESS 2000
'5 - ACCESS 97

Select Case TYPEBASE
    Case 1
        GenereCSTRING = "Provider=MSDASQL.1;Password=" & PASSWORD & ";Persist Security Info=True;User ID=" & USER & ";Data Source=" & BASE
    Case 2
        GenereCSTRING = "Provider=OraOLEDB.Oracle.1;Password=" & PASSWORD & ";Persist Security Info=True;User ID=" & USER & ";Data Source=" & BASE
    Case 3
        GenereCSTRING = "Provider=SQLOLEDB.1;Password=" & PASSWORD & ";Persist Security Info=True;User ID=" & USER & ";Initial Catalog=" & BASE & ";Data Source=" & SERVER
    Case 4
        GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FICHIER & ";Persist Security Info=False"
    Case 5
        GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & FICHIER
    Case Else
        GenereCSTRING = "PAS ASSEZ DE PARAMETRES RENSEIGNES !!!"
End Select

End Function

'pour tester ...
Public Function TestConnection(ConnectString As String)
Dim TempConnection As ADODB.Connection
Set TempConnection = New ADODB.Connection

On Error GoTo OpenErr

With TempConnection
    .ConnectionString = ConnectString
    .Open
    If .State = adStateOpen Then
        TestConnection = True
    Else
        TestConnection = False
    End If
    .Close
End With

Exit Function
OpenErr:
TestConnection = False

End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Clem2k)