!数据库写入问题,郁闷很久了请大家帮忙
大家看数据库的数据:
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 Sub
SQL2000的数据库在DASERVER服务器上,2个小时2个服务器向数据库写入一次,但是19号只有DASERVER服务器的数据
程序没有报错,而且连续几天都是这样,大概意思是日期变了一天VIRUSSERVER服务器就不向数据库写入数据,恳请大家帮忙非常谢谢!!