Итак, дано:
1. Приложение не зависит от испольуемого сервера БД
2. В случае с Oracle все объекты, используемые приложением, лежат в одной схеме.
sboykoкуда ставить 2 инстанс(2 схему)? проще на тот же сервер-зачем плодить лишнюю технику?Действительно, новую технику можно не плодить (мы ведь сейчас не обсуждаем продакшн?), достаточно развернуть еще один экземпляр Oracle на том же сервере. Тогда вы запросто сможете sboyko... снаружи(из файла ини) руководить подключением...без дополнительных телодвижений.
sboykoесс-но хочется самому управлять ситуацией - а не подстраиваться под нее!
Давайте попробуем сделать это даже в текущей конфигурации. Я правильно понимаю, что для каждого сервера БД в приложении используется собственный объект транзакций? Тогда код, приведенный ниже, будет еще проще. Или сервера применяются по модному в последнее время принципу только для хранения данных в таблицах? В любом случае, вы можете легко обработать ситуацию примерно так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
// Унаследованный объект транзакций, имеющий свойство(например is_CurrentOraScheme), в котором хранится интересующая нас схема
// Кусок pfc
// Function: of_Init
this.DBMS= ProfileString (as_inifile, as_inisection, 'DBMS', '')
this.Database = ProfileString (as_inifile, as_inisection, 'Database', '')
this.LogID = ProfileString (as_inifile, as_inisection, 'LogID', '')
this.LogPass = ProfileString (as_inifile, as_inisection, 'LogPassword', '')
this.ServerName = ProfileString (as_inifile, as_inisection, 'ServerName', '')
this.UserID = ProfileString (as_inifile, as_inisection, 'UserID', '')
this.DBPass =ProfileString (as_inifile, as_inisection, 'DatabasePassword', '')
this.Lock =ProfileString (as_inifile, as_inisection, 'Lock', '')
this.DBParm =ProfileString (as_inifile, as_inisection, 'DBParm', '')
this.AutoCommit = lnv_conversion.of_Boolean (ProfileString (as_inifile, as_inisection, 'AutoCommit', 'false'))
if IsNull (this.AutoCommit) then this.AutoCommit = false
CHOOSE CASE upper(this.DBMS)
CASE 'ODB'
CASE ...
CASE 'O73', 'O84', 'O90'...
//Здесь прочитать какая схема нас интересует
this.is_CurrentOraScheme=ProfileString (as_inifile, as_inisection, 'CurrentOraScheme', '')
END CHOOSE
...
//Function: of_Connect
//
connect using this;
ll_rc = this.SQLCode
if ll_rc = 0 then
if this.is_CurrentOraScheme <> '' then
//не побоюсь этого слова, вызову здесь embedded SQL
string ls_SQL
ls_SQL = "ALTER SESSION SET CURRENT_SCHEMA=" + this.is_CurrentOraScheme
execute immediate :ls_SQL using this;
ll_rc = this.SQLCode
end if
end if
return ll_rc
Теперь ничего не мешает вам вести sboykoэти две схемы абсолютно идентичны но НЕ ДОЛЖНЫ смешиваться в отчетности и ДОЛЖНЫ вестись параллельно - требование свыше!
Но, ИМХО, в подобной ситуации
правильней было бы развернуть второй (третий, десятый) экземпляр БД на том же самом физическом сервере.
