- 1、本文档共27页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
全国二级ACCESS教程第九章节VBA数据库编程
第9章 VBA数据库编程;9.1.1 VBA常见操作; 3、消息框
格式:msgbox(提示文字,按钮类型,标题文字)
说明:提示文字必须有,其他可以省略。; 5、计时事件(Timer)
Timer事件表示每隔指定的一段时间自动执行的代码。VBA中没有提供计时控件,一般是给窗体的Timer事件添加计时的时候执行的代码,然后通过设置TimerInterval属性的值确定多久执行一次(以毫秒为单位)Timer事件代码并马上开始按间隔执行Timer事件代码,如果设置TimerInterval的值为0则停止执行Timer事件。; 例如:制作好下图所示的窗体,要求:按每隔100毫秒进行计时,开始时暂停按钮不能使用,正在计时过程计时按钮不能使用,暂停时暂停按钮不能使用。其中文本框的名称为t,计时按钮的名称为play,暂停按钮的名称为pause,给窗体、计时按钮、暂停按钮、Timer事件添加的代码如下页所示。;Private Sub play_Click() 计时???钮单击代码
Me!pause.Enabled = True 设置暂停按钮可用
pause.SetFocus 将光标设置到暂停按钮
Me!play.Enabled = False 将计时按钮设为不可用
TimerInterval = 100
设置每隔100毫秒执行一次Timer事件
End Sub
Private Sub Form_Load() 窗体load事件代码
Me!pause.Enabled = False
End Sub;Private Sub Form_Timer() 窗体timer事件代码
Static count As Double
定义为静态的使其能保留上一次计时的结果
count = count + 0.1
t = count
End Sub
Private Sub pause_Click() 暂停按钮单击事件代码
Me!play.Enabled = True
play.SetFocus
Me!pause.Enabled = False
TimerInterval = 0
End Sub;9.1.2 VBA的数据库编程; 在VBA中可以通过编程来对表中的数据进行操作。在操作过程中主要使用的是数据访问对象DAO或ADODB提供的方法来操作,其主要的操作步骤为:
1、定义对应的变量。
2、打开数据库或连接到数据库。
3、打开表或执行SQL语句将记录集保存起来。
4、读取记录集中的字段保存到变量中。
5、循环读取字段中的每一个值进行汇总、更新、添加、删除的操作。
6、关闭记录集及关闭数据库。; 1、定义对应的变量:主要代码如下
Dim db As DAO.Database
定义变量db用来保存要使用的数据库
Dim rs As DAO.Recordset
定义变量rs用来保存要使用的记录集
Dim mc As DAO.Field
定义字段变量用来保存某个字段的所有值
Dim num As DAO.Field
如果要读取多个字段的值则需要定义多个DAO.Field类型的字段变量; 2、打开数据库或连接到数据库。
Set db = CurrentDb()
设置数据库为当前使用的数据库; 4、读取记录集中的字段保存到变量中。
Set mc = rs.Fields(班级名称)
读取字段的所有值保存到字段变量中,并指向第一个值
Set num = rs.Fields(人数)
如果要读取多个字段的值,每个字段都需要这样读; 5、循环读取字段中的每一个值进行汇总、更新、添加、删除的操作。
Do While Not rs.EOF 还没读到最后一条记录
对读取得到的记录进行操作
rs.MoveNext 读取下一条记录
Loop
上述红色的两个地方一般都是必须的。; 举例:读取“班级信息表”中的所有班级名称并提示。具体代码如下:
Sub abc()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim mc As DAO.Field
Set db = CurrentDb()
Set rs = db.OpenRecordset(班级信息表)
Set mc = rs.Fields(班级名
您可能关注的文档
最近下载
- 摩托罗拉XiR_M3688_ServerManual维修手册.pdf VIP
- 奥西替尼杂质研究总结.pdf VIP
- 2024《格兰仕电器公司成本管理问题调查研究》8600字.docx VIP
- 中小学英语教师语音语调训练.ppt
- 《严格规范涉企行政检查》知识培训.pptx VIP
- MODS(多器官功能障碍综合征).ppt VIP
- 高中政治统编版必修一:(综合探究二)方向决定道路 道路决定命运.pptx
- VW75210-2 2011 (LV216-2) CN-电动汽车的高压屏蔽电缆要求和试验.pdf VIP
- 2022版小学《体育与健康课程标准》考试复习题库资料(含答案).pdf VIP
- 人工智能在邮政业的应用前景.pptx VIP
文档评论(0)