[KristoferRuotsi]

приветствую всех

у меня глупый вопрос:

есть база, есть паролИ, есть username
но как сделать подключение если у меня три базы и три разных пароля?
(компоненты Devart ODAC v6.90.0.57)

как подключаюсь:

Код:

Form1.OraSession1.Connected:=false;
Form1.OraSession1.UserName:='name';
Form1.OraSession1.Password:='pas1';
Form1.OraSession1.Server:='server';
Form1.OraSession1.Connected:=true;

а вот как подключится проверяя каждый пароль из трех?
и при удачном подключени перейти к отправке запроса

я торможу...

[KristoferRuotsi]

вариант с кучей ifов не подходит:

Код:

     if Form1.OraSession1.Connected=false then
      begin
       Form1.OraSession1.Connected:=false;
       Form1.OraSession1.UserName:='name';
       Form1.OraSession1.Password:='pas1';
       Form1.OraSession1.Server:='server';
       Form1.OraSession1.Connected:=true;
      end;
     if Form1.OraSession1.Connected=false then
      begin
       Form1.OraSession1.Connected:=false;
       Form1.OraSession1.UserName:='name';
       Form1.OraSession1.Password:='pas2';
       Form1.OraSession1.Server:='server';
       Form1.OraSession1.Connected:=true;
      end;
     if Form1.OraSession1.Connected=false then
      begin
       Form1.OraSession1.Connected:=false;
       Form1.OraSession1.UserName:='name';
       Form1.OraSession1.Password:='pas3';
       Form1.OraSession1.Server:='server';
       Form1.OraSession1.Connected:=true;
      end;

if проходит быстрее чем подключение и connected всегда =false
мне нужно более надежное решение

[friz]

вместо OraSession1.Connected:=true используй OraSession1.Connect;

Что за модная программа которая одновременно коннектится к 3 серверам? Может проще oracle dblink юзать?

[KristoferRuotsi]

я не знаю dblink, но меня компоненты от devart.com полностью удовлетворяют (прямое подключение к Oracle, MySQL, я с ними только работаю)
а к трем серверам одновременно мне не надо, я последовательно подключаюсь сначала к одному, потом ко второму итд
но пароли разные (всего три пароля, серверов 23)
вот мне и нужно перебирать пароли, и когда Connected наконец-то True. отправить запрос

[KristoferRuotsi]

сделал, позже скину

[KristoferRuotsi]

вот так заработало:

Код:

     Form1.OraSession1.Connected:=False;

     try
     if Form1.OraSession1.Connected=False then
      begin
       Form1.OraSession1.UserName:='name';
       Form1.OraSession1.Password:='pas1';
       Form1.OraSession1.Server:='server';
      end;
     Form1.OraSession1.Connect;
     except
     end;

     try
     if Form1.OraSession1.Connected=False then
      begin
       Form1.OraSession1.UserName:='name';
       Form1.OraSession1.Password:='pas2';
       Form1.OraSession1.Server:='server';
      end;
     Form1.OraSession1.Connect;
     except
     end;

     try
     if Form1.OraSession1.Connected=False then
      begin
       Form1.OraSession1.UserName:='name';
       Form1.OraSession1.Password:='pas3';
       Form1.OraSession1.Server:='server';
      end;
     Form1.OraSession1.Connect;
     except
     end;

[KristoferRuotsi]

я не помню можно или нет...
поделюсь: _https://rapidshare.com/files/3241880791/MyDAC_ODAC.zip

Delphi7
MyDAC v5.90.0.57
ODAC v6.90.0.57