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