VB 利用时间控件过站

发布时间：2020-06-13 22:44:18 作者：liaoliaome
来源：网络阅读：521

使用SQL无源连接，须先点工程菜单选择引用然后勾选Microsoft ActiveX Data Objects 2.8 Library和Microsoft ActiveX Data Objects Recordset 2.8 Library

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

Private Sub Form_Load()

db.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial

Catalog=DATABASENAME;Data Source=192.172.0.2"

End Sub

Private Sub Timer1_Timer()

c = c + 1

If c Mod 60 = 0 Then

d = d + 1

rs.Open "update mes_sn set fnextterminalid=1098 where fworkorderno='m3112039405' and fnextterminalid=1097 and

fcurrentterminalid=1099", db

b = Str(d)

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

End If

End Sub

相关阅读