dim rs as new adodb.recordsetrs.open "getdate()",你的数据库连接
服务器时间=rs.fields(0).value
rs.close
set rs=nothing

解决方案 »

  1.   

    sql server是select getdate()
    access 是select now()
      

  2.   

    得到服务器时间可以用net time 命令.
    net time
    使计算机的时钟与另一个计算机或域的时钟同步。如果在没有 /set 选项的情况下使用,则显示另一个计算机或域的时间。net time [\\computername | /domain[:domainname] | /rtsdomain[:domainname]] [/set] net time [\\computername] [/querysntp] | [/setsntp[:ntp server list]]参数 无显示被指派为本地计算机的 Windows 服务器域的时间服务器的计算机的当前时间。\\computername指定要检查或与之同步的服务器的名称。 /domain[:domainname]指定要同步时间的域。/rtsdomain[:domainname]指定要与之同步的可信时间服务器所在的域。/set使计算机的时钟与指定的计算机或域的时间同步。/querysntp显示当前为本地计算机或 \\computername 所指定的计算机配置的网络时间协议 (NTP) 服务器的名称。/setsntp[:ntp server list]指定本地计算机所使用的 NTP 时间服务器的列表。该列表可以包含 IP 地址 或 DNS 名称,用空格分开。如果要使用多个时间服务器,该列表必须用引号引起来。在VB中用shell来调用它。