MsgBox では、データベースの結果の最後の行のみを表示します。rows.add 関数を使用して、SQL の結果をデータグリッドに追加したいと考えています。
Try
GetDataConn(".", "restaurant", True)
Dim sqlcmd As New SqlCommand("SELECT i.item_id as 'item', i.item_name as 'name', i.price as 'price', t.item_qty as 'qty' FROM item_tbl i, temp_tbl t WHERE t.item_id = i.item_id AND t.table_id ='" & id.Trim & "' ", sqlConn)
Dim myreader As SqlDataReader
myreader = sqlcmd.ExecuteReader()
myreader.Read()
While myreader.hasRow()
'frmMain.posdatagrid.Rows.Add(myreader.Item("item"), myreader.Item("name"), myreader.Item("price"), myreader.Item("qty"), myreader.Item("price") * myreader.Item("qty"))
MsgBox(myreader.Item("item"))
myreader.NextResult()
End While
Catch ex As Exception
sqlcmd.Dispose()
End Try