mysql写定时执行语句_如何定时执行mysql里面的的语句

Dim db As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim sql As String

Dim c As Integer

Dim d As Integer

Dim b As String

Dim ter As String

Private Sub Command1_Click()

Open "D" & "\" & Text2.Text & ".txt" For Output As #1

Print #1, a

Close #1

'End Sub

'text1路径

'text2文件名

'A为输出内容

End Sub

Private Sub Form_Load()

db.Open "Provider=SQLOLEDB.1;Password=a1c1t1m1112111;Persist Security Info=True;User ID=sa;Initial Catalog=AIS20090915085021;Data Source=192.172.100.103"

End Sub

Private Sub Timer1_Timer()

c = c + 1

If c Mod 60 = 0 Then

d = d + 1

ter = 1017

'rs.Open "UPDATE MES_SN SET FNEXTTERMINALID=" + ter + " WHERE fsn='2102310ersbtd1000001'", db

'rs.Open "INSERT INTO MES_AAAAAAAAAAA(FSN,FLASTUPDTIME) VALUES('456',GETDATE())", db

'rs.Open "UPDATE MES_SN SET FNEXTTERMINALID=1096 WHERE WHERE fworkorderno='M31131022726' and fnextterminalid=1017", db

'rs.Open "UPDATE MES_SN SET FNEXTTERMINALID=1100 WHERE fworkorderno in ('M31130518401','M31130518304','M31130518367','M31130618579','M31130518498','M31130518053','M31130518399','') AND FNEXTTERMINALID=1097 AND FCURRENTTERMINALID=1098", db

'rs.Open "delete MES_SN_KPSN  where fsn in (select fsn from mes_sn where fworkorderno='M31141137092') and finterid=1 and lastupdtime

'rs.Open "INSERT INTO MES_SN_KPSN(FInterID,FSN,FKPSN,FWorkOrderNo,LastUpdTime,LastUpdUser,FISUPLOAD,cable) SELECT FInterID,FSN,FKPSN,FWorkOrderNo,LastUpdTime,LastUpdUser,1,cable FROM MES_SN_KPSN_UNBUNDLE WHERE FSN IN (SELECT FSN FROM MES_SN WHERE FWorkOrderNo='M31150544523')", db

rs.Open "update MES_SN set FNextTerminalID=1080 WHERE FWorkOrderNo='M31170594077' and FNextTerminalID=1094", db

b = Str(d)

Label1.Caption = "已经执行第" + b + "次"

End If

End Sub