當前位置:首頁 » 數據倉庫 » ppt連接資料庫
擴展閱讀
webinf下怎麼引入js 2023-08-31 21:54:13
堡壘機怎麼打開web 2023-08-31 21:54:11

ppt連接資料庫

發布時間: 2022-10-07 12:59:56

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