vb获取服务器时间

在窗体中建一个文本框和时间控件,可以在文本框中显示跳动的服务器时间

Private Sub Form_Load()

Timer1.Interval = 300

End Sub

Private Sub Timer1_Timer()

Dim cnn As New ADODB.Connection

Dim cmd As New ADODB.Command

Dim rst As New ADODB.Recordset

Dim Sqlser_time

cnn.ConnectionString = "driver={SQL Server}" &_

"server=serveruid=sapwd=database=master"

cnn.Open

cmd.ActiveConnection = cnn

cmd.CommandText = "SELECT GETDATE() AS sys_Sqlser_time"

Set rst = cmd.Execute

Sqlser_time = rst(0)

Text1.Text = Sqlser_time

rst.Close

cnn.Close

End Sub

VB：

response.write date()

SQL Server：

select CONVERT(varchar(10),getdate(), 120)

select CONVERT(varchar(100),getdate(), 23)

如果是网页时间3楼正解。如果上要获取网络上服务器时间，你就在要服务器上建立一个数据库，数据库建立数据表，数据表设置自动获取时间，在一个字段的默认值里输入=GetDate

在本机上连接数据库，要想用一个事件显示网络时间就把字段事件触发时更新一下，以一个计数器为例显示系统时间（预先设置Timer1控件为真，Traval=1000）代码如下：

Private Sub Timer1_Timer()

Adodc1.ConnectionString="Driver={SQL Server}Server=服务器名UID=数据库用户名PWD=数据库密码dataBase=数据库名"

Adodc1.Recordsource="Select * From 数据表"

Adodc1.Refresh

While Not Adodc1.RecordSet.EOF

Label1.Caption = Adodc1.RecordSet.Fields("自动获取时间字段")

Wend

End Sub

这样就好了，让他定时刷新数据库时间

---