Office中國(guó)論壇/Access中國(guó)論壇

 找回密碼
 注冊(cè)

QQ登錄

只需一步,快速開始

返回列表 發(fā)新帖
查看: 6948|回復(fù): 7
打印 上一主題 下一主題

[ADO/DAO] 【源碼】加強(qiáng)ODBC鏈接表安裝性,鏈接表不存密碼,全用代碼鏈接鏈接表

[復(fù)制鏈接]

點(diǎn)擊這里給我發(fā)消息

跳轉(zhuǎn)到指定樓層
1#
發(fā)表于 2015-6-24 16:38:23 | 只看該作者 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
經(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的安全性。

  1. Public Function gf_LinkSqlServer() As Boolean
  2.    On Error GoTo Err_LinkSqlServer
  3.     Dim strConn As String, dbCurr As DAO.Database
  4.     strConn = "ODBC;" & _
  5.     "DRIVER=SQL Server;" & _
  6.     "SERVER=192.168.0.8,1433;" & _  '可設(shè)置自己的端口,默認(rèn)為1433
  7.     "DATABASE=OfficeCn;" & _
  8.     "UID=OfficeCn;" & _  '用戶ID
  9.     "PWD=123" '登錄密碼,而在鏈接表中請(qǐng)不要保存密碼,以加強(qiáng)安全性
  10.     Set dbCurr = DBEngine.Workspaces(0).OpenDatabase("OfficeCn", False, False, strConn) 'OfficeCn 名稱可隨意給,只要有個(gè)名稱就行
  11.     dbCurr.Close
  12.     Set dbCurr = Nothing
  13.     MsgBox "連接成功", vbInformation, "連接SQL Server"
  14.     gf_LinkSqlServer = True
  15.     Exit Function
  16. Err_LinkSqlServer:
  17.     Err.Clear
  18.     MsgBox "連接出錯(cuò)!", vbCritical, "連接SQL Server"
  19.     gf_LinkSqlServer = False
  20. 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

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏3 分享分享 分享淘帖 訂閱訂閱
2#
發(fā)表于 2015-6-25 09:31:15 | 只看該作者
謝謝分享
回復(fù)

使用道具 舉報(bào)

3#
發(fā)表于 2015-6-25 11:03:23 | 只看該作者
贊一個(gè)!站長(zhǎng)大氣!

點(diǎn)擊這里給我發(fā)消息

4#
發(fā)表于 2015-8-28 06:07:03 來(lái)自手機(jī) | 只看該作者
今天試驗(yàn)了下,真是個(gè)好辦法。還實(shí)現(xiàn)了 不建DSN 連接,很棒。
5#
發(fā)表于 2015-12-13 21:14:18 | 只看該作者
學(xué)習(xí)了,很不錯(cuò)
6#
發(fā)表于 2018-3-5 00:59:05 | 只看該作者
請(qǐng)問(wèn),使用函數(shù)連接sql后如何使用表呢
7#
發(fā)表于 2023-5-21 22:40:39 | 只看該作者
謝謝大佬的分享!
8#
發(fā)表于 2023-11-16 08:00:54 | 只看該作者
謝謝分享
回復(fù)

使用道具 舉報(bào)

您需要登錄后才可以回帖 登錄 | 注冊(cè)

本版積分規(guī)則

QQ|站長(zhǎng)郵箱|小黑屋|手機(jī)版|Office中國(guó)/Access中國(guó) ( 粵ICP備10043721號(hào)-1 )  

GMT+8, 2025-7-13 08:07 , Processed in 0.104263 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復(fù) 返回頂部 返回列表