Dim dr As System.Data.DataRow
Dim da As New NEADataSetTableAdapters.GamesTableAdapter
Dim dt As System.Data.DataTable
+ Dim search As String
+ search = LCase(txtSearch.Text)
dt = ds.Tables("Games")
da.Fill(dt)
For Each dr In dt.Rows
- If String.Compare(dr("Name"), txtSearch.Text) = 0 Then
-
-
- Dim Q As String = "[Name] = '" & txtSearch.Text & "'"
+ If String.Compare(dr("Name"), search) = 0 Then
+ Dim Q As String = "[Name] = '" & search & "'"
Dim result() As NEADataSet.GamesRow = dt.Select(Q)
-
id = result(0).GameID
-
-
GoTo LineBreak
+ Else
+ MsgBox("The game you entered is not in the database", vbExclamation)
End If
Next
- MsgBox("The game you entered is not in the database", vbExclamation)
+
LineBreak:
ds.Dispose()
-
For Each dr In dt.Rows
If String.Compare(dr("GameID"), id) = 0 Then
txtname.AppendText(dr.Item("Name"))
-
-
-
-
+ btnBuy.Content = "Buy for £" & dr.Item("Price")
+ lblPublisher.Content = "Publisher: " & dr.Item("Publisher")
+ lblRating.Content = "This game is rated " & dr.Item("Rating") & " out of 5"
+ lblReviews.Content = "Gamer review: "
Dim bytes As [Byte]() = dr.Item("Icon")
Dim ms As New MemoryStream(bytes)
-
Dim bi As New BitmapImage()
bi.BeginInit()
bi.StreamSource = ms
bi.EndInit()
-
- imglogo.Source = bi
+ imgLogo.Source = bi
End If
Next