Question

VB中使用update操作SQL数据库问题

strSQL = "update 员工信息 set 计数 = ' " & Day(Now) & " ' where 编号=' " & Text1.Text & " '"
conn.Execute (strSQL)

我使用以上VB语句没有任何错误提示,但就是改不了数据.请教下高手是哪里的问题?

Answer 1

两个地方你注意检查一下：
1、Text1.text的内容是不是严格地与编号的一样，由于软件的关系，建议Text1.Text最保险改用 trim(Text1.text)
2、你的计数这个字段，我怀疑是一个数值型的字段，而如果 day(Now)是3的话，你实际上是用'3'去替换，这可能什么导致数据类型不一致瑞拒绝替换

Answer 2

连接字符串是不是差参数?
ADOConn.ConnectionString = "连接数据库的字符串"
ADOConn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
ADOConn.Open()
Adors.Open("update 员工信息 set 计数 = '" & Day(Now) & " ' where 编号=' " & Text1.Text & " '", ADOConn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
ADOConn.Close()

Answer 3

你仔细看看 你要修改的 记录的 编号 字段是不是 Text1 值？理论上你的这行代码是正确的！但实际操作如何，我们还不知道，所以不好说。