简单脚本编译错误，实在无法找出原因了。（Access 操作）-专业自动化论坛-中国工控网论坛

简单脚本编译错误，实在无法找出原因了。（Access 操作）点击：362 | 回复：5

flybird2004

精华：0帖
求助：0帖
帖子：1帖 | 0回
年度积分：0
历史总积分：0
注册：2008年10月09日

发表于：2008-10-09 17:39:04

楼主

'注意：要启动脚本，请按下 <Ctrl><空格>，然后就可以看到各种不同函数。
'通过使用系统函数或 WinCC flexible 对象模型来编写脚本。您可以通过 HMI 运行系统对象很容易地访问系统
'。挑选对象引用的一个很便利的
'方式是按下 <Alt><右箭头>。通过使用编程语言 VBScript 的基本功能部件
'来设计复杂的脚本，并可以直接通过名称，例如 tag = 5，来访问变量。

Dim objConnection, objRecordset
Dim Const connSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = MP277.mdb;Persist Security Info=True"
Dim sqlStr = "Select explainCn From ParameterInfo Where parameterName = "&parameterName

Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = connSQL
objConnection.Open

Set objRecordset = CreateObject("ADODB.Recordset")
objRecordset.Open(sqlStr, objConnection)

If objRecordset.RecordCount > 0 Then
TranslateParameter = objRecordset.Fields("explainCn")
Else
TranslateParameter = parameterName
End If

生成时提示“脚本TranslateParameter编译有错”。但实在是找不出错在哪儿。希望各位高手指点一二。

分享到：