【VB.NET】ADO.NET DataAdapterでデータを取得する。

DataAdapterを利用してデータを取得します。

1. DataAdapterのSelectCommandとConnectionを設定します。
2. DataAdapter.Fillメソッドを実行しDataSetにデータを取得します。

例：売上データを取得してコンソールに出力します。

テーブル定義

	インスタンス名		SQLEXPRESS	データベース名		SAMPLE_DB
	論理テーブル名		売上データ	物理テーブル名		T_SALES
	列定義
	No	論理名	物理名	データ型		Nullを許容	主キー
	1	NO	NO	numeric(8,0)		No	Yes
	2	商品CD	ITEM_CD	nvarchar(4)		No
	3	売上数	UNIT_SALES	numeric(8,0)		No
	4	売上額	SALES_AMOUNT	numeric(8,0)		No

売上データ

※パラメータ設定のSqlDbTypeについてはSQLServerデータ型のマッピングを参照してください。

Imports System.Data.SqlClient
 
Module Module1
 
    Sub Main()
 
        Dim con As New SqlConnection
 
        'DB接続
        con.ConnectionString = "Data Source=localhost\SQLEXPRESS;Initial Catalog=SAMPLE_DB;Integrated Security=True"
        con.Open()
 
        'SQLステートメント
        Dim strSql As String = "SELECT * FROM T_SALES WHERE SALES_AMOUNT <= @SALES_AMOUNT"
 
        'SqlDataAdapter設定
        Dim da As New SqlDataAdapter(strSql, con)
 
        'パラメータ設定
        da.SelectCommand.Parameters.Add("@SALES_AMOUNT", SqlDbType.Decimal).Value = 1000
 
        'DataSet
        Dim ds As New DataSet
 
        'データを取得
        da.Fill(ds, "T_SALES")
 
        'データを表示
        For Each rw As DataRow In ds.Tables("T_SALES").Rows
 
            Dim str As String = String.Empty
 
            For Each cl As DataColumn In ds.Tables("T_SALES").Columns
                str = str & rw(cl).ToString & " "
            Next
 
            Console.WriteLine(str)
        Next
 
        'SqlDataAdapterの解放
        da.Dispose()
 
        '接続を閉じる
        con.Close()
 
        'SqlConnectionの解放
        con.Dispose()
 
    End Sub
 
End Module

実行結果