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

B.5.1 接続および切断

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

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

アプリケーションの手順

1. 接続文字列を指定して、OdbcConnectionオブジェクトを生成します。

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

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

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

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

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

        'オブジェクト宣言
        Dim con As System.Data.Odbc.OdbcConnection
        '1. OdbcConnectionオブジェクトの生成
        con = New System.Data.Odbc.OdbcConnection("DSN=DSN01;UID=USER01;PWD=PASS01")

        Try
            '2. コネクション接続
            con.Open()
            'メッセージ表示
            Label1.Text = "□■接続できました■□"
            '3. コネクション切断
            con.Close()
            '4. オブジェクトの破棄
            con.Dispose()
            'エラー処理
        Catch ex As System.Data.Odbc.OdbcException
            'エラー処理ルーチンを記述
            Label1.Text = "▲▼接続不可▲▼"
        End Try

    End Sub
End Class