请教ADO链接中的“要求对象”问题

ty_1029

第一个问题解决了 ，，第二个来了，代码如下，是一个选项卡的变更事件~
问题出在选择第二个选项，即If tabMain1.Value = 1 时，报错，要求对象（424错误），编辑器变黄的代码为：
rs.Open strSQL, cn, adOpenDynamic, adLockPessimistic

If tabMain1.Value = 0 or  2 时，正常。

1. Private Sub tabMain1_Change()
   
2. Dim cn     As New ADODB.Connection
   
3.   Dim rs, rs1    As New ADODB.Recordset
   
4.   Dim strCn     As String, strSQL, strSQL1 As String
   
5. strCn = "Provider=sqloledb;Server=(local);Database=BY_CW;Uid=sa;Pwd=;"
   
6. cn.Open strCn
   
7.   
   
8. If tabMain1.Value = 0 Then
   
9. Me.frmHeader!lblFormCaption1.Caption = Me.tabMain1.Pages(0).Caption
   
10. Me.frmHeader!lblFormCaption2.Caption = Me.tabMain1.Pages(0).Caption
    
11. End If
    
12. 
    
13. If tabMain1.Value = 1 Then
    
14.   Dim j As Integer
    
15. strSQL = "select * from BY_CW.dbo.usysRights where FSn<>0 order by FSn"
    
16. rs.Open strSQL, cn, adOpenDynamic, adLockPessimistic
    
17. rs.MoveFirst
    
18. For j = 1 To 10
    
19. Do While Not rs.EOF
    
20. Me("Label" & j).Caption = rs!FUserID
    
21. Me("T" & j).Value = rs!FRright
    
22. Me("Te" & j).Value = rs!FRreadme
    
23. j = j + 1
    
24. rs.MoveNext
    
25. Loop
    
26. Next
    
27. rs.Close
    
28. Set rs = Nothing
    
29. 
    
30. Me.frmHeader!lblFormCaption1.Caption = Me.tabMain1.Pages(1).Caption
    
31. Me.frmHeader!lblFormCaption2.Caption = Me.tabMain1.Pages(1).Caption
    
32. End If
    
33. 
    
34. If tabMain1.Value = 2 Then
    
35.   Dim i As Integer
    
36. strSQL1 = "select * from dbo.usysItems where FItemNumber=0 order by FGrouping"
    
37. rs1.Open strSQL1, cn, adOpenDynamic, adLockPessimistic
    
38. rs1.MoveFirst
    
39. For i = 1 To 8
    
40. Do While Not rs1.EOF
    
41. Me("La" & i).Caption = rs1!Fid
    
42. Me("Tc" & i).Value = rs1!FGrouping
    
43. Me("Tc" & i).Visible = True
    
44. Me("Tct" & i).Value = rs1!FItemText
    
45. Me("Tct" & i).Visible = True
    
46. i = i + 1
    
47. rs1.MoveNext
    
48. Loop
    
49. Next
    
50. rs1.Close
    
51. Set rs1 = Nothing
    
52. Me.frmHeader!lblFormCaption1.Caption = Me.tabMain1.Pages(2).Caption
    
53. Me.frmHeader!lblFormCaption2.Caption = Me.tabMain1.Pages(2).Caption
    
54. End If
    
55. End Sub

复制代码

ty_1029

惭愧，，学习了 ，，谢谢两位~~~~~~~~~~~~

roych

ty_1029 发表于 2014-11-11 17:29
嗯 ，见鬼了，自己倒腾好了 ，求科普
原来是Dim rs, rs1    As New ADODB.Recordset

当然有区别了。Dim rs, rs1    As New ADODB.Recordset
只定义了第二个是记录集对象，rs并不是，只是默认的变量（Variant）
如果想一句写的话，应该是：
Dim rs As New ADODB.Recordset, rs1    As New ADODB.Recordset

todaynew

ty_1029 发表于 2014-11-11 17:29
嗯 ，见鬼了，自己倒腾好了 ，求科普
原来是Dim rs, rs1    As New ADODB.Recordset

有呀。Dim rs, rs1    As New ADODB.Recordset中rs并没有确定类型
Dim strCn     As String, strSQL, strSQL1 As String中的第二个变量也没指明是string，只是这个问题不影响后面的操作而已。

ty_1029

todaynew 发表于 2014-11-11 17:25
表名或字段名错误导致。
BY_CW.dbo.usysRights是表名？

嗯 ，见鬼了，自己倒腾好了 ，求科普
原来是Dim rs, rs1    As New ADODB.Recordset

修改为
  Dim rs    As New ADODB.Recordset
  Dim rs1    As New ADODB.Recordset

就好了，有区别？

todaynew

ty_1029 发表于 2014-11-11 17:08
新问题来了， ，麻烦大侠看看

表名或字段名错误导致。
BY_CW.dbo.usysRights是表名？

ty_1029

新问题来了， ，麻烦大侠看看

ty_1029

GOOD ~~~~~~~~
非常感谢TOD~

tmtony

也可以选项卡的change事件里设置。更简单

todaynew

IF me.选项卡.VALUE=0  THEN AA=me.选项卡.Pages(0).caption....

以上三句可以简单的写为：
AA=me.选项卡.Pages(me.选项卡.VALUE).caption