在局域网中客户机如何与服务器同步时间？(100分)

Question

在局域网中客户机如何与服务器同步时间？

Answer 1

mydata.Open "select getdate() as da", cn
    SDE = Format(mydata("da"), "yyyy.MM.dd")
    SDE = mydata("da")
    mydata.Close
    
    这样就可以提取出服务器的时间，你完全可以在程序中用服务器的时间。

Answer 2

同意楼上的取出服务器时间就可以直接对客户机的时间直接赋值修改time=…………

Answer 3

Private Sub Command1_Click()
    Dim rs As New ADODB.Recordset
    
    rs.Open "select getdate() from tablename", cn, adOpenForwardOnly, adLockReadOnly
'把tablename换成你数据库中存在的表名!    Date = Format(rs.Fields(0).Value, "yyyy/mm/dd")
    Time = Format(rs.Fields(0).Value, "hh:mm:ss")
    
    rs.Close
    Set rs = Nothing
End Sub

Answer 4

两千下
shell "cmd net time \\机器名 /set /y"