Symfoware Server V12.7.0 アプリケーション開発ガイド(.NET Data Provider編)

A.3.3 DataSetでの参照

DataSetオブジェクトを使用して、任意の方向で更新可能なデータ参照をするサンプルコードについて説明します。

カーソルとは異なり、データをVisual Studioの内部にコレクション(DataSet)として取り込んで参照します。

更新方法は、“A.3.5 CommandBuilderを利用した更新”を参照してください。

本サンプルコードでは、取得データをグリッドビューコントロールで表示します。事前にフォームへグリッドビューコントロール(GridView1)を追加してください。

アプリケーションの手順

1. SymfowareConnectionオブジェクトでコネクションを接続します。詳細は、“A.3.1 接続および切断”を参照してください。

2. SymfowareDataAdapterオブジェクトを生成します。(SymfowareDataAdapterのSelectCommandのCommandTextプロパティへ問合せ式を設定します)

3. DataSetオブジェクトを生成します。

4. SymfowareDataAdapter.FillメソッドでデータをDataSetへ取得します。

5. DataSetのデータをグリッドビューコントロールにて参照します。

6. コネクションを切断します。

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

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

Try
    'SymfowareConnectionオブジェクトの生成
    Dim connection1 As New SymfowareConnection("DATA SOURCE=127.0.0.1;PORT=26551;" _
& "INITIAL CATALOG=TEST;USER ID=USER01;PASSWORD=PASS01")
    '1.コネクション接続
    connection1.Open()
    '2.SymfowareDataAdapterオブジェクトの生成
    Dim adapter1 As New SymfowareDataAdapter("SELECT * FROM SAMPLE1.TESTTBL", connection1)
    '3.DataSetオブジェクトの生成
    Dim set1 As New DataSet
    '4.DataSetオブジェクトへデータを取得
    adapter1.Fill(set1, "TESTTBL")
    '5.DataSetのデータをGridViewコントロールで参照する
    Me.GridView1.DataSource = set1
    Me.GridView1.DataMember = "TESTTBL"
    Me.GridView1.DataBind()
    '6.コネクション切断
    connection1.Close()
    '7.オブジェクトの破棄
    connection1.Dispose()
    adapter1.Dispose()
    set1.Dispose()
    'エラー処理
Catch exception1 As Exception
    'エラー処理ルーチンを記述
End Try