當前位置:首頁 » 密碼管理 » vb修改資料庫密碼是什麼意思

vb修改資料庫密碼是什麼意思

發布時間: 2024-11-22 12:16:12

Ⅰ 急求一個VB程序代碼,實現資料庫內容的查詢,修改,新增,刪除

'點擊工程(P)--引用(N)--選擇 "Microsoft DAO2.5/3.5 compatibility Library" 打鉤確定。
Dim D As Database, T As TableDef, R As Recordset
Private Sub Command1_Click() '創建資料庫
Set D = CreateDatabase("D:\資料庫名稱.mdb", dbLangGeneral, dbEncrypt) '創建資料庫對象(dbEncrypt=加密)
D.NewPassword "", "123456" '資料庫密碼設置為123456
'建立設置數據表
Set T = D.CreateTableDef("數據表名稱") '數據表名稱:
T.Fields.Append T.CreateField("項目一", dbMemo) 'TEXT1內容
T.Fields.Append T.CreateField("項目二", dbMemo) 'TEXT2內容
D.TableDefs.Append T '將數據表添加到資料庫中
D.Close '關閉資料庫
End Sub
Private Sub Command2_Click() '查詢
Dim T1 As Boolean '判斷查詢數據是否存在參數
Set D = OpenDatabase("D:\資料庫名稱.mdb", True, False, ";pwd=123456") '需要查詢的資料庫名稱,格式,允許修改,資料庫密碼
Set R = d1.OpenRecordset("Select * From 數據表名稱") '數據表名稱:
R.MoveFirst '記錄移到第一條記錄
Do While (R.EOF = False) '如果記錄已經是最後一條就退出循環
If R.Fields("項目一") = Text1.Text Then '判斷項目一是否等於文本TEXT1內容
Text2.Text = R.Fields("項目二") '如果存在TEXT2文本框就引入記錄內容
T1 = True '作於下面判斷記錄已經存在的條件
Exit Do '記錄已經查到,可以退出循環查詢比較
End If
R.MoveNext '如果本條記錄不符合要就就記錄移到下一條記錄
Loop
If T1 = False Then MsgBox "您查詢的結果不存在" '這里使用到了參數 T1 作為判斷是否存在記錄
D.Close '關閉資料庫
End Sub
Private Sub Command32_Click() '新數據錄入
Set D = OpenDatabase("D:\資料庫名稱.mdb", True, False, ";pwd=123456") '需要查詢的資料庫名稱,格式,允許修改,資料庫密碼
Set R = D.OpenRecordset("Select * From 數據表名稱")
R.AddNew '增加一條新記錄
R.Fields("項目一") = 1 'TEXT1新記錄內容
R.Fields("項目二") = "個VB程序代碼,實現資料庫內容的查詢,修改,新增,刪除" 'TEXT2新記錄內容
R.Update '保存記錄
D.Close '關閉資料庫
End Sub
Private Sub Command4_Click() '修改
Set D = OpenDatabase("D:\資料庫名稱.mdb", True, False, ";pwd=123456") '需要查詢的資料庫名稱,格式,允許修改,資料庫密碼
Set R = D.OpenRecordset("Select * From 數據表名稱")
R.Edit '修改記錄 (注意 在程序中你根據需要條件將記錄移到你需要修改的位置才進行修改)
R.Fields("項目一") = Text1.Text 'TEXT1記錄內容修改
R.Fields("項目二") = Text2.Text 'TEXT2記錄內容修改
R.Update '保存記錄
D.Close '關閉資料庫
End Sub
Private Sub Command5_Click() '刪除
Set D = OpenDatabase("D:\資料庫名稱.mdb", True, False, ";pwd=123456") '需要查詢的資料庫名稱,格式,允許修改,資料庫密碼
Set R = D.OpenRecordset("Select * From 數據表名稱")
'

Data1.Recordset.Delete '刪除該條記錄 ,(注意 在程序中你根據需要條件將記錄移到你需要刪除的位置才進行刪除)
D.Close '關閉資料庫
End Sub
'我今晚使用的電腦沒有安裝VB企業版,未經測試,如有疑問星期一上班有時間再回復。

Ⅱ VB 程序中 如果 進行了 SQL 資料庫 讀寫操作,如果防止資料庫存密碼泄露

這個對應第二條啊…

1。對於資料庫存儲密碼,你可以先對密碼進行MD5或SHA-512等的hash函數加密,然後再進行存儲…
2。對於資料庫自己的密碼,沒辦法防止,只能讓用戶自己輸入(就是第一次登錄讓用戶輸入密碼,然後把資料庫密碼設置成用戶輸入的密碼,以後登錄讓用戶自己輸入密碼,然後把密碼存入一個變數,用它去連接資料庫),然後看能不能連上資料庫就好了…

你可以對資料庫用戶許可權進行設置,先新建幾個用戶,然後用比如grand的SQL語句來調配它們的許可權,最後按需登錄就好了。
不論用什麼方法只要你存放了讀出明文的方法就不可能不被攻破,所以只能設置資料庫用戶許可權……
這實際是把安全移交給資料庫了,只要資料庫足夠安全就沒問題…

熱點內容
php辦公系統 發布:2025-07-19 03:06:35 瀏覽:898
奧德賽買什麼配置出去改裝 發布:2025-07-19 02:53:18 瀏覽:40
請與網路管理員聯系請求訪問許可權 發布:2025-07-19 02:37:34 瀏覽:189
ipad上b站緩存視頻怎麼下載 發布:2025-07-19 02:32:17 瀏覽:844
phpcgi與phpfpm 發布:2025-07-19 02:05:19 瀏覽:527
捷達方向機安全登錄密碼是多少 發布:2025-07-19 00:57:37 瀏覽:692
夜魔迅雷下載ftp 發布:2025-07-19 00:39:29 瀏覽:99
增值稅票安全接入伺服器地址 發布:2025-07-19 00:20:45 瀏覽:486
solidworkspcb伺服器地址 發布:2025-07-18 22:50:35 瀏覽:822
怎麼在堆疊交換機里配置vlan 發布:2025-07-18 22:42:35 瀏覽:630