关于ado对象运行问题

xiaociwei20000 xiaociwei20000 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
我从没用ado对象编过程,所以我有一些问题要问大家,我先说个例子吧
Private Sub Command1_Click()
Dim a As New ADODB.Connection
Dim b As ADODB.Recordset
aa = "provider=microsoft.jet.oledb.4.0;persist security info=false;data source="
bb = aa & "C:\My Documents\毕业设计\数据库\db1.mdb"
Set a = New ADODB.Connection
a.Open bb
( Set b = New ADODB.Recordset);;;;;;出错地方
b.CursorType = adOpenDynamic
b.LockType = adLockPessimistic
b.Open "资金库", a, , , adCmdTable
b.MoveFirst
Text1.Text = b.Fields("流动资金")
End Sub
运行程序时,出错在上方(出错地方)
程序显示:实时错误430 类不支持自动化或不支持期望的接口
请问怎样解决
...全文

相关推荐

评论
收藏 已收藏
分享
返回顶部