前項で示したSQL文は現在の接続、つまり、最も最近に開いた接続上で実行されます。 複数の接続を管理する必要があるアプリケーションでは、これを処理する2つの方法があります。
1つ目の選択肢は、各SQL文で明示的に接続を選択することです。 以下に例を示します。
EXEC SQL AT connection-name SELECT ... END-EXEC.
アプリケーションが複数の接続を不特定な順番で使用する必要がある場合、この選択肢は特に適しています。
アプリケーションの実行に複数スレッドを使用する場合、スレッド間で接続を同時に共有できません。 接続へのアクセスを(ミューテクスを使用して)明示的に制御するか、または各スレッド用の接続を使用しなければなりません。 各スレッドが個別の接続を使用する場合、AT句を使用してそのスレッドが使用する接続を指定する必要があります。
2番目の選択肢は、現在の接続を切り替えるSQL文を実行することです。 以下のSQL文です。
EXEC SQL SET CONNECTION connection-name END-EXEC.
多くのSQL文を同一接続に対して使用する場合、この選択肢は特に便利です。 これはスレッドを考慮していません。
以下に複数のデータベースコネクションを管理しているプログラムの例を示します。
EXEC SQL BEGIN DECLARE SECTION END-EXEC. 01 DBNAME PIC X(7). EXEC SQL END DECLARE SECTION END-EXEC. EXEC SQL CONNECT TO testdb1 AS con1 USER testuser END-EXEC. EXEC SQL CONNECT TO testdb2 AS con2 USER testuser END-EXEC. EXEC SQL CONNECT TO testdb3 AS con3 USER testuser END-EXEC. * This query would be executed in the last opened database "testdb3". EXEC SQL SELECT current_database() INTO :DBNAME END-EXEC. DISPLAY "current=" DBNAME " (should be testdb3)". * Using "AT" to run a query in "testdb2" EXEC SQL AT con2 SELECT current_database() INTO :DBNAME END-EXEC. DISPLAY "current=" DBNAME " (should be testdb2)". * Switch the current connection to "testdb1". EXEC SQL SET CONNECTION con1 END-EXEC. EXEC SQL SELECT current_database() INTO :DBNAME END-EXEC. DISPLAY "current=" DBNAME " (should be testdb1)". EXEC SQL DISCONNECT ALL END-EXEC.
この例は、次のような出力を生成します。
current=testdb3 (should be testdb3) current=testdb2 (should be testdb2) current=testdb1 (should be testdb1)