1. PPT连接access数据库，怎样做密码验证的登录界面
以下实例以连接sql数据库，只要将代码中的连接数据库代码改成连接access数据库即可：
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
+ "User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1" '连接数据库代码
改为：
conn.ConnectionString ="Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "BPO.accdb"即可
添加引用
代码设计如下：
'首先添加一个模块，写上以下通用声明和Sub main()：
Public conn As ADODB.Connection '通用（声明）
Sub main()
Set conn = New ADODB.Connection '通用（main）
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
+ "User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1" '连接数据库代码
conn.Open
frmLogin.Show '首先显示登录界面。也可以在工程属性中设置启动对象为Sub main()或者frmlogin窗体
End Sub
'在Frmlogin 代码窗口，为cmdok控件写以下代码：
Private Sub cmdok_Click()
If text1.Text = "" Then
MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"
text1.SetFocus
Exit Sub '若用户名文本框内为空，则出现提示框
End If
If text2.Text = "" Then
MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"
text2.SetFocus
Exit Sub '若输入密码文本框为空，也出现提示框
End If
Dim strSQl As String
strSQl = "select * from User1 where username='" & Trim$(text1.Text) & "' and pwd='" & Trim$(text2.Text) & "' "
'书写SQL代码，查询User1表中是否存在窗体中用户输入的信息。
Dim str As New ADODB.Recordset
Set str = New ADODB.Recordset
str.CursorLocation = adUseClient
str.Open strSQl, conn, adOpenStatic, adLockReadOnly
With str
If .State = adStateOpen Then .Close
.Open strSQl
If .EOF Then
Try_times = Try_times + 1
If Try_times >= 3 Then
MsgBox "您已连续三次输入错误，系统将自动关闭", vbOKOnly + vbCritical, "警告"
Unload Me '若用户连续输入3次错误密码，则系统关闭
Else
MsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告"
text1.SetFocus
text1.Text = ""
text2.Text = ""
End If
Else
Unload Me '若登录成功，则隐藏当前窗体
Form2.Show '然后显示Form窗体
End If
End With
End Sub
Private Sub cmdCancel_Click()
End '若单击Cmdcel按钮，则结束应用程序
End Sub
运行中存在的问题：
代码中有Dim conn As adodb.connection，运行时显示"用户定义类型未定义"
解决方法：点击“工程”--“引用”找到“Microsoft ActiveX Data Object 2.6”
然后就就可以正常运行了。
2. 关于ppt中连接数据库后问题
ADO记录定位，除了你知道的movenext外，还有以下途径实现，其中有三种可实现你所说的随机出题：
一、recordset.Move
二、AbsolutePosition 属性 (ADO)
随机记录号生成
Dim 记录号 As integer, rs as ADODB.Recordset
Set rs=……
…………
Randomize ' 对随机数生成器初始化。
记录号 = Int((rs.RecordsetCount * Rnd) + 1) ' 生成 1 到 记录数 之间的随机数值。
rs.AbsolutePosition=记录号
三、Find 方法 (ADO)
3. ppt播放模式中，动态加载实时数据库
你试一试，编辑状态修改完，保存一下。再打开放映，是不是更新后的数据。
4. ppt连接oracle数据库取数据吗
1.确保你要连接的数据库监听的开启的； 2.修改本地的tnsname.orc文件； 3.从运行里面输入：sqlplus / as sydba 既可以
5. ppt如何连接数据库读取数据
不知道你的数据库是什么类型滴、这里有一个ACCESS数据库的连接问题
http://www.dssz.cn/show.aspx?id=31&cid=31&page=5
6. ppt技巧连接oracle数据库取数据吗
通过excel的外部数据源可以实现你的功能，以excel2007为例：先选择“数据”工具栏中的“自其它来源”，然后选择“来自数据连接向导”，再选择“Microsoft Data Access - OLE DB Provider for Oracle”，再点击“下一步”，然后输入服务器名称，数据库用户...
7. PPT页面保存到数据库与重组播放
这个需要找程序员针对你的需求来开发程序。
8. 用幻灯片生成的数据透视图在本地显示正常，但放到网站不能连接数据库(库是access)
数据库链接方式不一样。
你的幻灯片中读取数据库的方式是本地读取，放到网站上就应该读取服务器的文件，而幻灯片在客户端还是读取客户端的数据库，显然有问题。
如果放到网站上，建议用程序写，或者将数据库的内容直接读出放到幻灯片中，这样幻灯片就不需要读取数据库中的数据。
9. 如何在ppt幻灯片中插入数据库
插入 对象 选择文件 粘贴
10. ppt能连接oracle数据库么
可以的，用ppt里面的
vb语言
实现：
Dim
Cnn
As
ADODB.
Connection
Set
Cnn
=
New
ADODB.Connection
这是VB中建立连接对象的常规做法。需要先引用，具体可以网络例子来看看。