Ouverture Base Access Sécurisé par le codeRésolu

Question

Bonjour,

J'aurai voulu ouvrir une base Access (non-s&#233;curis&#233;) sur mon poste local avec le syst&#232;me de s&#233;curit&#233; d'une base Access en r&#233;seaux en lui passant le nom de l'utilisateur et le mot de passe pour que la connexion se fasse automatiquement.

Pour le moment je lance le raccourci suivant :
C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE "C:\MaBaseLocale.mdb" /WRKGRP "S:\MaBaseReseaux.mdw"

J'ai le ID et le mot de passe mais je dois le saisir &#224; la main. Est-il possible de les passer en param&#232;tre afin de simplifier l'utiliastion ?

Merci d'avance

CammCamm

PCPT · Accepted Answer

tu peux peut-&#234;tre stocker les param&#232;tres de chaque client dans un fichier texte?!
premi&#232;re &#233;x&#233;cution, fichier vide ou inexistant, form de param&#233;trage.
ensuite, fichier non vide, ton appli lit les params et se connecte en cons&#233;quence...
PCPT

Zlub · Answer

Salut, Tu peux faire avec un fichier texte ou un fichier INI

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long Function LireINI(Entete As String, Variable As String) As String Dim Retour As String Dim fichier As String fichier = App.path & "" & App.EXEName & ".ini" Retour = String(255, Chr(0)) LireINI = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable, "", Retour, Len(Retour), fichier)) End Function Function EcrireINI(Entete As String, Variable As String, valeur As String) As String Dim fichier As String fichier = App.path & "" & App.EXEName & ".ini" EcrireINI = WritePrivateProfileString(Entete, Variable, valeur, fichier) End Function

Sinon tu peux Sauver/Lire dans la base des registres #26892 qui a l'avantage d'être moins facil à trouver... puisque je suppose que si y'a un mot de passe sur la base, c'est pour sécuriser ... ++ Zlub

cs_CammCamm · Answer

Rebonjour, 

Merci pour votre aide et en combinant vos r&#233;ponses j'ai cr&#233;er un fichier user.ini qui sera lu par l'application Access puis je lance directement ACCESS via un raccourci contenant le USER et le PWD de la base :

'------------------------------------------------------------------------------------------

' Write Ini File For user application parametres
'------------------------------------------------------------------------------------------
Call P_UserIniFile(XgIniUserFile)

'-----------------------------------------------------------------------------------------
' Execute Access application
'----------------------------------------------------------------------------------------- 
Me.UI_InfoTxt.Text = "Executing Access Application"
Application.DoEvents()
XgStr = XgAccessPath & " " & XgJetLocPath & "/USER " & XId_User & " /PWD " & XPwd_User & " /WRKGRP " & XgJetNetSysPath
XgAppMainId = Shell(XgStr, AppWinStyle.NormalFocus)
Application.Exit()

Avec :
XgAccessPath : le chemin vers Access : C:\PROGRA~1\MICROS~2\OFFICE11
\MSACCESS.EXE pour Windows XP
XgJetLocPath : le chemin vers ma base Locale non-s&#233;curis&#233;e (.mdb)
XgJetNetSysPath : le chemin vers ma base Reseaux s&#233;curis&#233; (.mdw)

Par contre, ca doit fonctionner sur XP et NT mais malheureusement ce Shell ne marche pas sous XP &#224; moins que ca ne soit du &#224; la version d'Access qui n'arrive pas &#224; le lire.

Si vous avez une id&#233;e du probl&#232;me ??

Tchao

CammCamm

PCPT · Answer

tes chemins XgJet contiennent le chemin complet? (&#224; partir du drive)

essaye, juste pour test, de ne lancer que :

XgAppMainId = Shell(XgAccessPath, AppWinStyle.NormalFocus)
 'ou VbNormalFocus

si &#231;&#224; fonctionne, le probl&#232;me vient alors sans doute du raccourci

PCPT
(pense &#224; valider si r&#233;solu)

cs_CammCamm · Answer

J'ai cr&#233;er une fonction me construisant correctement le raccouci fonctionnant avec toutes les versions d'Access...

Public
 Function F_AccessShellFmt() As 
String
  Dim XStr As 
String
  XStr = Chr(34) & XgAccessPath & Chr(34) & " "
  XStr &= Chr(34) & XgJetLocPath & Chr(34)
  XStr &= " /user " & XId_User & " /pwd " & XPwd_User & " /WRKGRP "
  XStr &= Chr(34) & XgJetNetSysPath & Chr(34)
  Return XStr
End Function

merci de votre aide.....

CammCamm

Ouverture Base Access Sécurisé par le code

5 réponses

Discussions similaires