顯示記錄根據月

Question

我有一個（使用Microsoft Access 2007），其中包含一個名爲tbl_order與列的表名爲PriceTesting數據庫：

Order_ID, Customer_Name, Dress_Type, Dress_Price, Quantity, Date_Of_Pickup, Payment_Status 

我已經成功顯示使用此代碼數據到datagridview的： -

Private Sub dgvReportShow() 

     Dim con As New OleDb.OleDbConnection 
     con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\annonymous\Documents\Visual Studio 2012\Projects\TMS Final\TMS Final\db\db_TMS.accdb" 

     If Not con.State = ConnectionState.Open Then 
      con.Open() 
     End If 

     Dim ds As New DataSet 
     Dim dt As New DataTable 
     ds.Tables.Add(dt) 
     Dim da As New OleDb.OleDbDataAdapter 

     da = New OleDb.OleDbDataAdapter("SELECT Order_ID, Customer_Name, Dress_Type, Dress_Price, Quantity, Date_Of_Pickup, Payment_Status, Dress_Price * Quantity as Total " & _ 
             "FROM tbl_order " & _ 
             "WHERE (Payment_Status = 'paid') ", con) 

     da.Fill(dt) 

     dgvReport.DataSource = dt.DefaultView 

     dgvReport.SelectionMode = DataGridViewSelectionMode.FullRowSelect 

End Sub 

Date_Of_Pickup顯示這樣28-Dec-13在DataGridView （SRY ...我沒有足夠的點張貼快照）

現在我已經加入了comboboxMonth包含月份（一月，二月，三月，...等） ，這樣我可以通過選定月份在comboboxMonth

查看記錄如何轉換在" 28-Dec-13 "到一個月，所以我可以添加

" WHERE (Payment_Status = 'paid') AND Date_Of_Pickup = comboboxMonth.value " 

誰能幫我解決了這個問題？

Answer 1

如果您手動填充您的組合與在ascendig順序（月份名稱一月第一，二月的第二個，等等，你可以在你的SelectedIndexChanged事件是這樣的

Private Sub cbo_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles comboBoxMonths.SelectedIndexChanged 
    Dim cbo = CType(sender, ComboBox) 
    Dim monthIndex = cbo.SelectedIndex 
    if monthIndex <> -1 then 
     Dim cmdText = "SELECT Order_ID, Customer_Name, Dress_Type, Dress_Price, Quantity, " & _ 
        "Date_Of_Pickup, Payment_Status, Dress_Price * Quantity as Total " & _ 
        "FROM tbl_order WHERE (Payment_Status = 'paid') AND " & _ 
        "Month(Date_Of_Pickup) = " & (monthIndex + 1).ToString 

     ....... 


    End if 
End Sub