Dzwebs.Net

撰写电脑技术杂文十余年

ppt vba之数据通讯,读取ACCESS内容

Admin | 2012-1-27 12:18:29 | 被阅次数 | 7934

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  在使用PPT的时候,如果想与Access进行数据的交互,就必须使用VBA代码来实现:

  如下的代码,其功能是,通过PPT读取ACCESS中的内容:

  Public DbCnct As New ADODB.Connection

  Public ReSet As New ADODB.Recordset

  Private Sub CommandButton1_Click()

  If DbCnct.State = adStateOpen And Not IsEmpty(adStateOpen) Then DbCnct.Close

  DbCnct.Provider = "microsoft.jet.oledb.4.0"

  DbCnct.ConnectionString = "test.mdb" ’数据库名称

  DbCnct.Open

  If ReSet.State = adStateOpen And Not IsEmpty(adStateOpen) Then ReSet.Close

  ReSet.Open "test", DbCnct, adOpenDynamic, adLockOptimistic '表名称

  TextBox1.Text = ReSet!mingzi

  TextBox2.Text = ReSet!xingbie

  TextBox3.Text = ReSet!dizhi

  ReSet.Close

  Set ReSet = Nothing

  Set DbCnct = Nothing

  End Sub


该杂文来自: PowerPoint杂文

上一篇:自定义动画的强调效果,让动画本身不消失

下一篇:ppt vba对ACCESS进行写入

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计