[英]VB.NET:Updating record in Ms Access
我正在創建一個員工計時表,他們必須在其中按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 =數字,emp_timeout =文本,day =日期/時間。
通常,這是由於您的代碼未使用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
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.