獲得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。關閉

結束函數

位律師廻複