永发信息网

VB 数据库插入出错!帮帮忙!

答案:2  悬赏:10  手机版
解决时间 2021-04-14 10:10
  • 提问者网友:浩歌待明月
  • 2021-04-13 14:08

Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset

Private Sub Form_Load()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
End sub

Private Sub command1_Click()
SQL = "Select v_name from data1"
rs.Open SQL, conn, 3, 3
For i = 0 To List1.ListCount - 1
rs.AddNew
rs("v_name") = List1.List(i)
Next
rs.Close '加上出现 “在此环境中不允许操作” !不加rs.Close的话虽然可以!但是再次单击command1就出现“对象打开时,不允许操作”
End Sub

最佳答案
  • 五星知识达人网友:低血压的长颈鹿
  • 2021-04-13 14:28
rs.Update '<---
rs.Close
全部回答
  • 1楼网友:摆渡翁
  • 2021-04-13 14:58

rs("v_name") = List1.List(i) 这句下面加

rs.update 更新 保存

我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯