谁能帮我解释一下这段脚本程序.不明白 点击：272 | 回复：4
发表于：2008-07-16 10:19:23
楼主
Option Explicit
Function action
Dim Con
Dim Com
Dim Dat
Dim ConStr
Dim SQLStr
ConStr="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\\Projects\\SurveyOW\\SurveyWn\\SurveyDB.accdb"
Set Con=CreateObject("ADODB.Connection")
Con.ConnectionString=ConStr
Con.Open
Set Com=CreateObject("ADODB.Command")
Com.ActiveConnection=Con
Set Dat=CreateObject("ADODB.Recordset")
SQLStr="Select WinCCQuit From Options"
Com.CommandText=SQLStr
Set Dat=Com.Execute
If (Dat.Fields.Count>0) Then
Dat.MoveFirst
If Dat.Fields(0).Value="Y" Then
SQLStr="Update Options Set WinCCQuit='N'"
Com.CommandText=SQLStr
Com.Execute
HMIRuntime.Stop
End If
End If
Set Dat=Nothing
Set Com=Nothing
Con.Close
Set Con=Nothing
End Function
Function action
Dim Con
Dim Com
Dim Dat
Dim ConStr
Dim SQLStr
ConStr="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\\Projects\\SurveyOW\\SurveyWn\\SurveyDB.accdb"
Set Con=CreateObject("ADODB.Connection")
Con.ConnectionString=ConStr
Con.Open
Set Com=CreateObject("ADODB.Command")
Com.ActiveConnection=Con
Set Dat=CreateObject("ADODB.Recordset")
SQLStr="Select WinCCQuit From Options"
Com.CommandText=SQLStr
Set Dat=Com.Execute
If (Dat.Fields.Count>0) Then
Dat.MoveFirst
If Dat.Fields(0).Value="Y" Then
SQLStr="Update Options Set WinCCQuit='N'"
Com.CommandText=SQLStr
Com.Execute
HMIRuntime.Stop
End If
End If
Set Dat=Nothing
Set Com=Nothing
Con.Close
Set Con=Nothing
End Function
热门招聘
相关主题
- PLC的模拟量模块怎么接电阻远...
[8598] - 西门子PLC的几种编程语言简单...[9145]
- 对“5V 的TTL电平怎么转换到2...[11192]
- 编程技巧展示：为一求助帖用S...[7172]
- PID命令的使用例程[7360]
- （已结束）工控PLC擂台第3期－－...[7622]
- 伺服电机默认正转方向是顺时...[7617]
- PID参数如何设定调节[12972]
- 欧姆龙PLC如何使用MSKS指令编...[8102]
- 请教STEP7 的仿真器PLCSIM如...[15762]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
