VB.NET：更新Ms Access中的记录

Question

我正在创建一个员工计时表，他们必须通过按下timein和timeout按钮来插入他们的计时表。对于timein，我在数据库中为该人员创建了一条新记录，对于超时，我正在使用UPDATING命令更新该现有记录。这里是我的代码：

Dim cb As New OleDb.OleDbCommandBuilder(ssda) 
    cb.QuotePrefix = "[" 
    cb.QuoteSuffix = "]" 

    con.ConnectionString = dbProvider & dbSource 
    con.Open() 
    Dim str As String 
    str = "UPDATE emp_timing SET emp_timing.emp_timeout = '" & OnlyTime & "' WHERE (((emp_timing.emp_code)='" & TextBox1.Text & "') AND ((emp_timing.day)=" & Now.ToString("MM/dd/yyyy") & "))" 

    Dim cmd As OleDbCommand = New OleDbCommand(str, con) 


    Try 
     cmd.ExecuteNonQuery() 
     cmd.Dispose() 
     con.Close() 
     MsgBox("Data added") 

     TextBox1.Clear() 
     TextBox2.Clear() 
     TextBox1.Focus() 
     ComboBox1.SelectedIndex = -1 
    Catch ex As Exception 
     MsgBox(ex.Message) 

    End Try 

我的代码工作正常，但问题是它没有更新数据库中的记录。

Access中字段的数据类型： emp_code = Number，emp_timeout = Text，day = Date/Time。

Answer 1

像往常一样，这是由于您的代码没有使用Parameters集合将值传递给数据库引擎。这不是真正理解，直到你打一个转换的问题，因为总是与日期

str = "UPDATE emp_timing SET emp_timeout = @p1 " & _ 
     "WHERE emp_code = @p2 AND day = @p3" 


Using con = new OleDbConnection(dbProvider & dbSource) 
Using cmd = New OleDbCommand(str, con) 

    con.Open() 
    cmd.Parameters.Add("@p1", OleDbType.VarWChar).Value = OnlyTime 
    cmd.Parameters.Add("@p2", OleDbType.Integer).Value = Convert.ToInt32(TextBox1.Text) 
    cmd.Parameters.Add("@p3", OleDbType.Date).Value = new DateTime(Now.Year, Now.Month, Now.Day) 
    Try 
     Dim rowsAdded = cmd.ExecuteNonQuery() 
     if rowsAdded > 0 Then 
      MsgBox("Data added") 
      TextBox1.Clear() 
      TextBox2.Clear() 
      TextBox1.Focus() 
      ComboBox1.SelectedIndex = -1 
     End If 
    Catch ex As Exception 
     MsgBox(ex.Message) 

    End Try 
End Using 
End Using