postgresとＶＢでデータを読み込み項目指定で

質問

postgresとNpgsqlを使用してＶＢでデータを読み込みをしています。

読み込んだレコードを項目ごとに分ける際に、配列番号でなく、項目名称を用いて取得する方法を教えて下さい。

'サンプル

Dim npgCnct As NpgsqlConnection
Dim npgCmnd As NpgsqlCommand
Dim npgDR As NpgsqlDataReader
Dim strSql As String

npgCnct = New Npgsql.NpgsqlConnection
npgCnct.ConnectionString = gstrCnct
npgCnct.Open()

strSql = "select" _
& vbCrLf & "itm1" _
& vbCrLf & ",itm2" _
& vbCrLf & "from tbl1" _
& vbCrLf & "where key1 = 'value1'" _
& vbCrLf & "and key2 = 'value2'" _
& ";"

npgCmnd = New NpgsqlCommand
npgCmnd.Connection = npgCnct
npgCmnd.CommandText = strSql
npgDR = npgCmnd.ExecuteReader()

Dim strItm1 As String = Space(0)
Dim strTtm2 As String = Space(0)

While (npgDR.Read())
Dim strSqlfld(npgDR.FieldCount - 1) As String

' コメント１
For index As Integer = 0 To npgDR.FieldCount - 1 Step 1
strSqlfld(index) = IIf(IsDBNull(npgDR(index)) = True, Space(0), npgDR(index))

Select index
Case 0
stritm1 = strSqlfld(index).ToString
Case 1
stritm2 = strSqlfld(index).ToString
Case Else
End Select
Next index

' コメント２
End While

上記のサンプルの場合で、stritm1、stritm2にデータを移送する際に、
コメント１のくだりを廃止し、
コメント２の下で、
stritm1 = 何かしらの手段('itm1')
stritm2 = 何かしらの手段('itm2')
という形で取得したいです。

NpgsqlDataReader の操作がイマイチ分かっていません。

DataTableか何かに変換できれば良いのですが。。

回答No.1

MARU4812 · ベストアンサー

> 配列番号でなく、項目名称を用いて
String でオーバーロードされていますので、そのまま使えます。
http://www.postgresql.jp/document/NPGSQL/api/Npgsql.NpgsqlDataReaderItem.html

> DataTableか何かに変換できれば良いのですが。。
DataAdapter を使って下さい。
Microsoft の設計と同じなので、SqlClient とかMSDNの説明を参考にした方がいいと思います。
(postgresqlのドキュメントは上記サイトのように最低限の説明しかないので、分かっている
人のためのヘルプになっているようです)
DataReader と DataAdapter では性質が違います。データ量が多いときに使い分け
しますが、使い方が分かっていないなら処理のトータル時間は変わりませんので
DataAdapter を使ったらいいと思います。

お礼

有難う御座います
DataAdapter を試してみます

補足

DataReader か DataAdapter かという問題ではなく、DataReaderでも項目名で指定して値が取れる事が分かりました。
item("")とすれば良いだけでした。

stritm1 = npgDR.item("item1")
stritm2 = npgDR.item("item2")