フィルタリング

　DataTableオブジェクトに格納されているデータに対してフィルターをかけることができます。この機能により、特定の条件を満たす行のみを取り出すということができます。その時に利用するのがSelectメソッドです。引数に条件を指定します。結果としてDataRowオブジェクトの配列が返ってきます。

　例えば、Usersテーブルから「佐藤」という情報を持ったレコードを抽出するフィルターは次のように指定します。

　SQL文でのWHERE句で指定する条件をSelectメソッドの引数としてセットすることで、フィルターをかけることができます。

　「DataRowTest」プロジェクトを修正して作成しましょう。DataRowTestフォルダーをコピーして、作成するプロジェクト名にフォルダー名を変更してください。

プロジェクトの種類	コンソールアプリケーション
プロジェクト名	FilterTest

Sub Main()
　'接続文字列
　Dim constr As String = "Data Source=(LocalDB)\v11.0;AttachDbFilename=C:\Work\Books.mdf;Integrated Security=True;Connect Timeout=30"
　'SqlConnectionオブジェクトを生成
　Dim con As SqlConnection = New SqlConnection(constr)
　'Usersテーブルのデータを取得するSQL文を作成
　Dim sql As String = "SELECT * FROM Users;"
　'DataAdapterオブジェクトを生成
　Dim da As New SqlDataAdapter(sql, con)
　'DataTableオブジェクトを生成
　Dim dt As New DataTable()
　'DataTableとデータベースに同期させる
　da.Fill(dt)
　'フィルタリングするデータを入力する
　Console.Write("表示したい名前：")
　Dim name As String = Console.ReadLine()
　'フィルタリングする
　Dim drlist As DataRow() = dt.Select("name = '" + name + "'")
　'検索結果を表示する
　Console.WriteLine("検索結果")
　If drlist.Length = 0 Then
　　Console.WriteLine("見つかりませんでした。")
　Else
　　Console.WriteLine("Id : UserName : Password : Name")
　　For Each dr As DataRow In drlist
　　　Console.WriteLine("{0} : {1} : {2} : {3}", dr("Id"), dr("UserName"), dr("Password"), dr("Name"))
　　Next
　End If
　Console.ReadLine()
End Sub

表示したい名前：佐藤
検索結果
Id : UserName : Password : Name
1 : sato : spass : 佐藤

--------------------------------------------------------------------------------------------------------------------
表示したい名前：渡邊
検索結果
見つかりませんでした。

　29行目では、入力した氏名をもとにフィルターをSelectメソッドの引数として指定しています。フィルタリングの結果は1件でもDataRow配列として帰ってくるので、配列変数drlistを用意しています。

　フィルター条件によっては複数件結果が取得できるので、37~39行目でループ処理を指定しています。38行目でレコードを表示しています。