ODBC Driverを使用した4D SQLエンジンへの接続

ホーム

4D v15

SQLリファレンス

チュートリアル

ODBC Driverを使用した4D SQLエンジンへの接続

ODBC Driver for 4Dを経由して、外部アプリケーションから4D SQLエンジンに接続できます。

Note: この設定は例題として使用されます。4Dアプリケーションに直接SQLで接続することができます。詳細についてはSQL LOGINコマンドの説明を参照してください。

チュートリアル例題データベースのコピーを作成します。
データベースを含むフォルダの名前を"Client" と"Server"にそれぞれ変更します。
"Server"フォルダの例題データベースを起動し、データベース設定のSQL/設定ページで"起動時にSQLサーバを起動する"チェックボックスにチェックを入れ、アプリケーションの開始時にSQLサーバーが起動されるようにします:
"Server"フォルダのデータベースを再起動し、SQLサーバを有効にします。
4D ODBC Driver for 4Dをインストールし、ODBCデータソースアドミニストレータに名前が表示されているか確認します:
データソース "Test_ODBC_Driver_v11" を作成します:

そして "Connection test" ボタンをクリックして、接続をテストします:
"Client"フォルダの例題データベースを起動し、メインウィンドウを開いて、 "Connect to 4D" ボタンをクリックします。このボタンに書かれているコードは以下のとおりです:

C_TEXT($Crt_DSN;$My_4D_DSN) ARRAY TEXT(aDSN;0) ARRAY TEXT(aDS_Driver;0) ARRAY TEXT(aTitles;0) ARRAY TEXT(aDirectors;0) ARRAY TEXT(aMedias;0) REDUCE SELECTION([MOVIES];0) ` デフォルトでカレントDSNはローカルです。 $Crt_DSN:=Get current data source ALERT("The current DSN is "+$Crt_DSN) ` ローカルデータベースに対し操作を行う Begin SQL SELECT Title, Director, Media FROM MOVIES ORDER BY 1 INTO :aTitles, :aDirectors, :aMedias; End SQL ` ODBCマネージャーに定義されたUserタイプのデータソースを取得する GET DATA SOURCE LIST(User data source;aDSN;aDS_Driver) $My_4D_DSN:="Test_ODBC_Driver_v11" If(Find in array(aDSN;$My_4D_DSN)>0) ` ODBC Driver v114Dと他の4D間の接続を確立する SQL LOGIN($My_4D_DSN;"Administrator";"";*) If(Ok=1) ` カレントDSNは4Dのデータベース $Crt_DSN:=Get current data source ALERT("The current DSN is "+$Crt_DSN) ARRAY TEXT(aTitles;0) ARRAY TEXT(aDirectors;0) ARRAY TEXT(aMedias;0) ` 外部 (4D) データベースに対し操作を行う Begin SQL SELECT Title, Director, Media FROM MOVIES ORDER BY 1 INTO :aTitles, :aDirectors, :aMedias; End SQL ` USE EXTERNAL DATABASEコマンドで開かれた外部接続を閉じる SQL LOGOUT ` カレントDSNはローカルデータベースになる $Crt_DSN:=Get current data source ALERT("The current DSN is "+$Crt_DSN) Else ALERT("Unable to connect to the external data source") End if Else ALERT("ODBC Driver data source not found") End if

ご覧頂いたとおり、メソッドの最初の部分でローカルデータベースへのクエリを作成しています。次に、ODBC Driverを経由して他の4Dデータベースに接続し、同じクエリを行っています。結果はもちろん同じはずです。