Advertisement
Guest User

Untitled

a guest
Mar 26th, 2017
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
  2.         btnSearch.Enabled = False
  3.         ListBox1.Items.Clear()
  4.         'Error Prevention
  5.        If cbGames.Text = "" Then
  6.             MessageBox.Show("No game selected!")
  7.         End If
  8.         If tbUserIssue.Text = "" Then
  9.             MessageBox.Show("No issue stated!")
  10.         End If
  11.         'Setting of labels
  12.        lblIssueGame.Text = cbGames.Text
  13.         lblIssueGame.Visible = True
  14.         'Variable Definitions
  15.        Dim tbissue As String = tbUserIssue.Text.ToLower
  16.         Dim counter1 As Integer = 0
  17.         Dim counter2 As Integer = 0
  18.         Dim issuecompare As String
  19.         Dim issueshow As String
  20.         Dim fixshow As String
  21.         Dim timessearched As Integer
  22.         'Information from DB Variables
  23.        'split user input into array
  24.        Dim userinputarray() As String = tbUserIssue.Text.Split(" ")
  25.         'Find issues that corrolate with user issue
  26.        For Each item As String In ids
  27.             Try
  28.                 cmd.CommandText = "SELECT * FROM questions WHERE id = " & item
  29.                 con.Open()
  30.                 cmd.ExecuteNonQuery()
  31.                 Dim sqlreader As MySqlDataReader = cmd.ExecuteReader
  32.                 While sqlreader.Read
  33.                     issuecompare = sqlreader("issuetocompare").ToString()
  34.                     issueshow = sqlreader("issuetoshow").ToString()
  35.                     fixshow = sqlreader("fix").ToString()
  36.                     timessearched = sqlreader("timessearched").ToString() 'Grab timessearched currently stored for requested issue
  37.                End While
  38.             Catch ex As Exception
  39.                 MessageBox.Show("Error: " & ex.Message)
  40.                 End
  41.             Finally
  42.                 con.Close()
  43.             End Try
  44.             For counter1 = 0 To UBound(userinputarray, 1)
  45.                 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
  46.                    ListBox1.Items.Add("Possible Error(s): " & issueshow & " - " & "Fix: " & fixshow)
  47.                     timessearched = timessearched + 1 'Increase timessearched by 1
  48.                    Try
  49.                         cmd.CommandText = "UPDATE questions SET timessearched = @newTimesSearched WHERE id = @newID" 'Update timessearched for that specific issue
  50.                        cmd.Parameters.Add("@newTimesSearched", MySqlDbType.Int64, 255).Value = timessearched
  51.                         cmd.Parameters.Add("@newID", MySqlDbType.Int64, 255).Value = item
  52.                         con.Open()
  53.                         cmd.ExecuteNonQuery()
  54.                     Catch ex As Exception
  55.                         MessageBox.Show("Error: " & ex.Message)
  56.                         End
  57.                     Finally
  58.                         con.Close()
  59.                     End Try
  60.                 End If
  61.             Next
  62.         Next
  63.         btnSearch.Enabled = True
  64.     End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement