获得SQL服务器时间的VB代码

函数ser _ time () as date '获取SQL server时间
dim cnnas new adodb . connection
dim cmd as new adodb . command
dim rst as new adodb . recordset。

cnn。ConnectionString = " driver = { SQL Server }；"& _
" server = SER；uid = sapwd = a123database=master"
cnn。打开

cmd。ActiveConnection = cnn
cmd。CommandText = " SELECT GETDATE()AS sys _ SQL ser _ time "

设置rst = cmd。execute

SQL ser _ time = rst(0)

rst。关闭
cnn。关闭

结束函数