如何wincc中使用VBS脚本读写SQLServer数据库文件

Posted 2023-04-13

参考技术A wincc中使用VBS脚本读写SQLServer数据库文件_百度文库http://wenku.baidu.com/view/01105a32a32d7375a4178033.html
根据你自己的需求建立数据库的表
然后通过vbs读写相应的数据，读写数据的代码网上都有 参考技术B 如何wincc中使用VBS脚本读写SQLServer数据库文件
set cn = CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.Recordset")
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;data source=192.168.0.102;User ID=sa;Password=password;Initial Catalog=DBName"
rs.Open "select * from Qsoft", cn, 1,3
While Not (rs.EOF)
msgbox rs("ID")
rs.MoveNext
Wend
rs.Close
cn.Close本回答被提问者采纳

使用wincc vbs脚本查找进程及如何运行进程

使用vbs代码查看某个进程是否在运行，本文要检查的进程名为 QRscan.exe，其代码如下：

sub CheckProcess

Dim WMI,Objs,Process,Obj
Set WMI=GetObject("WinMgmts:")
Set Objs=WMI.InstancesOf("Win32_Process")
Process=""

‘遍历所有在运行的进程
For Each Obj In Objs
‘Process=Process & Obj.Description & Chr(13) & Chr(10)
Process = Obj.Description
If Process = "QRscan.exe" Then
Msgbox "QRscan.exe在运行中..."
Exit For ‘发现所需进程时退出遍历
end if
Next

End sub

当遍历结束扔没有找到该进程时，可开启该进程，其代码如下：

dim objShell

set objShell = CreateObject(“Wscript.Shell”)

objShell.Run “E:\\QRscan.exe” ,,true  ‘假如此进程路径在E盘根目录 第一个参数：进程路径，第二参数：窗口形式，第三个参数：同步/异步执行；