安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

登录时自动测试刷新ODBC数据源(sql server)避免弹出输入用户名和密码

2017-08-17 09:22:00
zstmtony
原创
1779

使用Odbc数据源链接到Sql server数据库时,如果用户名和密码没有保存在数据表的话,则打开链接表时第一次总是会提示要输入Sql server用户名和密码

可以使用下面的函数,将用户名和密码放在代码中(或从?#29992;?#30340;数据表中读取用户名和密码),这样就避免别人知道你的数据库用户名和密码。


Function gt_TestOdbc() As Boolean
On Error GoTo err_c
DoCmd.SetWarnings False

Dim Response As Integer
Dim connstr As String, mydb As DAO.Database
      connstr = "ODBC;" & _
                "DRIVER=SQL Server;" & _
                "SERVER=127.0.0.1,7788;" & _
                "DATABASE=wzk;" & _
                "UID=sa;" & _
                "PWD=admin"

Set mydb = DBEngine.Workspaces(0).OpenDatabase("", False, False, connstr)

gt_TestOdbc = True
Exit Function
err_c:

gt_TestOdbc = False
MsgBox "数据库用户,口令错误,重新登录!", , "文具"
Exit Function
End Function


但如果用户名 密码不对,或Sql server服务器无法连接时,则会弹出系统的要求输入数据库用户名和密码的窗口,
1.刷新链接这个系统窗口无法禁止的
2.在使用之先先判断一个表是否可连接 ,或先判断服务器IP是否可PING通.如果不通,基本上就判断连不到,采取措施
3. 也可在创建之前先用ADO试连接,能连接成功,直接创建链接表,否则,捕获ado连接错误信息,判断是否服务器不通,并直接提示连接不通,退出

分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:18
内存占用:7.75MB
PHP 执行时间:0.17
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
国安负全北现代 火影忍者ol佩恩 3u娱乐城真人百家乐赌博 白银之手五骑士 皇家贝蒂斯vs巴塞罗那 pk10稳定赛车计划群 今天江苏快3开奖结果 德国斯图加特展览中心 公益服梦幻诛仙上线送1.5亿 麦迪老鹰vs活塞