大家看数据库的数据:
29 13:11 2007-7-18 DASERVER
30 16:00 2007-7-18 DASERVER
31 16:00 2007-7-18 VIRUSSERVER
33 18:00 2007-7-18 VIRUSSERVER
35 22:00 2007-7-18 DASERVER
8 00:00 2007-7-18 DASERVER
12 07:45 2007-7-18 DASERVER
27 10:00 2007-7-18 VIRUSSERVER
32 18:00 2007-7-18 DASERVER
34 22:00 2007-7-18 VIRUSSERVER
28 13:11 2007-7-18 VIRUSSERVER
39 06:00 2007-7-19 DASERVER
40 07:45 2007-7-19 DASERVER
36 00:00 2007-7-19 DASERVER
37 02:00 2007-7-19 DASERVER
38 04:00 2007-7-19 DASERVER代码:
Private Sub Timer1_Timer()
Label7.Caption = Time()
If Label7.Caption = "2:00:00" Or Label7.Caption = "4:00:00" Or Label7.Caption = "6:00:00" Or Label7.Caption = "8:20:00" Or Label7.Caption = "10:00:00" Or Label7.Caption = "12:00:00" Or Label7.Caption = "14:00:00" Or Label7.Caption = "16:00:00" Or Label7.Caption = "18:00:00" Or Label7.Caption = "20:00:00" Or Label7.Caption = "22:00:00" Or Label7.Caption = "0:00:00" Then
Set rs = New ADODB.Recordset
Call cdata sql = "select content,times,dates,servername from space "
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
rs.AddNew
rs.Fields("content") = "-------------" & Label3.Caption & "服务器------------------" & vbCrLf + Label1.Caption & vbCrLf + Label2.Caption
rs.Fields("times") = Format(Now, "hh:mm")
rs.Fields("dates") = Date
rs.Fields("servername") = Label3.Caption
rs.Update
rs.Close
conn.Close
End If
End SubSQL2000的数据库在DASERVER服务器上,2个小时2个服务器向数据库写入一次,但是19号只有DASERVER服务器的数据
程序没有报错,而且连续几天都是这样,大概意思是日期变了一天VIRUSSERVER服务器就不向数据库写入数据,恳请大家帮忙非常谢谢!!
29 13:11 2007-7-18 DASERVER
30 16:00 2007-7-18 DASERVER
31 16:00 2007-7-18 VIRUSSERVER
33 18:00 2007-7-18 VIRUSSERVER
35 22:00 2007-7-18 DASERVER
8 00:00 2007-7-18 DASERVER
12 07:45 2007-7-18 DASERVER
27 10:00 2007-7-18 VIRUSSERVER
32 18:00 2007-7-18 DASERVER
34 22:00 2007-7-18 VIRUSSERVER
28 13:11 2007-7-18 VIRUSSERVER
39 06:00 2007-7-19 DASERVER
40 07:45 2007-7-19 DASERVER
36 00:00 2007-7-19 DASERVER
37 02:00 2007-7-19 DASERVER
38 04:00 2007-7-19 DASERVER代码:
Private Sub Timer1_Timer()
Label7.Caption = Time()
If Label7.Caption = "2:00:00" Or Label7.Caption = "4:00:00" Or Label7.Caption = "6:00:00" Or Label7.Caption = "8:20:00" Or Label7.Caption = "10:00:00" Or Label7.Caption = "12:00:00" Or Label7.Caption = "14:00:00" Or Label7.Caption = "16:00:00" Or Label7.Caption = "18:00:00" Or Label7.Caption = "20:00:00" Or Label7.Caption = "22:00:00" Or Label7.Caption = "0:00:00" Then
Set rs = New ADODB.Recordset
Call cdata sql = "select content,times,dates,servername from space "
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
rs.AddNew
rs.Fields("content") = "-------------" & Label3.Caption & "服务器------------------" & vbCrLf + Label1.Caption & vbCrLf + Label2.Caption
rs.Fields("times") = Format(Now, "hh:mm")
rs.Fields("dates") = Date
rs.Fields("servername") = Label3.Caption
rs.Update
rs.Close
conn.Close
End If
End SubSQL2000的数据库在DASERVER服务器上,2个小时2个服务器向数据库写入一次,但是19号只有DASERVER服务器的数据
程序没有报错,而且连续几天都是这样,大概意思是日期变了一天VIRUSSERVER服务器就不向数据库写入数据,恳请大家帮忙非常谢谢!!
解决方案 »
- VB6调用GDI+,IDE会崩溃
- VB6如何发出timeout 警告?
- 很迷糊的概念性问题,请大家帮忙解释一下
- VB Picture画曲线图 如何设置连接点的样式
- 小问题,online~~~~~~~~~~waiting~~~~~~~~~~
- 大侠,高手,帮忙解决问题,有关数据库的,急急!
- vb6+水晶报表的问题
- 关于算法的问题:想生成如下数据:然后去和数据库中的数据比较,如果数据库中的数据有两个号相同(比如:001、100、996等)并且包括在
- 十万火急:select sum() from table where name="" 的返回值
- 怎样访问服务器上的ODBC数据库?
- 跪求VB作的图书管理系统,简单的就行.哪位好心人给我发一个.....
- 大哥们,帮我电路分析软件看看用VB怎么实现啊?
Label7.Caption = Time()
If Label7.Caption = "2:00:00"
====================================
这种写法,万一1:59:59到2:00:01之间程序正在忙着干别的事情
岂不是要丢失一次数据?
Private Sub Timer1_Timer()
Label7.Caption = Time()
If Label7.Caption = "2:00:00"
====================================
这种写法,万一1:59:59到2:00:01之间程序正在忙着干别的事情
岂不是要丢失一次数据?我是想过了,但是没有想到一种好点方法,请大家给个建议!!
44 10:00 2007-7-19 DASERVER
45 10:00 2007-7-19 VIRUSSERVER大家看上面的数据,是10点收到的现在又是正常了,10点以前是没有VIRUSSERVER服务器的数据,好奇怪,我在自己电脑上测试了N次都是正常的,到服务器就有问题!!大家帮忙看看!