sub adoaddpw()
dim cn as adodb.connection
dim newpassword as string
dim notvalid as integer
dim sqlexecstr as string
set cn = currentproject.connection
on error resume next
' 測試資料庫是否以獨佔方式開啟
if cn.mode <> 12 then
msgbox "老兄,要改密碼先的把資料庫獨霸(獨佔方式開啟)了才行", vbcritical
exit sub
end if
retrypassword:
newpassword = inputbox("勞您貴手,打個密碼進來吧", "老兄,可要記住你的密碼阿!" _
, "新的資料庫密碼")
select case newpassword
' 這裡,你如果按了取消
case "新的資料庫密碼"
msgbox "沒有密碼,俺不幹"
exit sub
' 你按了ok
case ""
notvalid = msgbox("沒密碼俺不幹" & chr(10) & chr(13) & _
"真的決定改了嗎?", vbcritical + vbyesno)
if notvalid = 6 then
goto retrypassword
else
exit sub
end if
case else
sqlexecstr = "alter database password " & newpassword & "``"
currentproject.connection.execute sqlexecstr
msgbox "okey"
end select
end sub
'下面是去掉密碼
sub resetdbpassword()
dim cn as adodb.connection
dim sqlexecstr as string
dim resetquestion as integer
set cn = currentproject.connection
on error resume next
' 測試資料庫是否以獨佔方式開啟
if cn.mode <> 12 then
msgbox "老兄,要改密碼先的把資料庫獨霸(獨佔方式開啟)了才行", vbcritical
exit sub
end if
resetquestion = msgbox("重設嗎" & _
chr(10) & chr(13) & "空密碼嘍", vbquestion + vbyesno, _
"去掉密碼")
if resetquestion = 6 then
sqlexecstr = "alter database password `` dbpassword"
currentproject.connection.execute sqlexecstr
msgbox "沒了"
else
msgbox "還是有密碼"
exit sub
end if
end sub
VC用ADO連線oracle的方法
import c program files common files system ado msado15.dll no namespace rename eof adoeof connectionptr m pconnection recordsetptr m precordset 初始化com...
vc 用ADO方式連線oracle問題
今天裝了個oracle客戶端，準備寫個訪問遠端oracle的程式。用的是vs2010，採用ado的連線方法連線oracle，結果執行的時候總是報下面的錯 從提示可以看出是沒有找到oraoledbups.dll這個動態連結庫。我的連線oracle資料庫的 是 1 trycatch com error ...
ADO 資料庫連線
這些天一直在學習ado 資料庫連線，感覺比較複雜，所以一邊學習，一邊使用，一邊做了一些筆記，下面的一些東西就是我總結的一些關於ado 1 匯入庫檔案 使用ado前必須在工程的stdafx.h檔案最後用直接引入符號 import引入ado庫檔案，以使編譯器能正確編譯。如下 import c progr...
ADO 資料庫連線
這些天一直在學習ado 1 匯入庫檔案 使用ado前必須在工程的stdafx.h檔案最後用直接引入符號 import引入ado庫檔案，以使編譯器能正確編譯。如下 import c program files common files system ado msado15.dll no namespa...
MFC通過ADO連線SQL SERVER資料庫
以一個mfc的dialog應用程式為例。1.首先是引入msado15.dll。在stdafx.h中加入 import c program files common files system ado msado15.dll no namespace rename eof adoeof 2.初始化com...