acess dao示例

举报
风吹稻花香 发表于 2021/06/05 00:57:23 2021/06/05
4.7k+ 0 0
【摘要】   Access可以通过绑定记录源,在窗体中添加数据直接录入到表格,也可以通过下面几种方法: 用SQL语句添加记录《Access窗体添加记录》 用ADO添加记录【新手入门】-Access添加记录   用DAO添加窗体记录:     Dim Db As DAO.Database ...

Access可以通过绑定记录源,在窗体中添加数据直接录入到表格,也可以通过下面几种方法:

用SQL语句添加记录《Access窗体添加记录》

用ADO添加记录【新手入门】-Access添加记录

用DAO添加窗体记录:


      Dim Db As DAO.Database
          Dim Rs As DAO.Recordset
          Set Db = CurrentDb()
          Set Rs = Db.OpenRecordset("学生信息", dbOpenDynaset)
          '新增记录
          Rs.AddNew
              Rs!ID = Me!ID
              Rs!姓名 = Me!姓名
              Rs!性别 = Me!性别
              Rs!出生日期 = Me!出生日期
          If IsNull(ID) Then
              MsgBox "没输入主键"
          Else
              '更新记录
              Rs.Update
              MsgBox "新增成功"
          End If
  
 

Access函数的调用

Access内置函数库能轻松解决很多问题。如果没有此函数,我们可以自定义函数来处理问题。

这里我们说说如何调用函数。调用内置函数和自定义函数方法是一样的。

一.创建自定义函数

在VBE视图下,插入-模块,新建一个模块后,键入以下函数。一个累加的函数。


      Public Function leijia(n As Integer)
       Dim i As Integer
       Dim y As Long
       y = 0
       For i = 1 To n
       y = y + i
       Next
       leijia = y
      End Function
  
 

二.调用函数

1.在查询中调用函数

可以在查询中直接调用,如Now(),year()等函数,也可以调用自定义函数

SELECT 表1.aaa,date() as 今天, leijia(5) AS 累加 FROM 表1;
 

2.在窗体报表中调用函数

在窗体和报表中调用函数是一样的,只需要引用函数即可


      '按钮单击事件
      Private Sub Command2_Click()
        MsgBox leijia(Text0)
      End Sub
  
 

或者直接(=函数)填入参数即可获取到值。

http://www.office-cn.net/access-vb/301.html

文章来源: blog.csdn.net,作者:网奇,版权归原作者所有,如需转载,请联系作者。

原文链接:blog.csdn.net/jacke121/article/details/108557615

【版权声明】本文为华为云社区用户转载文章,如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱: cloudbbs@huaweicloud.com
  • 点赞
  • 收藏
  • 关注作者

作者其他文章

评论(0

抱歉,系统识别当前为高风险访问,暂不支持该操作

    全部回复

    上滑加载中

    设置昵称

    在此一键设置昵称,即可参与社区互动!

    *长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。

    *长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。