Ado connection string generator

Soyez le premier à donner votre avis sur cette source.

Snippet vu 19 814 fois - Téléchargée 40 fois

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

Ajouter un commentaire

Commentaires

simodel
Messages postés
39
Date d'inscription
vendredi 29 février 2008
Statut
Membre
Dernière intervention
19 juin 2009
-
BIEN
RicoNuch
Messages postés
140
Date d'inscription
mercredi 18 juin 2003
Statut
Membre
Dernière intervention
16 décembre 2006
-
Pour répondre à la question de Rachid, voilà ce qui est précisé sur le site de Microsoft :
"L'attribution au mot clé Persist Security Info de la valeur true ou yes dans une chaîne de connexion permet d'obtenir des informations sensibles pour la sécurité, dont l'ID utilisateur et le mot de passe, de la connexion une fois la connexion ouverte. Si vous devez fournir un ID utilisateur et un mot de passe lors de l'établissement d'une connexion, vous êtes parfaitement protégé si ces informations sont écartées après qu'elles ont été utilisées pour ouvrir la connexion, ce qui se passe lorsque la valeur de Persist Security Info est false ou no. Cela est particulièrement vrai si vous fournissez une connexion ouverte à une source qui n'est pas digne de confiance ou encore des informations de connexion persistantes à un disque. En définissant Persist Security Info avec la valeur false, vous avez la garantie que la source qui n'est pas digne de confiance n'aura pas accès aux informations de sécurité sensibles de votre connexion et que ces informations ne seront pas copiées sur le disque avec les informations de votre chaîne de connexion. Persist Security Info a, par défaut, la valeur false."
http://msdn2.microsoft.com/fr-fr/library/89211k9b(VS.80).aspx
rachidi53
Messages postés
1
Date d'inscription
samedi 21 octobre 2006
Statut
Membre
Dernière intervention
28 décembre 2006
-
Je n'ai pas de commentaire. Cependant, Je me permet de poser la question suivante :

A quoi sert dans une chaine de connexion???
medaz
Messages postés
22
Date d'inscription
mardi 14 janvier 2003
Statut
Membre
Dernière intervention
9 mai 2005
-
merci clem2k c pratique et bien fait
ChiracLaPoufiasse
Messages postés
1
Date d'inscription
jeudi 27 février 2003
Statut
Membre
Dernière intervention
28 mars 2003
-
Juste pour une info comme ca. Ces 2 lignes se font aussi bien en 1 seule:

Dim TempConnection As ADODB.Connection
Set TempConnection = New ADODB.Connection

Dim TempConnection as New ADODB.Connection

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.