技術(shù) 點(diǎn)
- 技術(shù)
- 點(diǎn)
- V幣
- 點(diǎn)
- 積分
- 144710

|
經(jīng)常有網(wǎng)友會(huì)質(zhì)疑ODBC鏈接表的安全性,擔(dān)心鏈接表保存了鏈接到sql server數(shù)據(jù)庫(kù)的用戶名和密碼,讓sql server數(shù)據(jù)庫(kù)不安全,以前專門寫過(guò)這樣的技巧,今天再重新整理出來(lái),并做成通用的函數(shù),分享給大家。這種方式我們從1999年的項(xiàng)目開始使用,一直使用到現(xiàn)在,基本上滿足中小企業(yè)的安全要求。
1.將鏈接表(ODBC)連接的密碼不保存在鏈接表中,而使用代碼來(lái)連接,加強(qiáng)ODBC鏈接sql server的安全性。
- Public Function gf_LinkSqlServer() As Boolean
- On Error GoTo Err_LinkSqlServer
- Dim strConn As String, dbCurr As DAO.Database
- strConn = "ODBC;" & _
- "DRIVER=SQL Server;" & _
- "SERVER=192.168.0.8,1433;" & _ '可設(shè)置自己的端口,默認(rèn)為1433
- "DATABASE=OfficeCn;" & _
- "UID=OfficeCn;" & _ '用戶ID
- "PWD=123" '登錄密碼,而在鏈接表中請(qǐng)不要保存密碼,以加強(qiáng)安全性
- Set dbCurr = DBEngine.Workspaces(0).OpenDatabase("OfficeCn", False, False, strConn) 'OfficeCn 名稱可隨意給,只要有個(gè)名稱就行
- dbCurr.Close
- Set dbCurr = Nothing
- MsgBox "連接成功", vbInformation, "連接SQL Server"
- gf_LinkSqlServer = True
- Exit Function
- Err_LinkSqlServer:
- Err.Clear
- MsgBox "連接出錯(cuò)!", vbCritical, "連接SQL Server"
- gf_LinkSqlServer = False
- End Function
復(fù)制代碼
2. 以前寫過(guò)的相關(guān)技巧
1)代碼自動(dòng)創(chuàng)建ODBC源
http://m.mzhfr.cn/thread-92751-1-1.html
2)tsilon的Access-ODBC-SQL數(shù)據(jù)安全性可以如此提高的
http://m.mzhfr.cn/thread-93957-1-1.html
3) sql server鏈接表的登錄
http://m.mzhfr.cn/thread-111016-1-1.html
|
|