MYSQL´æ´¢¹ý³ÌVBµ÷Ó÷½·¨¡£

Private Sub Command1_Click()
   
    Dim MyComm As New ADODB.Command      '¶¨ÒåÒ»¸öÃüÁî¶ÔÏó
    Dim Rs_GetList As New ADODB.Recordset '¶¨ÒåÒ»¸ö¼Ç¼¼¯¶ÔÏó
    Dim param As ADODB.Parameter         '¶¨ÒåÒ»¸ö²ÎÊý¶ÔÏó
   
    With MyComm
        .ActiveConnection = Cn           'Êý¾ÝÁ¬½Ó
        .CommandText = "pp"              '´æ´¢¹ý³ÌÃû³Æ
        .CommandType = adCmdStoredProc   '±íÃ÷ÕâÊÇÒ»¸ö´æ´¢¹ý³Ì
        .Prepared = True                 'ÒªÇó½«SQLÃüÁîÏÈÐбàÒë
        Set param = .CreateParameter("@a", adInteger, adParamInput, 4, 3)   'ÉêÃ÷Ò»¸ö²ÎÊý
        .Parameters.Append param         '°Ñ²ÎÊýÌí¼Óµ½²ÎÊýÁбíÀï
        Set Rs_GetList = .Execute        'Ö´Ðд˴洢¹ý³Ì£¬·µ»Ø¼Ç¼¼¯
    End With
   
    While Not Rs_GetList.EOF             'Ñ­»·´òÓ¡¼Ç¼¼¯µÄ×Ö¶Î
        Debug.Print Rs_GetList.Fields(0).Value
        Rs_GetList.MoveNext
    Wend
End Sub