VB.NET Linqを試す
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dc = New HogedbDataContext() Dim rec1 = From n In dc.ITEM Where n.ITEM_CD = 1001 Select n Dim sb1 As New StringBuilder For Each c In rec1 sb1.AppendLine(c.ITEM_NAME) Next MessageBox.Show(sb1.ToString) End Sub
『流れるようはインタフェース』系です。
DBモデルがしっかりしていれば、かなり重宝すると思います。