PPT连接access数据库并读取内容.docx
《PPT连接access数据库并读取内容.docx》由会员分享,可在线阅读,更多相关《PPT连接access数据库并读取内容.docx(20页珍藏版)》请在冰点文库上搜索。
PPT连接access数据库并读取内容
1、打开powerpoint
删去幻灯片的两个框框
选择后按下delete即可
下一步,调出vb
绘制一个textbox到幻灯片
点击控件后,鼠标放到幻灯片变为十字形状,按下左键绘制一个区域
用同样的方法放置两个按钮
如图所示
修改左侧按钮显示的文字
对左侧按钮右键,选择属性
修改caption值即可。
同理修改右侧按钮显示内容。
对查询数据库信息按钮右键选择查看代码
打开代码视图
要想连接access数据库需要引用
选择工具—引用
勾选microsoftactivexdataobjects2.0点击确定
代码框输入
DimrsAsNewADODB.Recordset
DimcnAsNewADODB.Connection
Dimconstring,sql,jieguoAsString
constring="provider=microsoft.jet.oledb.4.0;"&"datasource="&"ppt.mdb;"
cn.ConnectionString=constring
cn.Open
sql="select*fromusers"
jieguo=""
Debug.Printsql
rs.Opensql,cn,adOpenStatic,adLockOptimistic
DoWhileNotrs.EOF
jieguo=jieguo&"姓名:
"&rs("name").Value&"性别:
"&rs("sex")&"爱好:
"&rs("hobby")&vbCrLf
rs.MoveNext
Loop
rs.Close
Setrs=Nothing
TextBox1.Text=jieguo
同样的步骤,在清空显示内容按钮上面写代码
然后保存即可。
ppt文件做好后,开始建立access数据库,或者先建立数据库也可以。
打开access,
创建users表,并添加字段和内容
对表1:
表右键—设计视图
修改表名为users
如下图填写:
右键,保存
对users表右键打开
如图填写内容
右键users保存
保存后关闭即可。
如图,两个文件已有。
打开演示文稿1.ppt浏览即可
如出现如下错误,在此引用microsoftactivexdataobjects2.0即可。
选择工具—引用
勾选microsoftactivexdataobjects2.0点击确定
如果打开无反应,是ppt禁用宏了
打开
即可。
仅提供例子,如有其它需求请参照修改即可。