甜橘子，专注成都网站制作网站设计与营销型网站建设与优化

QQ :532337155
电话：028-86922220
 
成都网站建设设计

将想法与焦点和您一起共享

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://chengdu.cdxwcx.cn/article/jocdpj.html

其他资讯