关于ado对象运行问题

xiaociwei20000 2003-04-05 06:01:51
我从没用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 类不支持自动化或不支持期望的接口
请问怎样解决
...全文
2 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-04-05 06:01
社区公告
暂无公告