aidez moi s'ils vous plaitRésolu

Question

SALUT les amis :
J'essay d'ouvrir la connection a une base de donne&#233;s Access a qui j'ai determiner un mot de passe mais la connection ne passe pas tjs 
j'ai essay&#233; avec ses methodes mais je n'araive pas tjrs a resodre le probleme si vous avez une solution je serai h&#233;p&#232;re content de l'avoir et merci :) 


sub connection ()
dim CON As New ADODB.Connection
      passe = "a"
      util = "Admin"
CON.Open "Provider=Microsoft.Jet.OLEDB.4.0 ; " & _
" Data Source = " & App.Path & "\GESTION ADMINISTRATIF.mdb ;" & _
" Jet OLEDB:Database UserId =" & util & " ; Password =" & passe & " ;"
end sub
 
2&#176; methode


 sub connection ()
dim CON As New ADODB.Connection
CON.Provider = "Microsoft.Jet.OLEDB.4.0;"
   passe = "a"
   util = "Admin"
  CON.Properties("Jet OLEDB:System database") = _
     "C:\Program Files\Microsoft Office\Office\SYSTEM.MDW"
CON.Open "Data Source=" & App.Path & "\GESTION ADMINISTRATIF.mdb;UserId: =" & util & ";Password: =" & passe & ";"
end sub

cs_wape · Accepted Answer

Essaye &#233;ventuellement ceci :

dim CON As New ADODB.Connection
passe = "a"
util = "Admin"
CON.Open "Provider=Microsoft.Jet.OLEDB.4.0 ; " & _
" Data Source = " & App.Path & "\GESTION ADMINISTRATIF.mdb ;" & _
" User ID =" & util & " ; Jet OLEDB:Database Password=" & passe & " ;"

wape

et_talebh · Answer

SALUT WAPE 
Merci mille fois pour ta proposition &#231;a marche.
je suis h&#233;p&#232;re content .
merci boucoups pour votre aide .
a une de ses fois .         

et_talebh

Aidez moi s'ils vous plait

2 réponses

Discussions similaires