找出问题!
我修改数据库内容，但一修改所有的项都改了。我想只改其中一项。我的代码如下，帮我解决一下把。
'修改
Private Sub Command3_Click()
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
conn.Open "Provider=MSDASQL.1;Password=111;Persist Security Info=True;User ID=sa;Data Source=py;Initial Catalog=评语 "
strsql = "select 学号 from 学生信息表 where 学号= ' " & Text1.Text & " ' "
rs.Open strsql, conn, adOpenForwardOnly, adLockReadOnly
If Trim(Text1.Text) = " " Then
MsgBox "学号不能为空，请重新输入! ", vbOKOnly + vbExclamation, "警告 "
Text1.Text = " "
Text1.SetFocus
Exit Sub
End If
strsql = "Update 学生信息表 set 姓名= ' " & Text2.Text & " ',专业= ' " & Text3.Text & " ',指导老师= ' " & Text4.Text & " ',毕设题目= ' " & Text5.Text & " ' "
conn.Execute strsql
MsgBox "学生修改成功！ ", vbOKOnly + vbInformation, "提示 "
Text1.Text = " "
Text1.SetFocus
End Sub
[解决办法]
"Update 学生信息表 set 姓名= ' " & Text2.Text & " ',专业= ' " & Text3.Text & " ',指导老师= ' " & Text4.Text & " ',毕设题目= ' " & Text5.Text & " ' "
------------------------------------
这个要加where子句，指定学号，就象你前面的select语句那样，没有条件约束，当然是修改表作 9:wp伫 0:yu说 中所有数据。同时
strsql = "select 学号 from 学生信息表 where 学号= ' " & Text1.Text & " ' "
rs.Open strsql, conn, adOpenForwardOnly, adLockReadOnly
这个在你目前要实现的功能中，全无作用，可以去除
