Question

vb 可以查询到数据库 但是无法更新

Answer 1

是不是应该加上rststudentinfo.update啊(在最后的msgbox "注册成功" 前)?

追问

那不是写update了吗。。。。

追答

哦..没看见...
那就确认一下在打开数据库时采用了可写的方式以及有权限写入数据库.
对于需要修改数据库的程序应该使用adLockPrssimistic 或 adLockOptimistic打开数据库.

adLockReadOnly 1 缺省值，Recordset对象以只读方式启动，无法运行AddNew、Update及Delete等方法
adLockPrssimistic 2 当数据源正在更新时，系统会暂时锁住其他用户的动作，以保持数据一致性。
adLockOptimistic 3 当数据源正在更新时，系统并不会锁住其他用户的动作，其他用户可以对数据进行增、删、改的操作。
adLockBatchOptimistic 4 当数据源正在更新时，其他用户必须将CursorLocation属性改为adUdeClientBatch才能对数据进行增、删、改的操作。

参考资料： 希望可以帮到你

Answer 2

建议作如下修改：
Set RstStudentinfo = New ADODB.Recordset
StrSQL = "select * from student_info"
Rststudentinfo.Open StrSQL, cn, adOpenDynamic, adLockOptimistic
Rststudentinfo.addnew

以上代码我验证过，肯定好用。
还有 ExecuteSQL 是你自己写的函数？

Answer 3

记录集打开方式不能选只读