新手关于wincc用vbs访问sql本地数据库（不是归档数据）的问题，脚本如下

Question

"查询"、"直径1"、"厚度1"、"直径2"、"序号"是wincc的内部变量
NO、直径、厚度为数据库里的列名，前三列
脚本是错的，哪位大侠能改下
目的是以直径1和厚度1为条件从数据库里查询满足条件的记录
并把该记录的NO和直径写到变量序号和直径2中去

Option Explicit
Function action
Dim cnn
Dim rs
Dim connect_string
Dim statestring
Dim a,b,c,d
Dim y(70)
Set a=HMIRuntime.Tags("查询")
a.Read
Set b=HMIRuntime.Tags("直径1")
b.Read
Set c=HMIRuntime.Tags("厚度1")
c.Read

If (a.value) Then
Set cnn =CreateObject("ADODB.Connection")
Set rs =CreateObject("ADODB.Recordset")
'连接SQL数据库
cnn.connectionstring = "DSN=SQLconn;APP=Visual Basic;WSID=ALEX;Network=DBMSSOCN;Address=ALEX\WINCC;Trusted_Connection=Yes"
cnn.Open
rs.ActiveConnection = cnn
rs.LockType = 3
rs.CursorType = 2
rs.Open "Select * From zhazhibiao"

rs.Find("直径=" & b.value And "厚度=" & c.value)

If rs.eof=True Then
MsgBox "该规格不存在!",,"提示"
Else
Set y(1)=HMIRuntime.Tags("序号")
y(1).read
Set y(2)=HMIRuntime.Tags("直径2")
y(2).read

y(1).write rs.field("NO").value,1
y(2).write rs.field("直径").value,1
End If
rs.Close
cnn.Close
End If
a.Write 0,1
End Function

Answer 1

引起无法找到脚本文件的原因有以下两种情况：一种情况是由于系统感染了U盘文件夹病毒，文件夹被隐藏，出现了文件夹图标的快捷方式，指向病毒文件（多为vbs恶意脚本）， 如果指向的vbs脚本被杀毒软件删除的话，会造成用户在打开"文件夹"时报错，提示无法打开脚本文件。
解决第一种情况：U盘病毒破坏我的电脑
由于病毒破坏了我的电脑的打开方式（指向病毒文件），病毒文件被删除之后就会造成我的电脑无法打开。解决方案就是修复我的电脑的打开方式。
第二种情况是下载软件的时候不小心点到欺诈下载的病毒文件，打开后中招，导致桌面，快速启动栏，开始菜单里的快捷方式被篡改，同样 由于vbs恶意脚本被杀毒软件删除，导致打开快捷方式提示错误而且无法打开。
修复步骤：
1，下载系统文件修复工具。
2，立即点击开始修复按钮马上解决无法找到脚本文件等问题。
3，最后一步很重要：待系统修复完毕下载可牛杀毒进行全盘查杀，确保系统中没有残存的木马病毒。
下载地址：

Answer 2

Dim WSH

Set WSH=CreateObject("Wscript.Shell")

WSH.Run "calc"
请参考