VB 6 : Etablir une connection à une base de donnée Access protégée par un mot de [Résolu]

tonyo08 12 Messages postés jeudi 14 août 2003Date d'inscription 26 juin 2006 Dernière intervention - 13 sept. 2005 à 10:00 - Dernière réponse : tonyo08 12 Messages postés jeudi 14 août 2003Date d'inscription 26 juin 2006 Dernière intervention
- 13 sept. 2005 à 15:35
Bonjour!

Voila, je termine actuellement un programme qui a une mire d'identification au démarrage. Je veux protéger ma base de données Access par un mot de passe et donc permettre à mon programme de s'identifier dessus. Je voudrais savoir quelle syntaxe utiliser. Beaucoup existent mais rien ne colle! Et mon fichu boukin de Micro Application de poche n'en touche pas un mot :(

J'utilise une fonction qui me permet d'éxécuter "plus rapidment" les requêtes SQL dans mon code:
___________________________________________________________________
Public Function SQLQuest(ficBDD As String, requete As String) As ADODB.Recordset


Dim cnnADO As New ADODB.Connection
Dim cmdADO As New ADODB.Command
Dim rsADO As New ADODB.Recordset


cnnADO.Provider = "Microsoft.Jet.OLEDB.4.0"
cnnADO.ConnectionString = ficBDD
cnnADO.Open


cmdADO.ActiveConnection = cnnADO
cmdADO.CommandText = requete


rsADO.CursorLocation = adUseClient
rsADO.CursorType = adOpenDynamic
rsADO.LockType = adLockPessimistic
rsADO.Open cmdADO

Set SQLQuest = rsADO

End Function
__________________________________________________________________

Est-ce que je peux renseigner ici, les infos nécessaires pour m'identifier à la base ou est-ce que je dois utiliser une autre méthode?
Merci d'avance pour vos réponse.

Tonyo
Afficher la suite 

2 réponses

Meilleure réponse
tonyo08 12 Messages postés jeudi 14 août 2003Date d'inscription 26 juin 2006 Dernière intervention - 13 sept. 2005 à 15:35
3
Merci
Tout d'abord merci de ta réponse ;)

Ms ça n'a pas fonctionné, ms je m'en suis inspiré, je connaissais le "Jet OLEDB: Database Password=mdp" ms je ne savais pas où le mettre.

J'ai donc dupliqué ma fonction en une autre fonction, on obtient ceci:

_______________________________________________________________________________
Public Function SQLQuestUser(ficBDD As String, requete As String) As ADODB.Recordset


Dim cnnADO As New ADODB.Connection
Dim cmdADO As New ADODB.Command
Dim rsADO As New ADODB.Recordset


cnnADO.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=mot_de_passe"
cnnADO.ConnectionString = ficBDD
cnnADO.Open


cmdADO.ActiveConnection = cnnADO
cmdADO.CommandText = requete


rsADO.CursorLocation = adUseClient
rsADO.CursorType = adOpenDynamic
rsADO.LockType = adLockPessimistic
rsADO.Open cmdADO

Set SQLQuestUser = rsADO

End Function
_______________________________________________________________________________

J'ai à présent ma base de donnée user qui contient les utilisateurs protégée. Ca fera un plus lors de ma soutenance ;)

Merci encore,

Tonyo

Merci tonyo08 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

yuri1961 71 Messages postés jeudi 16 juin 2005Date d'inscription 16 février 2007 Dernière intervention - 13 sept. 2005 à 14:38
0
Merci
Salut!
Tache de faire comme ca:

SQLQuest "Data Source=" & App.Path & "/TonBase.mdb;" & _
"Jet OLEDB:Database Password=ToPassWord", _
"Select * From Options"

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.