Thema: Delphi SQL Connectionstring

Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#2

Re: SQL Connectionstring

  Alt 6. Feb 2008, 16:01
Zitat von onkelmehli:
Mein Ziel ist, zu vermeiden, dass jemand Benutzer und Passwort etc. eingeben kann, da dieses vorgegeben wird.
Kein Problem, das kann man zur Laufzeit in der ADOConnection im Event OnWillConnect besteuern:
Delphi-Quellcode:
procedure TDMcvs.ADOConnectionWillConnect(Connection: TADOConnection;
  var ConnectionString, UserID, Password: WideString;
  var ConnectOptions: TConnectOption; var EventStatus: TEventStatus);
begin
   UserID := Connection.Properties.Item['User ID'].Value;
   Password := Connection.Properties.Item['Password'].Value;

   if UserID = 'Adminthen
   begin
      Password := 'JunkiONDRUGS';
   end
   else if UserID = 'Userthen
   begin
      Password := 'grünbrotschimmel';
   end else if UserID ='then
   begin
      UserID := 'guest';
      Password := 'ismirschlecht';
   end;
end;
Andreas
  Mit Zitat antworten Zitat