Question

修改按钮的代码，修改不了，也不报错

Private Sub Command1_Click()
Dim rs As ADODB.Recordset
Dim sql As String
Dim msgstr As String

sql = "select * from Equipment_Type where Type='" & Text1.Text & "'"
Set rs = GoSql(sql, msgstr)
If Not rs.EOF Then
rs.Fields("Type") = Text1.Text
rs.Update
MsgBox "修改成功！", vbOKOnly + vbInformation, "提示"
End If
Set rs = Nothing
Call InLoad
End Sub

Answer 1

查看你的代码的顺序，语法应该不会有太大的问题，测试的可执行文件
需要确认
（1）将执行时间，错误的语句引用是错误的
您可以使用控制代码，你应该做一个名称为CommandButton1的命令按钮，按钮的名称更改
？按钮上单击事件编写的代码执行吗？
您好，我有一个问题，

Answer 2

逻辑上好像有点问题吧，根据Text1读出来，又原样写回去。

追问

是想修改数据库里面指定的记录，那应该怎么写

追答

应该是用新值写入数据库吧