當前位置:首頁 » 密碼管理 » 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語句來調配它們的許可權,最後按需登錄就好了。
不論用什麼方法只要你存放了讀出明文的方法就不可能不被攻破,所以只能設置資料庫用戶許可權……
這實際是把安全移交給資料庫了,只要資料庫足夠安全就沒問題…

熱點內容
安卓上哪裡下大型游戲 發布:2024-12-23 15:10:58 瀏覽:189
明日之後目前適用於什麼配置 發布:2024-12-23 14:56:09 瀏覽:56
php全形半形 發布:2024-12-23 14:55:17 瀏覽:829
手機上傳助手 發布:2024-12-23 14:55:14 瀏覽:733
什麼樣的主機配置吃雞開全效 發布:2024-12-23 14:55:13 瀏覽:831
安卓我的世界114版本有什麼 發布:2024-12-23 14:42:17 瀏覽:711
vbox源碼 發布:2024-12-23 14:41:32 瀏覽:279
詩經是怎麼存儲 發布:2024-12-23 14:41:29 瀏覽:661
屏蔽視頻廣告腳本 發布:2024-12-23 14:41:24 瀏覽:420
php解析pdf 發布:2024-12-23 14:40:01 瀏覽:820