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

Question

Bonjour!

Voila, je termine actuellement un programme qui a une mire d'identification au d&#233;marrage. Je veux prot&#233;ger ma base de donn&#233;es Access par un mot de passe et donc permettre &#224; 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'&#233;x&#233;cuter "plus rapidment" les requ&#234;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&#233;cessaires pour m'identifier &#224; la base ou est-ce que je dois utiliser une autre m&#233;thode?
Merci d'avance pour vos r&#233;ponse.

Tonyo

tonyo08 · Accepted Answer

Tout d'abord merci de ta r&#233;ponse ;)

Ms &#231;a n'a pas fonctionn&#233;, ms je m'en suis inspir&#233;, je connaissais le "Jet OLEDB: Database Password=mdp" ms je ne savais pas o&#249; le mettre.

J'ai donc dupliqu&#233; 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 &#224; pr&#233;sent ma base de donn&#233;e user qui contient les utilisateurs prot&#233;g&#233;e. Ca fera un plus lors de ma soutenance ;)

Merci encore,

Tonyo

yuri1961 · Answer

Salut!
Tache de faire comme ca:

SQLQuest "Data Source=" & App.Path & "/TonBase.mdb;" & _
    "Jet OLEDB:Database Password=ToPassWord", _
   "Select * From Options"

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

2 réponses

Discussions similaires