|
经常有网友会质疑ODBC链接表的安全性,担心链接表保存了链接到sql server数据库的用户名和密码,让sql server数据库不安全,以前专门写过这样的技巧,今天再重新整理出来,并做成通用的函数,分享给大家。这种方式我们从1999年的项目开始使用,一直使用到现在,基本上满足中小企业的安全要求。
1.将链接表(ODBC)连接的密码不保存在链接表中,而使用代码来连接,加强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;" & _ '可设置自己的端口,默认为1433
- "DATABASE=OfficeCn;" & _
- "UID=OfficeCn;" & _ '用户ID
- "PWD=123" '登录密码,而在链接表中请不要保存密码,以加强安全性
- Set dbCurr = DBEngine.Workspaces(0).OpenDatabase("OfficeCn", False, False, strConn) 'OfficeCn 名称可随意给,只要有个名称就行
- dbCurr.Close
- Set dbCurr = Nothing
- MsgBox "连接成功", vbInformation, "连接SQL Server"
- gf_LinkSqlServer = True
- Exit Function
- Err_LinkSqlServer:
- Err.Clear
- MsgBox "连接出错!", vbCritical, "连接SQL Server"
- gf_LinkSqlServer = False
- End Function
复制代码
2. 以前写过的相关技巧
1)代码自动创建ODBC源
http://www.office-cn.net/thread-92751-1-1.html
2)tsilon的Access-ODBC-SQL数据安全性可以如此提高的
http://www.office-cn.net/thread-93957-1-1.html
3) sql server链接表的登录
http://www.office-cn.net/thread-111016-1-1.html
|
|