将修改后的数据保存到数据库时错误
下面这段代码是将修改后的数据保存到access数据库,程序运行时提示如图所示：



请修改：
sql = "select * from 表1 where 学号=" & Trim(学号) & ""

问题就在上面这句，请修改


谢谢！


Private Sub Command4_Click() '保存修改
Dim cn As New ADODB.Connection '
 Dim Rs As New ADODB.Recordset
 Dim Rs1 As New ADODB.Recordset
 Dim sql As String, 学号 As String

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=h:\数据条件源学习.mdb;Persist Security Info=False" '数据库

sql = "select * from 表1 where 学号=" & Trim(学号) & ""
Rs.Open sql, cn, 3, 2
If Rs.EOF <> True Then

Rs.Fields(1) = Trim(Text2.Text)
Rs.Fields(2) = Trim(Text3.Text)
If IsNumeric(Trim(Text4.Text)) = False Then
MsgBox "年龄必须为数据，请重新输入"
Else
Rs.Fields(3) = Trim(Text4.Text)
Rs.Update

MsgBox "成功更新一条记录", , "提示"
End If
Else

MsgBox "该数据不存在，操作异常", vbCritical, "错误"
End If

End Sub

1. 不清楚你是否代码给全了，学号 没有看到有任何地方给它赋值的。 从你的错误信息应该是这个原因吧
2. 你的数据表结构，学号字段是什么类型？ 有可能需要转换类型。

而且一般情况我不会用中文名称的变量

版主你好，根据你的提示修改好了，谢谢！

不客气

sql = "select * from 表1 where 学号='" & Trim(学号) & "'"