獲得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條評論