如何获得运行sql server的服务器的时间?

Question

如何获得运行sql server的服务器的时间?
我用VB编写

Answer 1

Sql = "select getdate()"
  SqlRec.Open Sql, SQLcon, adOpenStatic, adLockOptimistic
    CheckTime = SqlRec.Fields(0)
  SqlRec.Close
  Set SqlRec = NothingCheckTime 就是服务器的时间

Answer 2

iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
    "User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"
cn.ConnectionString = iConcStr
cn.CursorLocation = adUseClient
cn.Open
rs.ActiveConnection = cnrs.Open "select getdate() as d",cn
msgbox "当前时间为：" & trim(rs!d)
rs.Close
cn.close