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

B.4.1 接続および切断

接続および切断をするサンプルコードについて説明します。

本サンプルコードは、接続後メッセージボックスで接続できたことを表示します。

アプリケーションの手順

1. Connectionオブジェクトを生成します。
   Connection.ConnectionStringプロパティへ接続文字列を設定します。

2. Connection.Openメソッドでコネクションを接続します。

3. Connection.Closeメソッドでコネクションを切断します。

4. オブジェクトを破棄します。

エラー処理については、“B.4.10 エラー処理”を参照してください。

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'オブジェクト宣言
        Dim Con As ADODB.Connection

        '1. ADODB.Connectionオブジェクトの生成と設定
        Con = New ADODB.Connection()
        Con.ConnectionString = "DSN=DSN01;UID=USER01;PWD=PASS01;"

        On Error GoTo ErrorProc

        '2. コネクション接続

        Con.Open()

        'メッセージボックスの表示
        MessageBox.Show("接続できました", "Connect", 
                MessageBoxButtons.OK, MessageBoxIcon.None)

        '3. コネクション切断
        Con.Close()

        '4. オブジェクトの破棄
        Con = Nothing

        Exit Sub

        'エラー処理
ErrorProc:

        'エラー処理ルーチンを記述
        MessageBox.Show("▲▼  COMMUNICATION OFF LINE  ▲▼", "No Connect", 
                MessageBoxButtons.OK, MessageBoxIcon.None)


    End Sub
End Class