高手进来一下，高分相送！！！！
我想问一下这样的效果怎么样实现！
根据系统的时间
在规定的时间里自动插入数据库
是自动，不用人工干预。
例如每天的00：00：00就自动插入
高手们，应该怎么做呢？
高分相送，在线等！
Private Sub Command1_Click()
'----------------获取已经申请人的信息-----------------------
Dim sql1 As String
Dim rs1 As New ADODB.Recordset
sql1 = "select * from chengyuan where name not in (select name from zhuangtai where intime='" & Combo3.Text & "-" & Combo4.Text & "-" & Combo5.Text & "')"
rs1.Open sql1, conn, 1, 1
If rs1.EOF Then '--------如果没有就表示全部插入了-----------
MsgBox Combo3.Text & "-" & Combo4.Text & "-" & Combo5.Text & "已经添加了！", vbInformation, "提示"
Else '--------------------------有申请人姓名----------------------
Do While Not rs1.EOF
Dim arr1 As String
Dim brr1 As String
brr1 = brr1 + rs1.Fields("bumen") & ";"
arr1 = arr1 + rs1.Fields("name") & ";"
rs1.MoveNext
Loop
rs1.Close
Dim i1 As Integer
Dim j1 As Integer
Dim a1 As Variant
Dim b1 As Variant
a1 = Split(arr1, ";")
b1 = Split(brr1, ";")
i1 = UBound(a1)
For i1 = 0 To i1 - 1
Dim sql22 As String
sql22 = "insert into zhuangtai(name,intime,zhuangtai,bumen) values ('" & a1(i1) & "','" & Combo3.Text & "-" & Combo4.Text & "-" & Combo5.Text & "','" & Combo1.Text & "','" & b1(i1) & "')"
conn.Execute (sql22)
Next
MsgBox Combo3.Text & "-" & Combo4.Text & "-" & Combo5.Text & "添加成功！", vbInformation, "提示"
End If
End If
End Sub
以上是我在VB6。0的代码
我现在要的是在规定时间里每天00：00：00
自动实现上面的操作内容。
要通过判断一个表，然后再自动插入另一个表
问题点数：50、回复次数：4Top
1 楼daknis（杰瑞）回复于 2005-04-02 13:38:38 得分 20
做一个组件，让服务器专门有一个进程执行这个足见的程序
判断到了某个时间，执行什么操作Top
2 楼wzlove（落伍）回复于 2005-04-02 13:47:31 得分 10
要触发机制吧。Top
3 楼look4sword（觅剑 | 劈柴、喂马、周游世界。）回复于 2005-04-02 13:50:56 得分 10
除非你让浏览器一直开着，不停刷新这一页。Top
4 楼Fufay（☆梅笑寒☆ MSN: fufay@126.com）回复于 2005-04-02 14:45:17 得分 10
web页要实现这个功能太困难了。不可以能一个页子一直开并刷新。
写组件吧，写服务进程。Top
