acces à une Base de données Accès sécurisée par un mot de passe via une requête

Question

Bonjour &#224; tous, j'essaye de s&#233;curiser l'aaces &#224; des BdD Acc&#232;s.
Je doit alimenter une BdD avec une requ&#234;te SQL sur une autre BdD.
Comment puis je rajouter le mot de passe dans ma requ&#234;te SQL.

Voici mon code d'origine.
Set Caisse_Base OpenDatabase(NomFichierLocal, False, False, ";pwd" & PasswordDataBase)

Set Requete = Caisse_Base.CreateQueryDef("Req_carbHisto", _
    "SELECT [DateHeure],[numFacture],[Reference],[PrixTotalTTC],[PrixUnitaireHT],  [Quantite]," & _
    "[Pompe],[Cuve] FROM [" & NomFichierOperation & "].caissehistorique   WHERE " & _
     "[type] =" & TYPEPRISE & " AND [Caissier] LIKE '" & VarOpeTsCaissiers & "' ORDER BY DateHeure DESC ")
Requete.Close


Set Courant_Record = Caisse_Base.OpenRecordset("Req_carbHisto", dbOpenDynaset)

Merci d'avance pour votre aide

M000004965 · Answer

Exemple de connection via un d&#233;claratif ODBC sur une base Access sous un office2003 et avec les drivers ODBC access inclus dans l'installation XP Pro

Public Sub Open_Connection_ODBC()


    Set CnAccess = New ADODB.Connection
    CnAccess.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=Administrateur;PWD=passwd;Data Source=NomDeLaConnectODBC"
    CnAccess.Open


    'Reponse = MsgBox("Connection &#233;tablie avec succ&#232;s", vbOKOnly, "Connection")


End Sub

Acces à une Base de données Accès sécurisée par un mot de passe via une requête

1 réponse

Discussions similaires