Expand|Select|Wrap|Line Numbers
- Call Connect()
- Dim dt As New DataTable
- Dim cmd As New MySqlCommand
- Try
- lstIllness.Items.Clear()
- cmd.Connection = myConn
- cmd.CommandText = "select ill from symptoms where sym = @symp"
- cmd.Parameters.AddWithValue("symp", lstSelected.Items)
- myReader = myCmd.ExecuteReader
- If (myReader.Read()) Then
- myReader.Close()
- myAdptr.SelectCommand = cmd
- myAdptr.Fill(dt)
- lstIllness.DisplayMember = "ill"
- lstIllness.ValueMember = "ill"
- For Each row As DataRow In dt.Rows
- lstIllness.Items.Add(row("ill"))
- Next
- Dim builder As New StringBuilder()
- builder.Append("select distinct ill from symptoms where ")
- For y As Integer = 0 To lstSelected.Items.Count - 1
- Dim parameterName As String = "@symp" & y.ToString()
- If y <> 0 Then
- builder.Append("and ")
- End If
- builder.Append(parameterName)
- builder.Append(" in (select sym from symptoms where ill = i.ill) ")
- cmd.Parameters.AddWithValue(parameterName, lstSelected.Items(y))
- Next
- cmd.CommandText = builder.ToString()
- End If
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- cmd = Nothing
- myReader = Nothing
- myConn.Close()
- Call Disconnect()