小小猫ADODC控件三大问题!谢谢各位大侠!

Question

小生有以下问题:
ADODC控件
1.怎么能统计ACCESS表中的记录条数?(条数为N)
2.怎么能使得记录条数N产生N个按钮?
3.记录下每个按钮的点击次数,再存到表中.

Answer 1

1.dim sum
  sum=adodc1.Recordset.RecordCount
2,3 关注

Answer 2

2. 添加command 名为cmdBtn :index 设为0。　和一个listbox 
Private Sub add_command(Index As Integer)
    Dim btn As CommandButton
    Dim iIndex As Integer
    iIndex = cmdBtn.Count
    If iIndex <= 32767 Then
        Load cmdBtn(iIndex)
        Set btn = cmdBtn(iIndex)
        With btn
            .Top = cmdBtn(iIndex - 1).Top + 620
            .Caption = "Command" & iIndex + 1
            .Visible = True
        End With
        Set btn = Nothing
    End If
 
End SubPrivate Sub cmdBtn_Click(Index As Integer)
List1.AddItem Index + 1   '显示点击了哪个Ｃｏｍｍａｎｄ 3　的可在这儿写。
End SubPrivate Sub Form_Load()
add_command (2) '加入２个command 可改为Ｎ
End Sub

Answer 3

2.dim sub 
   sum=adodc1.Recordset.RecordCount
   for i=1 to sum
     load command1
   next i
注：你必需将COMMAND1设为数组形式，而且COMMAND1的位置得用代码写！
3.  用SELECT CASE INDEX记录，不过比较麻烦，可能有更好的方法！