Question

vb6.0如何获取sql server的时间？

Public Function GetServerTime() As String
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Dim sql As String
sql = "select getdate() ServerDate"
rst.Open sql, CnnToData, adOpenKeyset, adLockReadOnly, adCmdText
GetServerTime = FormatDateTime(rst!ServerDate, vbShortDate)
rst.Close
Set rst = Nothing
End Function

说这个可以获得， 但是要改一下cnntodata，但是我不知道该如何改， 高手帮帮忙？？

Answer 1

vb6.0如何获取sql server的时间？
"driver={SQL Server};server=你的服务名称;uid=登录账户;pwd=密码;database=数据库名称"
--模板
在server这里，如过你是本机，就可以用本机的IP、计算机名、127.0.0.1==

Answer 2

"driver={SQL Server};server=你的服务名称;uid=登录账户;pwd=密码;database=数据库名称"
--模板
在server这里，如过你是本机，就可以用本机的IP、计算机名、127.0.0.1==

Answer 3

cnntodata就是你的数据库连接字符串