Question

VB修改SQL表中数据的问题……

连接修改代码如下，但是并不能进行修改，数据库的数据没有变。数据库名：student，表名：users，有name，password，capacity 3个字段，代码实现功能是密码修改。请高手指点一下Dim Con As New ADODB.ConnectionDim Rs As New ADODB.RecordsetCon.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=student;Data Source=."Con.OpenSet Rs = Con.Execute("update student.dbo.users set password='" & Text1.Text & "'where name ='" & Form2.Combo1.Text & "'") MsgBox "修改成功！", vbOKOnly, "提示"

Answer 1

con.open dim rs as new adodb.recordset rs.open "select * from [users] where name ='" & Form2.Combo1.Text & "'"),con,3,1 if not rs.eof then rs("Password") =text1.text rs.update endif rs.close