VB 利用时间控件过站

概述使用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 St

使用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 总结

以上是内存溢出为你收集整理的VB 利用时间控件过站全部内容，希望文章能够帮你解决VB 利用时间控件过站所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。