记录按钮点击次数并存入远程数据库

Question

有五个按钮，每天记录其点击的次数，然后写入远程数据库，请问该如何做啊?请大虾指导，在线等待，非常着急啊！

Answer 1

Option ExplicitDim m_intNum As LongPrivate Sub Command1_Click()
    m_intNum = m_intNum + 1
End SubPrivate Sub Form_Load()
    m_intNum = 0
End Sub

Answer 2

写数据库的代码还要吗？
如下:Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Combo1_Click()
    rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
    If Not rs.EOF Then
        Label1.Caption = rs!ID
        Label2.Caption = rs!Memo
    End If
   
    rs.AddNew
    rs!ID = "编号"
    rs!Memo = "备注"
    rs.Update
End SubPrivate Sub Form_Load()
    cn.ConnectionString = "DSN=SCM_ACCESS;pwd=ORIENTSCM;uid=ADMIN"
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub