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

C.4.1 接続および切断

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

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

アプリケーションの手順

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

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

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

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

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

'オブジェクト宣言
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:

'エラー処理ルーチンを記述