溫馨提示×

溫馨提示×

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

密碼登錄×

忘記密碼？

登錄注冊×

獲取短信驗證碼

其他方式登錄

點擊登錄注冊即表示同意《億速云用戶服務條款》

用戶登錄×

賬戶密碼登錄

請使用微信掃描上方二維碼

使用幫助

請求超時！

請點擊重新獲取二維碼

VB 利用時間控件過站

發布時間：2020-06-13 22:44:18 來源：網絡閱讀：559 作者：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進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。

上一篇新聞：
Windows Server 2008 R2使用WDS服務實現批量安裝操作系統演示
下一篇新聞：
oracle12c數據庫管理常用語句

猜你喜歡

AI
助
手

產品服務

地區劃分

專題活動

幫助支持

關于我們

售后咨詢

7*24小時在線電話：400-100-2938

7*24小時在線 QQ：800811969

關注億速云

億速云公眾號

手機網站二維碼

亚洲午夜精品一区二区_中文无码日韩欧免_久久香蕉精品视频_欧美主播一区二区三区美女