Symfoware Server V10.0.0 アプリケーション開発ガイド(ODBCドライバ編)

4.2.4 アプリケーションの作成および実行

Symfoware/RDBのデータベースに接続または切断するアプリケーションを例にして、Visual Basic.Netによるアプリケーションの作成方法を説明します。

以下に作成の手順を示します。なお、本手順はVisual Studio 2005を使用しています。

1. 2つのコマンドボタンをフォームに貼り付けます。

2. 貼り付けたコマンドボタンの各[Text]プロパティに“接続”、“切断”と設定します。

   

3. メニューの[表示]-[コード]を選択して、[コード]画面のコンボボックスをクリックして[(全般)]を選択します。

   

4. カーソルが移動した場所に、以下のサンプルコードを入力します。

     '外部参照可能な変数の宣言
       Private rdoEV As RDO.rdoEnvironment
       Private rdoCN As RDO.rdoConnection
       Private rdoEN As New RDO.rdoEngine
       '画面表示時に切断ボタンをクリックできなくする指定
       Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
           Button2.Enabled = False
       End Sub

5. フォーム上の[接続]ボタンをダブルクリックして、カーソルが移動した場所に以下のサンプルコードを入力します。

   On Error GoTo ErrorProc
           rdoEV = rdoEN.rdoCreateEnvironment("", "", "")
           rdoEV.CursorDriver = RDO.CursorDriverConstants.rdUseOdbc
           rdoCN = rdoEV.OpenConnection("", RDO.PromptConstants.rdDriverPrompt, "ODBC;")
           MsgBox("接続できました", MsgBoxStyle.OkOnly, "接続完了")
           Button2.Enabled = True
           Button1.Enabled = False
           Exit Sub
   ErrorProc:
           'Error時の処理を記述
           Dim msg As String
           Dim i As Integer
           For i = 0 To rdoEN.rdoErrors.Count - 1
               If rdoEN.rdoErrors.Count > 0 Then
                   msg = rdoEN.rdoErrors(i).Description
               Else
                   msg = Err.Description
               End If
               MsgBox(msg, MsgBoxStyle.OkOnly, "Error")
           Next
           rdoCN = Nothing
           rdoEV = Nothing
       End Sub

6. フォーム上の[切断]ボタンをダブルクリックして、カーソルが移動した場所に以下のサンプルコードを入力します。

   rdoCN.Close()
   rdoEV.Close()
   rdoEV = Nothing
   rdoCN = Nothing
   Hide()
   Close()

   以上でサンプルコードの作成は終了です。

7. メニューの[デバッグ]-[デバッグ開始]を選択するとアプリケーションを実行できます。

   以下は上記で入力した全ソースです。

     '外部参照可能な変数の宣言
       Private rdoEV As RDO.rdoEnvironment
       Private rdoCN As RDO.rdoConnection
       Private rdoEN As New RDO.rdoEngine
       '画面表示時に切断ボタンをクリックできなくする指定
       Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
           Button2.Enabled = False
       End Sub
   
       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           On Error GoTo ErrorProc
           rdoEV = rdoEN.rdoCreateEnvironment("", "", "")
           rdoEV.CursorDriver = RDO.CursorDriverConstants.rdUseOdbc
           rdoCN = rdoEV.OpenConnection("", RDO.PromptConstants.rdDriverPrompt, "ODBC;")
           MsgBox("接続できました", MsgBoxStyle.OkOnly, "接続完了")
           Button2.Enabled = True
           Button1.Enabled = False
           Exit Sub
   ErrorProc:
           'Error時の処理を記述
           Dim msg As String
           Dim i As Integer
           For i = 0 To rdoEN.rdoErrors.Count - 1
               If rdoEN.rdoErrors.Count > 0 Then
                   msg = rdoEN.rdoErrors(i).Description
               Else
                   msg = Err.Description
               End If
               MsgBox(msg, MsgBoxStyle.OkOnly, "Error")
           Next
           rdoCN = Nothing
           rdoEV = Nothing
       End Sub
   
       Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
           rdoCN.Close()
           rdoEV.Close()
           rdoEV = Nothing
           rdoCN = Nothing
   Hide()
           Close()
       End Sub