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中建立連接對象的常規做法。需要先引用,具體可以網路例子來看看。