不對。步驟如下:
專注于為中小企業(yè)提供成都網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)和政免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動了上1000+企業(yè)的穩(wěn)健成長,幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
添加一個(gè)label標(biāo)簽名字label1 用來顯示時(shí)間
再添加一個(gè)timer控件 名字timer1 interval屬性=1000 用來計(jì)時(shí)
窗體添加代碼
Dim t As Date '用來記錄時(shí)間
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
t = t.AddSeconds(1)
Label1.Text = "登錄時(shí)間:" t.TimeOfDay.ToString
End Sub
Timer1.Interval = 500
Private Sub Timer1_Timer()
Timer1.Enabled = False
Dim ss As String
ss = Format(Now, "HH:mm:ss")
If ss = "12:00:00" Then
'執(zhí)行備份語句
End If
Timer1.Enabled = True
End Sub
還有一個(gè)辦法就是可以用SQL自身的功能,在SQL里面可以添加任務(wù) ,設(shè)置周期為每天,時(shí)間為12點(diǎn),到時(shí)候執(zhí)行一下備份
樓上回答不對,這個(gè)問題很常見,就是在線程中使用到了控件,在這種狀況下,不能直接操作控件屬性,而只能通過委托的方法去實(shí)現(xiàn)