Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

Access分享--用代码实现更新序号与计数ADO与DAO

时 间:2016-06-27 09:04:07
作 者:杜超   ID:16058  城市:江阴
摘 要:帮爱好者做的小示例,如下图
正 文:

点击下载此附件



Private Sub 更新计数_Click()
    Dim rst As Object

    Set rst = CurrentDb.OpenRecordset("更新计数", dbOpenDynaset)
         rst.MoveFirst
  
    Do Until rst.EOF
        rst.Edit
        rst!计数 = DCount("*", "更新计数", "DKH='" & rst!dkh & "'")
        rst.Update
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    DoCmd.OpenTable "更新计数"

End Sub

Private Sub 清空计数_Click()
    CurrentDb.Execute "update 更新计数 set 计数=null"
    DoCmd.OpenTable "更新计数"
End Sub


Private Sub 更新序号_Click()
    Dim rst As Object
    Dim strSQL As String
    Dim i As Integer
    strSQL = "select * from 更新序号 order by 面积"
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
        rst.MoveFirst
    Do Until rst.EOF
        rst.Edit
        rst!序号 = i + 1
        i = rst!序号
        rst.Update
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    DoCmd.OpenTable "更新序号"

End Sub


Private Sub 清空序号_Click()
    CurrentDb.Execute "update 更新序号 set 序号=null"
    DoCmd.OpenTable "更新序号"
End Sub




Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助