7,763
社区成员
发帖
与我相关
我的任务
分享这段为什么会出现时实错误91。
Private Sub DataList1_Click()
'查看操作员权限
Adodc2.RecordSource = "select * from 权限信息表 where 操作员姓名='" & Trim(DataList1.BoundText) & "'"
'On Error Resume Next
'Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
For i = 0 To 4
If Adodc2.Recordset.Fields(i) = 0 Then
Check1(i).Value = 1
Else
Check1(i).Value = 0
End If
Next i
Adodc2.Recordset.Update '更新记录
End If
End Sub
上面这段程序我编译是在Adodc2.Recordset.RecordCount > 0位置出错，：对象变量或with块变量未设置，这是怎么原因啊，以前也碰到过。各位达人指教！感激！！
'查看操作员权限
Adodc2.RecordSource = "select * from 权限信息表 where 操作员姓名='" & Trim(DataList1.BoundText) & "'"
'On Error Resume Next
'Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
For i = 0 To 4
If Adodc2.Recordset.Fields(i) = 0 Then
Check1(i).Value = 1
Else
Check1(i).Value = 0
End If
Next i
Adodc2.Recordset.Update '更新记录
End If
End Sub
上面这段程序我编译是在Adodc2.Recordset.RecordCount > 0位置出错，：对象变量或with块变量未设置，这是怎么原因啊，以前也碰到过。各位达人指教！感激！！
...全文
请发表友善的回复…
发表回复
faysky2 2005-10-09
- 打赏
- 举报
Adodc2.Recordset.Fields(i),这里出现这个问题，应该是这里的i大于字段的个数了
sunniful 2005-10-09
- 打赏
- 举报
现在又有新的问题晕都晕死了，错误出现在If Adodc2.Recordset.Fields(i) = 0位置
：在对应所需名称或序数集合中，未找到项目
：在对应所需名称或序数集合中，未找到项目
faysky2 2005-10-09
- 打赏
- 举报
你换个Adodc看一下
sunniful 2005-10-09
- 打赏
- 举报
我设置为Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=myMSDB;UID=sa;APP=Visual Basic;WSID=FRONT;DATABASE=mydb"
lbkbox 2005-10-09
- 打赏
- 举报
Adodc2与数据库的连接串你设置了吗，从你的错误来看，这个Adodc2控件根本就没有与数据库连接
sunniful 2005-10-09
- 打赏
- 举报
数据绑定啊。就这个
faysky2 2005-10-09
- 打赏
- 举报
应该不会啊，你对adodc2进行什么设置了？
sunniful 2005-10-09
- 打赏
- 举报
但是不注释又会发生另外一种错误：时实错误：-2147217900（80040e14）对象＇refresh＇的方法＇IAdodc'失败．郁闷．这又是怎么回事啊．？
viena 2005-10-09
- 打赏
- 举报
顶
faysky2 2005-10-09
- 打赏
- 举报
'Adodc2.Refresh
这句不要注释
这句不要注释
sunniful 2005-10-09
- 打赏
- 举报
怎么每人顶！
