ADO类模块封装示例-AngelHis
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


ADO类模块封装示例

发表时间:2020/2/8 16:53:34 评论(1) 浏览(5862)  评论 | 加入收藏 | 复制
   
摘 要:活到老学到老。
正 文:

Private Sub Command1_Click()

    Dim Tesdb As New AccessDB    'AccessDB是类模块的名字
'-------------------------------------------------------------------
    Tesdb.ExSQL "Update TA SET A=" & Int(Rnd() * 100) & ", B=CHR(A), C=ASC(B)"   '在此写入SQL语句
'---------------------------------------------------------------------
    Me.Recalc
    End Sub

Private Sub Command2_Click()
    Dim Tesdb As New AccessDB    'AccessDB是类模块的名字
'----------------------------------------------------------
    Tesdb.GetRS " Select * FROM TA "     '写入SQL查询语句
'--------------------------------------------------------
    MsgBox Tesdb.rs.RecordCount, , "RecordCount"
End Sub


附   件:

点击下载此附件


图   示:


Access软件网交流QQ群(群号:198465573)
 
 相关文章
【通用模块源码】通用文件搜索类模块(FileSearch替代方法)  【红尘如烟  2010/9/7】
快速开发平台--自动生成类模块代码  【Aaron  2013/12/17】
【Access小品】真是扯谈--类模块与标准模块  【煮江品茶  2014/9/26】
类模块实现登陆窗体+导航窗体  【lzk  2015/12/24】
怎样创建类模块  【杨雪  2016/9/27】
【Access编程技巧】怎样修改模块、类模块名称  【杨雪  2017/1/7】
玩玩高大上的类模块  【爱吉瑞  2019/10/5】
常见问答
技术分类
相关资源
文章搜索
关于作者

AngelHis

文章分类

文章存档

友情链接