获得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。关闭
结束函数
0条评论