使用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://cdxtjz.cn/article/jocdpj.html
