Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
- btnSearch.Enabled = False
- ListBox1.Items.Clear()
- 'Error Prevention
- If cbGames.Text = "" Then
- MessageBox.Show("No game selected!")
- End If
- If tbUserIssue.Text = "" Then
- MessageBox.Show("No issue stated!")
- End If
- 'Setting of labels
- lblIssueGame.Text = cbGames.Text
- lblIssueGame.Visible = True
- 'Variable Definitions
- Dim tbissue As String = tbUserIssue.Text.ToLower
- Dim counter1 As Integer = 0
- Dim counter2 As Integer = 0
- Dim issuecompare As String
- Dim issueshow As String
- Dim fixshow As String
- Dim timessearched As Integer
- 'Information from DB Variables
- 'split user input into array
- Dim userinputarray() As String = tbUserIssue.Text.Split(" ")
- 'Find issues that corrolate with user issue
- For Each item As String In ids
- Try
- cmd.CommandText = "SELECT * FROM questions WHERE id = " & item
- con.Open()
- cmd.ExecuteNonQuery()
- Dim sqlreader As MySqlDataReader = cmd.ExecuteReader
- While sqlreader.Read
- issuecompare = sqlreader("issuetocompare").ToString()
- issueshow = sqlreader("issuetoshow").ToString()
- fixshow = sqlreader("fix").ToString()
- timessearched = sqlreader("timessearched").ToString() 'Grab timessearched currently stored for requested issue
- End While
- Catch ex As Exception
- MessageBox.Show("Error: " & ex.Message)
- End
- Finally
- con.Close()
- End Try
- For counter1 = 0 To UBound(userinputarray, 1)
- If issuecompare.ToLower.Contains(userinputarray(counter1).ToLower) Then 'If the issue does apply to this user and needs to be shown then executed the following
- ListBox1.Items.Add("Possible Error(s): " & issueshow & " - " & "Fix: " & fixshow)
- timessearched = timessearched + 1 'Increase timessearched by 1
- Try
- cmd.CommandText = "UPDATE questions SET timessearched = @newTimesSearched WHERE id = @newID" 'Update timessearched for that specific issue
- cmd.Parameters.Add("@newTimesSearched", MySqlDbType.Int64, 255).Value = timessearched
- cmd.Parameters.Add("@newID", MySqlDbType.Int64, 255).Value = item
- con.Open()
- cmd.ExecuteNonQuery()
- Catch ex As Exception
- MessageBox.Show("Error: " & ex.Message)
- End
- Finally
- con.Close()
- End Try
- End If
- Next
- Next
- btnSearch.Enabled = True
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement