vb如何在工作站取得NT中SQL服务器的当前时间?请写详细.

[ly2098]

[lyy]

例子：
Dim lrst As New ADODB.Recordset
Dim ServerDateTime as Date

lrst.Open "select getdate();", gscon
fServerDateTime = lrst.Fields(0)
lrst.Close

[bombju]

例子:

Public Sub SyncSystemtime()
Dim adodatetime As New ADODB.Connection
adodatetime.Open adoConnStr
Time$ = adodatetime.Execute("Select Convert(char(8),getdate(),108)")(0)
Date$ = adodatetime.Execute("Select Convert(char(10),getdate(),111)")(0)
Set adodatetime = Nothing
End Sub

[929]

可用SQL SERVER中的GETDATE（）函数取得SQL 服务器内部的时间。
在VB中如果ADO的话，可用ADODB。COMMAND来完成。在完成数据库的操作后，将COMMANDTEXT置为“SELECT GETDATE（）”。