|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Подключение к Oracle
приветствую всех
у меня глупый вопрос: есть база, есть паролИ, есть 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; а вот как подключится проверяя каждый пароль из трех? и при удачном подключени перейти к отправке запроса я торможу... |
#2
|
|||
|
|||
вариант с кучей 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; мне нужно более надежное решение |
#3
|
||||
|
||||
вместо OraSession1.Connected:=true используй OraSession1.Connect;
Что за модная программа которая одновременно коннектится к 3 серверам? Может проще oracle dblink юзать? Последний раз редактировалось Admin, Сегодня в 10:32. |
#4
|
|||
|
|||
я не знаю dblink, но меня компоненты от devart.com полностью удовлетворяют (прямое подключение к Oracle, MySQL, я с ними только работаю)
а к трем серверам одновременно мне не надо, я последовательно подключаюсь сначала к одному, потом ко второму итд но пароли разные (всего три пароля, серверов 23) вот мне и нужно перебирать пароли, и когда Connected наконец-то True. отправить запрос |
#5
|
|||
|
|||
сделал, позже скину
|
#6
|
|||
|
|||
вот так заработало:
Код:
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; |
#7
|
|||
|
|||
я не помню можно или нет...
поделюсь: _https://rapidshare.com/files/3241880791/MyDAC_ODAC.zip Delphi7 MyDAC v5.90.0.57 ODAC v6.90.0.57 Последний раз редактировалось KristoferRuotsi, 21.09.2011 в 13:23. |