如何使用VBA判断是否已经成功连接SQL Server 2012服务器？

作者：绿色风分类：时间：2022-08-17 浏览：93

楼主 wise	Q：如何使用VBA判断是否已经成功连接SQL Server 2012服务器？ A：ALT+F11→插入模块，在模块中输入以下VBA代码： Sub 判断数据库是否连接成功() Dim StartTime As Variant, conn As Object '定义变量 StartTime = Timer Set conn = CreateObject("ADODB.Connection") '建立ADODB连接对象 conn.ConnectionString = "Driver={sql server};" _ & "server=WISE-THINK;" _ & "uid=;pwd=;" _ & "database=271模型;" _ & "AutoTranslate=False" '连接的服务器名称：WISE-THINK,所连接的数据库：271模型 On Error Resume Next conn.Open '打开连接SQL server On Error GoTo 0 If conn.State = adStateOpen Then '判断连接的状态 MsgBox "数据连接成功!", vbInformation, "连接服务器" Else MsgBox "数据库连接失败!", vbInformation, "连接服务器" End If conn.Close Set conn = Nothing MsgBox Timer - StartTime End Sub 同时学习VBA 关联SQL server 2012可参考该帖代码的说明：如何使用VBA连接SQL Server 2012 并提取数据？ http://www.exceltip.net/thread-39765-1-1.html
2楼 xyf2210	学习
3楼轩辕轼轲	学习了，连接数据库的哈

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表