请教我怎样从客户端获得服务器的系统时间？

Question

Select ServerDate=getdate()用ado传倒服务器，然后再recordset中取数值

Answer 1

这是吴文智的答案,送给你
Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=ttt;Data Source=tiger"
    conn.Open
    
    Set rs = New ADODB.Recordset
    rs.Open "select getdate() as fldTime", conn
    
    MsgBox rs.Fields("fldtime")
    MsgBox Format(rs.Fields("fldtime"), "hh:mm")
    '取得后将这个值赋给本机时间就行了
        
    rs.Close
    conn.Close
    
    Set rs = Nothing
    Set conn = Nothing

Answer 2

谢谢，楼上的。Set rs = Nothing
Set conn = Nothing
两句是什么意思呀？

Answer 3

关闭数据库，类似C和DELPHI中的析构函数

Answer 4

to:csdnxgz(小贵子)　
Set rs = Nothing
Set conn = Nothing的意思是释放掉这两个对象

Answer 5

to JunLing():
吴文智现在在哪？怎么联系？
QQ：47061031
有消息麻烦告诉我一声，谢谢。　

Answer 6

to:luocc(罗)to:csdnxgz(小贵子)　
QQ：64897732但是我现在没空,以后再聊吧