为什么数据不能写入数据库?
OptionExplicitPrivatemyconnAsNewADODB.ConnectionPrivatemyRsAsNewADODB.RecordsetPrivat...
Option Explicit
Private myconn As New ADODB.Connection
Private myRs As New ADODB.Recordset
Private Sub Command1_Click()
...
myRs.Open "ronglian", myconn, adOpenKeyset, adLockOptimistic
Call savedata(myRs)
...
'这个地方如果加入myRs.close ,则运行中断,弹出"实时错误 3219 在此环境中不允许操作"
end Sub
Private Sub Form_Load()
myconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database.MDB;Jet OLEDB:Database "
...
end Sub
Private Sub savedata(myRs As ADODB.Recordset)
With myRs
If .BOF Then
.MoveFirst
Else
.MoveNext
End If
.AddNew
.Fields("日期") = text1(0).text
... ...
end with
end Sub
本人新注册财富不多,还有许多问题需要请教.
望高手不惜赐教,谢谢!~ ~
savedata() 就是写库代码啊
单步运行的时候都很正常,能看到savedata()中myRs.Fields("日期")的值
但是运行完后打开数据库却没有写进去，用的是access 展开
Private myconn As New ADODB.Connection
Private myRs As New ADODB.Recordset
Private Sub Command1_Click()
...
myRs.Open "ronglian", myconn, adOpenKeyset, adLockOptimistic
Call savedata(myRs)
...
'这个地方如果加入myRs.close ,则运行中断,弹出"实时错误 3219 在此环境中不允许操作"
end Sub
Private Sub Form_Load()
myconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database.MDB;Jet OLEDB:Database "
...
end Sub
Private Sub savedata(myRs As ADODB.Recordset)
With myRs
If .BOF Then
.MoveFirst
Else
.MoveNext
End If
.AddNew
.Fields("日期") = text1(0).text
... ...
end with
end Sub
本人新注册财富不多,还有许多问题需要请教.
望高手不惜赐教,谢谢!~ ~
savedata() 就是写库代码啊
单步运行的时候都很正常,能看到savedata()中myRs.Fields("日期")的值
但是运行完后打开数据库却没有写进去，用的是access 展开
1个回答
展开全部
你到底想说什么呢？
你的写库代码在哪儿？
你的写库代码在哪儿？
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
壹寰（深圳）科技文化有限公司
2021-03-27 广告
不同公司提供的方案也不一样。以上回答如果还觉得不够详细,可以来咨询下壹寰(深圳)科技文化有限公司。91数据恢复是壹寰（深圳）科技文化有限公司旗下专业数据恢复品牌，91数据恢复专注于勒索病毒数据恢复、勒索病毒数据修复、数据库修复、数据库解密恢...
点击进入详情页
本回答由壹寰（深圳）科技文化有限公司提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
