Проблемы с OleDB Conn String и VB.net

Question

Я получаю несоответствие типа данных в ошибке выражения критериев, когда я запускаю следующий оператор, я выбрал его отдельно и не могу, чтобы жизнь меня видна, где это происходит! Вероятно, из-за моего уровня знания новичка, но это в меру моих возможностей!

Это мой код;

Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load 
    Dim UserName As String 
    UserName = System.Environment.UserName 
    Dim Month = Date.Now.ToString("MM") 
    Dim CS As ConnectionStringSettings = ConfigurationManager.ConnectionStrings("ConnCIM") 
    Dim Table As New DataTable 
    Dim Adapt As New OleDbDataAdapter("SELECT [LoginName], [DisplayName], [Date], [SessionID], [The wait time was acceptable] , [The length of the chat session was appropriate] , [Professionalism of the agent] , [Effectiveness of the response] , [Overall opinion of the chat service] , [Related Comments] , [Not Resolved Comments] FROM [Chat_Dump] WHERE (([LoginName] = @UserName) AND ([Date] = @Month))", CS.ToString()) 
    Adapt.SelectCommand.Parameters.AddWithValue("@UserName", Textbox1.text) 
    Adapt.SelectCommand.Parameters.AddWithValue("@Month", TextBox2.Text) 

    TextBox2.Text = Month 


    Adapt.Fill(Table) 

    GridView1.DataSource = Table 
    GridView1.DataBind() 

End Sub 

Текстовое поле находятся там только для тестирования, текстовое поле 1 заменяется UserName и я хочу TextBox2 быть заменен на месяц.

Короче говоря, у меня есть таблица данных, которая, когда каждый пользователь просматривает, я хочу, чтобы он вытащил свое имя пользователя из входа в домен и отобразил свои записи за текущий месяц.

Спасибо! и извините за мой низкий уровень знаний!

Answer 1

Если [Date] является DATETIME, вам необходимо извлечь месяц из него, а затем сравнить его с месячным значением.

... AND MONTH([Date]) = @Month 

(Целое число DateTime.Now.Month является лучшим выбором, который ToString("MM"))