ワークテーブルの作成について

質問

現在、VB.NETで読み込んだファイルのコードで
一件一件、データベースを検索してチェックを行っているのですが
とても処理時間がかかるので最初にデータベースの結果を
ワークテーブルか何かに溜めておいてそのワークテーブルに
検索をかけにいくことは可能でしょうか？
何か参考になるサイトなどありましたら教えてください。

．NETは2002です。

回答No.1

kero_mio · ベストアンサー

件数が多くなくて、メモリ容量も問題ないのであれば、
DataSetに溜めておくというのは、どうでしょうか？

DBにワークテーブルを作ってチェックの方が良い場合は、
.NET側ではなく、DB側にストアドを作って、
全レコードのチェック結果をまとめて返すというのが
良いと思います。
（そのやり方の方が良いのであれば、別で提示します）

簡単ではありますが、.NETのDataSetを使ったチェック処理を
VS.NET2002で、作ってみました。ご参考になれば幸いです

CSVデータの内容
1,A,111111
2,B,222222
3,C,333333
4,D,444444
5,E,555555

' ファイルを読む
' ファイルを読む
Dim fs As New System.IO.StreamReader("c:\aaa.csv", System.Text.Encoding.ASCII)
Dim buffer As String = fs.ReadToEnd()
fs.Close()

' レコード単位に分割
Dim crlf As Char() = {Chr(13)}
Dim records As String() = buffer.Split(crlf)
Dim record As String

' データテーブルを作る
Dim da As New System.Data.DataTable("aaa")
da.Columns.Add("column1", GetType(String))
da.Columns.Add("column2", GetType(String))
da.Columns.Add("column3", GetType(String))

' ファイルレコード → DataRow
For Each record In records

　　If record.Trim().Equals("") Then
　　　　Exit For
　　End If

　　Dim columns As String() = record.Split(","c)
　　Dim i As Integer = 0
　　Dim dr As DataRow = da.NewRow()
　　For i = 0 To 2
　　　　dr.Item(i) = columns.GetValue(i)
　　Next
　　da.Rows.Add(dr)

Next

' チェック処理
Dim searchKey As String = "111111"
Dim condition As String = String.Format("column3={0}", searchKey)
Dim hitRows As DataRow() = da.Select(condition)

If hitRows.Length > 0 Then
　　' レコードがある場合
　　MessageBox.Show("レコードあり")

　　' TODO:この後は、レコードがある処理を行う
Else
　　' レコードがない場合
　　MessageBox.Show("レコードなし")

　　' TODO:この後は、レコードがない処理を行う
End If