中文字幕av专区_日韩电影在线播放_精品国产精品久久一区免费式_av在线免费观看网站

溫馨提示×

溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

VB 利用時間控件過站

發布時間：2020-06-13 22:44:18 來源：網絡 閱讀：517 作者：liaoliaome 欄目：編程語言

使用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
向AI問一下細節

免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。

AI
助
手
京山县| 阳高县| 兴国县| 普兰县| 赣州市| 上高县| 衡东县| 宁陵县| 民县| 凌源市| 昭苏县| 清涧县| 富源县| 郸城县| 娄底市| 河津市| 醴陵市| 九台市| 汝南县| 右玉县| 崇义县| 紫阳县| 望奎县| 阳东县| 平塘县| 金塔县| 万荣县| 柘荣县| 胶南市| 黄冈市| 加查县| 达孜县| 布尔津县| 南涧| 安岳县| 县级市| 剑河县| 措美县| 江门市| 鄂托克前旗| 奉贤区|