怎样在ACCESS中用VBA测试一个MSSQL服务器是否存在或正常运行？

Question

我们单位的MSSQL服务器经常关机维护，我用ACCESS通过ODBC链接MSSQL中的表，怎样在打开ACCESS时，用VBA自动测试一下MSSQL是否正常运行？谢谢！
另外，链接表如果不记住MSSQL用户密码，而是每次打开ACCESS时输入,如何测试输入的用户名和密码是否正确?

Answer 1

access里可以写一个函数，函数可用ado来连接mssql,此可判断连没连上,然后用access启动中的宏来调用这个函数

Answer 2

直接用select getdate()，如果能成功返回，表示SQL Server服务正常。

Answer 3

function CheckSQLServerConnection ()
on error resume nextdim conn as new adodb.connection
conn.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=<User ID>;Initial Catalog=pubs;Data Source=<YourDataSourceName>;Network Library=dbnmpntw"if err<>0 then
    msgbox "连接 SQL SERVER 失败，原因如下：" & err.description
else
    conn.close
end ifend function