如何將下拉框中的值添加到Mysql查詢中？

Question

我有一個下拉框，您可以選擇以下內容：

「今天」
「最近7天」

MySQL查詢是：

Dim x1 As New MySqlConnection("Server=localhost;Database=test;UID=test;PWD=test;") 
x1.Open() 
Dim comx1 As New MySqlCommand("SELECT COUNT(*) as c FROM toutcome WHERE AffID = '" & CType(Session.Item("affID"), String) & "' AND CompletedDate= '" & DropDownList1.Text & "'", x1) 
Dim myReaderx1 As MySqlDataReader = comx1.ExecuteReader(CommandBehavior.CloseConnection) 
myReaderx1.Read() 
Label12.Text = myReaderx1.Item(0).ToString() 

的今天的價值Dropbox應該是「CURDATE（）」

所以查詢應該看起來像這樣：

Dim x1 As New MySqlConnection("Server=localhost;Database=test;UID=test;PWD=test;") 
x1.Open() 
Dim comx1 As New MySqlCommand("SELECT COUNT(*) as c FROM toutcome WHERE AffID = '" & CType(Session.Item("affID"), String) & "' AND CompletedDate = CURDATE() ", x1) 
Dim myReaderx1 As MySqlDataReader = comx1.ExecuteReader(CommandBehavior.CloseConnection) 
myReaderx1.Read() 
Label12.Text = myReaderx1.Item(0).ToString() 

我該怎麼做？使用Dropbox中的值填充DropDownList1.Text。

Answer 1

Dim commandText = "SELECT COUNT(*) as c FROM toutcome " & _ 
       "WHERE AffID = '" & CType(Session.Item("affID"), String) & "' AND CompletedDate = @init " 
     Using c = New MySqlConnection("Server=localhost;Database=test;UID=test;PWD=test;") 
      Using com = New MySqlCommand(commandText, c) 
       c.Open() 
       com.Parameters.Add("@init", MySqlDbType.String).Value = Convert.ToString(DropDownList1.Text) 
       Using myReader = com.ExecuteReader(CommandBehavior.CloseConnection) 
        If myReader.Read() Then 
         Label11.Text = myReader.Item(0).ToString() 

         myReader.Close() 
        End If 
       End Using 
      End Using 
     End Using