VB.NET：无法将访问数据库中的选定数据显示到datagridview中

debugcn 发表于 Dev

阿里·穆罕默德（Ali Muhammad）

我一直试图在按下按钮时将Access数据库中的选定数据显示到datagridview中，但是它不显示任何记录，也不显示任何错误。

Dim third_da As OleDb.OleDbDataAdapter
Dim third_ds As New DataSet


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


    con.Open()
    Dim cb_two As New OleDb.OleDbCommandBuilder(third_da)

    query_three = "SELECT emp_timing.emp_code, emp_timing.day, emp_timing.travel_time, emp_timing.travel_dest,emp_timing.emp_timein,emp_timing.emp_timeout, emp_timing.emp_hours, emp_timing.emp_mins " & _
        "FROM emp_timing WHERE (((emp_timing.emp_code)=" & empcode & ") AND ((emp_timing.day) Like '??/" & ComboBox1.Text & "/20" & TextBox9.Text & "'))"

    ' "WHERE (((emp_timing.emp_code)=22) AND ((emp_timing.day) Like '??/05/2016'))"

    third_da = New OleDb.OleDbDataAdapter(query_three, con)

    third_da.Fill(third_ds, "ets")


    DataGridView1.DataSource = third_ds.Tables("ets")

    con.Close()
    Dim view As New DataView(third_ds.Tables(0))
    source1.DataSource = view
    DataGridView1.DataSource = view

    DataGridView1.ReadOnly = True
    DataGridView1.CancelEdit()

End Sub

提前致谢！

阿卜杜拉·乌格哈（Abdellah OUMGHAR）

您可以emp_timing.day像这样在查询中更改字段条件：

(Month(emp_timing.day) = & ComboBox1.Text & 
                   and Year(emp_timing.day) = "20" & TextBox9.Text & " )

但是，我建议您使用Parameter避免SQL注入，如下所示：

query_three = "SELECT emp_timing.emp_code, emp_timing.day, emp_timing.travel_time, emp_timing.travel_dest,emp_timing.emp_timein,emp_timing.emp_timeout, emp_timing.emp_hours, emp_timing.emp_mins " &
"FROM emp_timing WHERE (((emp_timing.emp_code)= @empcode) AND ((emp_timing.day) BETWEEN @startDate AND @endDate ))"

Dim startDate As New DateTime("20" & TextBox9.Text, ComboBox1.Text, 1)
Dim endDate As DateTime = startDate.AddMonths(1).AddDays(-1)

Dim cmd As New OleDbCommand(query_three, con)
cmd.Parameters.AddWithValue("@empcode", empcode)
cmd.Parameters.AddWithValue("@startDate", startDate.ToString("#yyyy/MM/dd#"))
cmd.Parameters.AddWithValue("@endDate", endDate.ToString("#yyyy/MM/dd#"))
third_da = New OleDb.OleDbDataAdapter(cmd)

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。