为什么在 adodc.recordsource 后要有 adodc.refresh 否则会出错？

Question

为什么在 adodc.recordsource  后要有 adodc.refresh  否则会出错？

Answer 1

代码是如下：AdodcUser.RecordSource = "select id as 工号 , name as 姓名 , quanxian as 用户级别 from login " + conStr
    AdodcUser.Refresh
    If AdodcUser.Recordset.RecordCount = 0 Then
        MsgBox "没有符合条件的员工", , "查询失败"
    Else
        querycheck = True
        querydelete_user_frm.Height = 4860
    End If

Answer 2

AdodcUser.RecordSource = "select id as 工号 , name as 姓名 , quanxian as 用户级别 _ from login " + conStr
    AdodcUser.Refresh
    
If AdodcUser.Recordset.RecordCount = 0 Then
   MsgBox "没有符合条件的员工", , "查询失败"
Else
   querycheck = True
   querydelete_user_frm.Height = 4860
End If

Answer 3

報錯
應該回執行到 MsgBox "没有符合条件的员工", , "查询失败" 這步啊

Answer 4

如果没有refresh，那RecordSource的记录还是先前的集，只有刷新了才能改成当前的记录集.

Answer 5

我是这样来写的
dim rs as new adodc.recordset
dim sql as string
sql=""select id as 工号 , name as 姓名 , quanxian as 用户级别 _ from login " + conStrrs.open sql,cn,1,3
'cn就是已经打开的连接,这里没有给出
If rs.recordset.count>0 Then
   MsgBox "没有符合条件的员工", , "查询失败"
Else
   querycheck = True
   querydelete_user_frm.Height = 4860
End If