Question

VB中怎么更新数据

Private Sub Command2_Click()
Dim objCn As New ADODB.Connection, objRa As New ADODB.Recordset, conn As New ADODB.Command
objCn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source= " & App.Path & "\data.mdb"
objCn.Open
Dim str As String
str = objRa.Fields("密码")
MsgBox "str", , "修改"
End Sub
想问为什么这样代码不能修改数据库的数据？
Private Sub Command2_Click()
Dim objCn As New ADODB.Connection, objRa As New ADODB.Recordset, conn As New ADODB.Command
objCn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source= " & App.Path & "\data.mdb"
objCn.Open
conn.ActiveConnection = objCn
conn.CommandText = "update user set 密码=1234 where 名字='管理员'"
conn.Execute
MsgBox "", , "修改"
End Sub
现在我改成这样了，还是不行啊
提示的错误是UPDATE语句的语法错误

Answer 1

请检查你数据库字段的属性，按你上面写的，密码是数字型，名字是字符型的。

追问

提示的错误是UPDATE语句的语法错误...不是没结果

追答

SQL UPDATE命令：
UPDATE 表名称 SET 列名称 = 新值 WHERE 列名称 = 某值

我们为 lastname 是 "Wilson" 的人添加 firstname：
UPDATE Person SET FirstName = 'Fred' WHERE LastName = 'Wilson'

但首先要确定有这个数据存在，如果没有这个数据就会出错。