VB实现服务器时间和本机时间同步

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

创新互联公司主要从事网站建设、成都网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务龙文,十多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务: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

VB怎么设置局域网中其他电脑的时间？

使局域网中的电脑时间同步方法如下：

如果使用的是winNT/2000/xp，设置一台计算机为时间服务器，

在控制面板中的服务中可以启动或停止。

其他的计算机使用Net

time

命令来进行时间同步。可以做到秒级的时间同步。

NET

TIME

作

用：使计算机的时钟与另一台计算机或域的时间同步。

命令格式：net

time

[\\computername

|

/domain[:name]]

[/set]

参数介绍：

(1)\\computername要检查或同步的服务器名。

(2)/domain[:name]指定要与其时间同步的域。

(3)/set使本计算机时钟与指定计算机或域的时钟同步。

当然也可以在作为时间服务器的机器上安装GPS。来保证服务器的时间准确。时间服务器也可以选择专业的时间服务器。

怎么在VB.net中实时显示时间

定时器中处理

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

网页名称：vb.net时间同步显示的简单介绍
URL分享：http://myzitong.com/article/doeopeg.html