module1.bas

会员后台sql管理工具。 方便续费

Attribute VB_Name = "Module1"
Function Sqlser_time() As Date '获得SQL服务器时间
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
cnn.ConnectionString = "driver={SQL Server};" & _
"server=61.174.60.164;uid=jincaia;pwd=meilishijie;database=jincai"
cnn.Open
cmd.ActiveConnection = cnn
cmd.CommandText = "SELECT GETDATE() AS sys_Sqlser_time"
Set rst = cmd.Execute
Sqlser_time = rst(0)
rst.Close
cnn.Close
End Function