PPT连接access数据库并读取内容.docx

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禁用宏了

打开

即可。

仅提供例子，如有其它需求请参照修改即可。