Discussion :

[colorid]

Bonjour à tous

J'ai recopié ci-dessous en italique le code source proposé sur FAQ DELPHI.

Il ne fonctionne pas pour une base de données MS Access.
Pour ce faire il doit faloir modifier la partie
List.Add('SERVER NAME = C:\DataBase\employee.gdb');
List.Add('USER NAME = SYSDBA');
List.Add('PASSWORD = masterkey');

et la partie
Session.AddAlias('EmployeeAlias','INTRBASE',List);

J'ai essayé plusieurs config et ne parviens pas à ce que la BD access soit exploitable apr l'alias

Quelqu'un peut-il me dire comment adapter le code source pour Access ?


procedure TForm1.CreateAliasClick(Sender: TObject);
var Session : TSession;
List : TStringList;
begin
Session := TSession.Create(nil);
List := TStringList.Create;

List.Add('SERVER NAME = C:\DataBase\employee.gdb'); // Par exemple
List.Add('USER NAME = SYSDBA');
List.Add('PASSWORD = masterkey');

Session.AutoSessionName := true; //Pour éviter des conflits de nom de session
Session.Open;
try
Session.AddAlias('EmployeeAlias','INTRBASE',List);
Session.SaveConfigFile;
Session.Close;
finally
List.Free;
Session.Free;
end;
end;

[Eric.H]

Passe par un TDatabase ou tu mettre dans le propriété Params les cnfiguration nécessaire

Code :

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

1
2
3
4
5
6
DATABASE NAME=DRIVE:/PATH/DATABASE.MDB
USER NAME=
OPEN MODE=READ/WRITE
LANGDRIVER=
SYSTEM DATABASE=
PASSWORD=

[colorid]

Merci, après plusieurs tatonnements j'y suis enfin arrivé ...