【已解决】请问一个ADODB.Recordset.Open的事宜？

真主

1.         Dim Va_Rec As New ADODB.Recordset
   
2.         Dim Va_i01 As Integer
   
3.         [color=Red]Va_Rec.Open "查询表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect[/color]
   
4.         For Va_i01 = 0 To Va_Rec.RecordCount - 1
   
5.             Set oNode = .Add(Va_Rec.Fields("B_SSDepID"), tvwChild, Va_Rec.Fields("B_DepID"), Va_Rec.Fields("T_Dep"))
   
6.             Va_Rec.MoveNext
   
7.         Next Va_i01
   
8.         Va_Rec.Close

复制代码

Va_Rec.Open "查询表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
如果查询中没有筛选条件，运行正常，但如果加上筛选条件（因为我只需要引用部份数据，所以想加个过滤条件），就出现“运行时错误 -2147217904(80040e10)，参数不足，期待值是1”，这是为什么？

roych

so，查询有问题咯。

真主

roych 发表于 2018-11-5 15:57
so，查询有问题咯。

找到问题了，查询中的筛选条件不是直接来源于窗体的字段，要先将窗体字段转换成函数，再在查询中的条件引用函数即可，谢谢！