在窗体中建一个文本框和时间控件,可以在文本框中显示跳动的服务器时间
创新互联公司主要从事网站建设、成都网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务龙文,十多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108
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=server;uid=sa;pwd=;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
使局域网中的电脑时间同步方法如下：
如果使用的是winNT/2000/xp，设置一台计算机为时间服务器，
在控制面板中的服务中可以启动或停止。
其他的计算机使用Net
time
命令来进行时间同步。可以做到秒级的时间同步。
NET
TIME
作
用：使计算机的时钟与另一台计算机或域的时间同步。
命令格式：net
time
[\\computername
|
/domain[:name]]
[/set]
参数介绍：
(1)\\computername要检查或同步的服务器名。
(2)/domain[:name]指定要与其时间同步的域。
(3)/set使本计算机时钟与指定计算机或域的时钟同步。
当然也可以在作为时间服务器的机器上安装GPS。来保证服务器的时间准确。时间服务器也可以选择专业的时间服务器。
定时器中处理
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 10 '10毫秒刷新一次
Timer1.Start() '开启定时器
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Now
End Sub
