麻烦高手帮忙·

Question

adors1.Open "select * from tbs_xjxm_hz order by ID", Cnn, adOpenKeyset
If Adodc7.Recordset.RecordCount > 0 Then
Adodc7.Recordset.MoveLast
StrNum1 = Adodc7.Recordset.Fields("ID")
Call Con_idNum1       '调用位数转换函数
Text11.Text = StrIn1
Else
Text11.Text = "1"
End If
实时错误‘91’
对象变量或with块变量未设置
另外也有一样的代码 都可以 实现
这段代码就出错

Answer 1

If Adodc7.Recordset.RecordCount > 0 Then
这一行报错

Answer 2

1行的adors1.Open ...与下面的代码一点关系都没有...

Answer 3

Adodc7.Recordset.RecordCount 改成adors1.Recordset.RecordCount 
试试

Answer 4

或者把第一行的adors1 改成 Adodc7试试

Answer 5

adors1.Recordset.RecordCount 
这个不行吧

Answer 6

第一行改成这样试试：Adodc7.Recordset.Open "select * from tbs_xjxm_hz order by ID", Cnn, adOpenKeyset

Answer 7

AdoRs.Open "select * from tbs_xjxm_hz order by ID", Cnn, adOpenKeyset
If AdoRs.RecordCount > 0 Then
AdoRs.MoveLast
StrNum = AdoRs.Fields("ID")
Call Con_idNum       '调用位数转换函数
Text17.Text = StrIn
Else
Text17.Text = "1"
End If调试出来了  这是最后的代码
可能是我用了adodc控件和adors 这两个一起用，所以出了问题 
谢谢各位了

Answer 8

任何对象在使用之前都要初始化，否则就会报错：对象变量或with块变量未设置你0楼的代码中，Adodc7.Recordset这个对象没有初始化。第一行语句初始化的是另一个对象。
相当于你给一辆汽车加满了油，但是开车的时候开的是另一辆没加油的