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 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利用时间控件过站
文章地址:http://bzwzjz.com/article/jocdpj.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 成都网站设计 响应式网站设计方案 app网站建设 网站制作报价 成都网站制作公司 成都网站设计 成都网站建设 企业网站建设公司 定制网站制作 成都品牌网站建设 成都网站制作 手机网站制作 网站制作公司 响应式网站建设 泸州网站建设 高端网站设计 重庆电商网站建设 网站制作 企业网站设计 自适应网站建设 网站建设方案 网站设计公司