VB 利用时间控件过站
发布时间：2020-12-16 22:33:31 所属栏目：大数据 来源：网络整理
导读：使用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 In
|
使用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
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |