Discussion :

[algeriano.29]

bonjour,
ça fait un bon moment (2 ou 3 mois ) que je cherche une façon pour connecter mon application delphi avec ma base de donnée access protégée avec mot de passe mais je n'y arrive à retrouver la solution
sachant que j'ai réaliser ma connexion par le fournisseur Microsoft Jet 4.0 OLE DB Provider
y'a t-il une solution a mon probleme SVP

[foetus]

Pourtant moi je fais cela en C++

Voici le bout de code ... converti en Delphi (désolé pour les erreurs )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
    connection: TADOConnection;
    has_no_error: Boolean;
    str: UnicodeString;
 
    connection := TADOConnection.Create(Self);
 
    try 
        str := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
        str := str + full_path.c_str();
        str := str + ';Jet OLEDB:Database Password="XXX";Mode=ReadWrite;Persist Security Info=False;';
 
        connection.ConnectionString := str;
        connection.Provider := 'Microsoft.Jet.OLEDB.4.0';
        connection.IsolationLevel := ilReadCommitted;
 
        connection.Open();
 
        has_no_error := true;
    except 
        has_no_error := false;
    end;

Et j'ai un doute sur l'échappement du mot de passe. Peut-être que les doubles quotes ne sont pas utiles.

Il y a aussi un exemple sur la page TADOConnection