[英]how to update mysql database in vb.net
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button2.Click
Dim remarks As String
Dim am_OUT As String = "11:30:01 AM"
If LblTime.Text >= am_OUT Then
remarks = "OVERTIME"
Else
remarks = "PRESENT"
End If
sql = "UPDATE attendance SET am_out=@am_out, noon_remarks=@noon_remarks " & _
"WHERE id_no= '" & Txtid.Text & "'AND date LIKE '" & LblDate.Text & "'and am_out is null"
Try
With com
.Connection = con
.CommandText = "SELECT * FROM attendance WHERE id_no LIKE '" & Txtid.Text & "' AND date LIKE '" & LblDate.Text & "'AND am_out is NOT NULL"
End With
com.Parameters.Add(New MySqlParameter("@am_out", LblTime.Text))
com.Parameters.Add(New MySqlParameter("@noon_remarks", remarks))
com.ExecuteNonQuery()
If remarks = "OVERTIME" Then
MessageBox.Show("You have little overtime")
ElseIf remarks = "PRESENT" Then
MessageBox.Show("You Log out on time")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class 结束班
i cant update my database table in mysql and mysql database already have amin and am remarks 我无法在mysql和mysql数据库中更新我的数据库表已经有amin和am备注
I suppose that the object com
is you MySqlCommand. 我想对象
com
就是你的MySqlCommand。 If this is the case the line 如果是这样的话
.CommandText = "SELECT * FROM attendance WHERE id_no LIKE '" & Txtid.Text & "' AND date LIKE '" & LblDate.Text & "'AND am_out is NOT NULL"
is a SELECT statement and cannot update anything when this command is executed 是一个SELECT语句,执行此命令时无法更新任何内容
Said that, I suggest to correctly implement a parameterized query for every part of your query, and, of course, use the correct statement that updates your record 说,我建议为查询的每个部分正确实现参数化查询,当然,使用更新记录的正确语句
sql = "UPDATE attendance SET am_out=@am_out, noon_remarks=@noon_remarks " & _
"WHERE id_no= @id AND date LIKE @dt and am_out is null"
Try
With com
.Connection = con
.CommandText = sql
.Parameters.AddWithValue("@am_out",LblTime.Text)
.Parameters.AddWithValue("@noon_remarks",remarks)
.Parameters.AddWithValue("@id",Txtid.Text )
.Parameters.AddWithValue("@dt",Convert.ToDateTime(LblDate.Text ))
End With
com.ExecuteNonQuery()
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.