关于写数据库？

答案:5 悬赏:10 手机版

解决时间 2021-05-25 02:28

提问者网友：不爱我么
2021-05-24 12:27

conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"
sql = "select * from scholarship where scholarship_id = " & id & " "
rs_mima.Open sql, conn, adOpenKeyset, adLockBatchOptimistic
rs_mima.Fields(1) = Trim(Text2.Text)
rs_mima.Fields(2) = Format(Val(Text3.Text), "#,##0.00")
rs_mima.Fields(3) = Val(Text4.Text)
rs_mima.Fields(4) = Trim(RichTextBox1.Text)
rs_mima.Update
MsgBox "更新成功！", vbOKCancel + vbInformation, "提示信息"

虽然显示更新成功，但是数据库里面的数据完全没有改变，这个是什么问题？

最佳答案

五星知识达人网友：独钓一江月
2021-05-24 13:45

你有设置选OK 是什么选取消是什么的判断语句了么？？

全部回答

1楼网友：七十二街
2021-05-24 16:58

rs_mima.Open sql, conn, adOpenKeyset, adLockBatchOptimistic

改成

rs_mima.Open sql, conn, 3,3,1

试试看~

2楼网友：行路难
2021-05-24 16:18

我倒。。你这是查询嘛，查询当然不能修改数据库的啦。。你要更新或删除才行的唦。。

3楼网友：冷風如刀
2021-05-24 15:00

具体的错误原因我不知道，答案是我知道无论错误还是正确，提示信息都会提示正确！ “MsgBox "更新成功！", vbOKCancel + vbInformation, "提示信息"”

4楼网友：不甚了了
2021-05-24 13:56

rs_mima.addnew 'rem 一类的，具体的我忘了，因为我用insert into ,你看看吧,这里要先增加一条记录
rs_mima.Fields(1) = Trim(Text2.Text)
rs_mima.Fields(2) = Format(Val(Text3.Text), "#,##0.00")
rs_mima.Fields(3) = Val(Text4.Text)
rs_mima.Fields(4) = Trim(RichTextBox1.Text)
rs_mima.Update
MsgBox "更新成功！", vbOKCancel + vbInformation, "提示信息"

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息