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

合集下载

在WinCC中通过VBS操作SQL Server2005

在项目中需要在一定条件满足时，保存一些数据到数据库中，并可根据条件查询。考虑到WinCC6.2以后采用的就是SQL Server2005数据库，所以直接利用该数据库即可，通过SQL Server Management Studio（SSMS）可以创建自己的数据库，并安要求创建好表。

一、数据库连接

在SQL Server Management Studio（SSMS）中创建名为evcp的数据库，再创建名为evcp的表，然后根据需要创建Columns，在本项目中创建了norder（流水号）、pileno（桩号）、cardno（卡号）、operno（员工号）、energy（电量）、cost （金额）、period（时长）、rate（费率）、pdate（日期）和ptime（时间）。

在本项目中采用ODBC的方式连接数据库，首先在控制面板中创建好数据源，配置好SQL Server驱动数据源，命名为evcs。

二、数据写入

要求在一个状态量值为1的时候完成数据库的保存，等数据保存完后将状态量清0。

1、先在全局脚本VBS项目模块中创建函数savedata，代码如下：

Sub savedata

Dim objConnection

Dim objCommand

Dim objRecordset

Dim strConnectionString

Dim strSQL

Dim norder,pileno,cardno,operno,energy,cost,period,rate,pdate,ptime

基于VBS脚本的WinCC查询及导出功能设计与实现

图２查询界面
部分代码如下
扶墩列数：
２数据查询
数据仔储到ＳＱＩＳｅｒｖｍ，的数据眸巾．町利＿｝＿｝｛ＶＢＳ脚本结合数据库的句允成数据的向、删除等
操作、可根槲Ｉ作站名称、产品ＩＤ号及Ｈ，ｆＩ＇ＨＩ等条件，
将数据
格巾显示：
ＩｆＮ（）ｔ（ｏＲｓ．ｅｏｆＯｒｏｒｓ．ｂｏｏＴｈｅｎ
０引言
某钳装曲线主要是通过装配岂完成钳的装配丁作，实现对卡钳装过程中装配数据的己录并进
行分析：… 丁，线装配量大，人记求数据繁杂，容易
Ｊ
ｌ、～；…
・
。
ＣＣ
・
ｍ
＆ｓｔａｔｉｏｎｎＵｌｌｌ｝】ｅｒ＆” ｏｒｄｅｌ・１）ｖｔｉｌｌｅ ”
作者简介：董磊书（１９８２一），工程师，硕士研究生，从事
非标设备及生产装配线控制系统的研究工作

wincc vbs模块方法

WinCC VBScript模块方法是用于编程和自动化WinCC项目的一种功能强大的工具。它可以帮助用户在WinCC界面中实现各种功能和任务，包括数据处理、图表生成、报警处理等等。在本文中，我们将一步一步回答关于WinCC VBScript模块方法的主题。

1. 什么是WinCC VBScript模块方法？

WinCC VBScript模块方法是一种用于编程和自动化WinCC项目的工具。它基于Visual Basic Scripting语言（VBScript），可以让用户通过编写脚本来实现各种功能和任务。这些功能包括数据处理、图表生成、报警处理等等。

2. 如何使用WinCC VBScript模块方法？

使用WinCC VBScript模块方法需要以下几个步骤：

- 打开WinCC开发环境：首先，您需要打开WinCC开发环境，启动WinCC Explorer和VBScript编辑器。

- 创建VBScript模块：在VBScript编辑器中，您可以创建一个新的VBScript模块。这个模块将成为您编写脚本的地方。

- 编写脚本：在VBScript模块中，您可以使用VBScript语法编写脚本。您可以利用WinCC提供的函数和方法来实现各种功能和任务。

- 脚本调用：一旦您编写完脚本，您可以在WinCC项目的各个部分中调用脚本。您可以在按钮的点击事件或某个对象的属性变化事件中调用脚本。

3. WinCC VBScript模块方法的应用场景有哪些？

WinCC VBScript模块方法可以应用于各种场景和任务，包括但不限于以下几个方面：

在Wincc用VBS脚本读写ACESS数据库

首先要进入系统的数据库设定。设定完后，将ACess数据库的路径存入Wincc中对应的一个变量。然后在用到数据库内容的地方，用Sub OnOpen() '打开时检查一下系统路径If Trim(HMIRuntime.Tags("Db_Path").Read)="" Then MsgBox "请检查系统数据库路径,系统检测到不正常！现在路径是：" & HMIRuntime.Tags("Db_Path").ReadElse'定义combol对象Dim com Set com=ScreenItems("combolbox_receipe")com.Clearcom.AddItem "请选择配方...",0'首先打开数据库Dim Conn,ResultSet Set Conn = CreateObject("ADODB.Connection") Set ResultSet = CreateObject("ADODB.Recordset")Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & HMIRuntime.Tags("Db_Path").ReadResultSet.open "Select * From recipe",Conn,1,1'依次读出数据库中配方的数量Do While Not ResultSet.EOF com.AddItem ResultSet("name").value,ResultSet("Id").valuEResultSet.MoveNext Loop com.ListIndex =0Set ResultSet=Null'结果集置空Set Conn=Null '连接置空ResultSet.Close '结果集关闭Conn.close '连接关闭End IfEnd Sub当系统切换到此页面时，将从数据库中读出表recipe中的值，到Combolbox中，并且将ListIndex=0的那一项列为默认项

WINCCVBS脚本文件操作

WinCC VBS脚本中的文件操作主要涉及文件的创建、读取、写入和删

除等操作。下面是一个超过1200字的文章，介绍了WinCC VBS脚本中常

用的文件操作方法和示例。

在WinCC VBS脚本中，可以使用FileSystemObject对象来进行文件

操作。首先，需要创建一个FileSystemObject对象：

```

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

```

接下来，可以使用FileSystemObject对象的属性和方法来操作文件。下面是常用的文件操作方法示例：

1.创建文件夹：

```

fso.CreateFolder "C:\TestFolder"

```

2.创建文件：

```

Dim file

Set file = fso.CreateTextFile("C:\TestFile.txt", True)

file.WriteLine "This is a test file."

file.Close

```

3.打开文件：

```

Dim file

Set file = fso.OpenTextFile("C:\TestFile.txt")

MsgBox file.ReadAll

file.Close

```

4.写入文件：

```

Dim file

Set file = fso.OpenTextFile("C:\TestFile.txt", 8) file.WriteLine "This is a new line."

Wincc的VBS脚本使用

变量读写：Write战Read要领的语法：之阳早格格创做

读：

1 Dim objTag Set objTag=HMIRunTime.Tags("变量名")

2 HMIRunTime.Tags("变量名").Read

写：

1 Dim objTag Set objTag=HMIRunTime.Tags("变量名")

objTag.Write 1 '背变量写进数值1

2 HMIRunTime.Tags("变量名").Write 1

中间变量的值写进：Dim objTag,val

Set objTag=HMIRunTime.Tags("变量名")

objTag.Read

val=objTag.Value '中间变量val存搁了变量的值

VBS

谈话使用要领

概括：

VBScript的齐称是:Microsoft Visual Basic Script Editon.(微硬

公司可视化BASIC足原版).

正如其字里所透露的疑息, VBS(VBScript的进一步简写)是鉴于Visual Basic的足原谈话.

尔进一步阐明一下, Microsoft Visual Basic是微硬公司出品的一套可视化编程工具, 语鉴于Basic. 足原谈话, 便是不编译成二进造文献, 曲交由宿主(host)阐明源代码并真止, 简朴面道便是您写的步调不需要编译成.exe, 而是曲交给用户收收.vbs的源步调, 用户便能真止了.

一、初教

: 1) 注释(以REM或者'启头)止正在步调中不起效率, 但是能让他人更简单读懂您的步调

. 2) 变量佳像一个盒子, 或者一个代号, 不妨代表您念代表的物品. 变量赋值使用

自动化控制技术-Wincc中VBS读写SQLServer数据库(一)

一种通用访问SQL Server数据库的方式

本文全面介绍了在Wincc中如何通过使用VBS脚本对SQL Server数据库进行读写，为Wincc在非标准功能的使用上，提供一个基础。【关键词】TIA；Wincc；自控；VBS；SQL Server；MSFlexGrid；Microsoft

1Wincc数据库简介

在西门子Wincc组态软件中，软件组态信息的存储以及项目中使用到的历史数据的存储，采用的数据库为SQL Server数据库。从Wincc 6.2版本以后，随着数据库系统安全策略的提高，软件组态信息的存储以及历史数据的存储是将数据通过压缩的形式进行存储，即加密形式存储。

这样一来，如果想访问Wincc的数据，需要Wincc系统中增加一套Connectivity授权（工业数据桥）。VBS通过Connectivity访问历史数据和标准的SQL语法有很大不同，这种形式，我们会在“自动化控制技术-Wincc中VBS读写SQLServer数据库(二)”中进行介绍。本文将首先介绍VBS如何访问我们自己建立的数据库。

2软件环境

1、操作系统：Win7 64位旗舰版

2、Wincc V7.3

3、Microsoft SQL Server 2008 R2

4、Microsoft Office 2007

5、Visual Basic 6.0

3建立数据库

1、打开数据库管理器

在开始之前，先在数据库中建立一个我们需要用到的数据库。依次点击“开始- Microsoft SQL Server 2008 R2- SQL Server Management Studio”打开数据库管理器，路径如下图

wincc中vbs脚本查询、写入和删除自定义sql2005数据库记录的语句

与数据库已经建立连接，也可以关闭数据库。

看深入浅出wincc书上的语句不明白。

表名称：dxwtwo，字段名：xh，xm，gz

大侠给写写：

查询记录的语句，条件xh=100

写入记录的语句，xh=200，xm=张强

删除记录的语句，xh=333，xm=王五

我按照sql的语句写入vbs脚本，wincc报错。

问题补充：

我按照下面图片中的语句进行试验，还是不行：

1、查询语句在*号位置报错，语句不执行，去了*号也不行

2、删除语句在from和表格名称dxwtwo中间报错，语句也不执行

我声明了连接;cn

变量：is_sql

麻烦你再给看一看。

谢谢。

图片说明：1，报错语句图片

最佳答案

Select*FromdxwtwoWherexh=100

InsertIntodxwtwo(xh,xm)Values(200,”张强”)

DeleteFromdxwtwoWhe rexh=333ANDxm=“王五”

在wincc的vbs中，先定义一个变量，比如sql，而后赋值，比如

sql=“InsertIntodxwtwo(xh,xm)Values(200,”“““张强”“““)”注意这时候张强作为字符串，用单引号标记。

然后，你定义的连接名.execute（sql）即可

啊哈哈错得那两句应该删掉，我们定义is_sql变量是为了将sql语言赋予这个变量，所以要以字符串的形式（就是得加引号），通过execute方法来把对数据库的操作语言发送给SQLserver，由SQLserver执行这条语句。如果想delete这种不需要返回值得，直接执行即可，如果像select这种，需要返回值的，要用借助ADO，来完成。

Wincc的VBS脚本使用

变量读写：Write和Read方法的语法：之迟辟智美创作

读：

1 Dim objTag Set objTag=HMIRunTime.Tags("变量名")

2 HMIRunTime.Tags("变量名").Read

写：

1 Dim objTag Set objTag=HMIRunTime.Tags("变量名")

objTag.Write 1 '向变量写入数值1

2 HMIRunTime.Tags("变量名").Write 1

中间变量的值写入：Dim objTag,val

Set objTag=HMIRunTime.Tags("变量名")

objTag.Read

val=objTag.Value '中间变量val寄存了变量的值

VBS

语言使用方法

概述：

VBScript的全称是:Microsoft Visual Basic Script Editon.(微软

公司可视化BASIC脚本版).

正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言.

我进一步解释一下, Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语基于Basic. 脚本语言, 就是不编译成二进制文件, 直接由宿主(host)解释源代码并执行, 简单点说就是你写的法式不需要编译成.exe, 而是直接给用户发送.vbs的源法式, 用户就能执行了.

一、入门

: 1) 注释(以REM或'开头)行在法式中不起作用, 但能让他人更容易读懂你的法式

. 2) 变量好像一个盒子, 或一个代号, 可以代表你想代表的工具. 变量赋值使用

Wincc的VBS脚本使用

1 Dim objTag Set objTag=("变量名")

2 ("变量名").Read

写：

1 Dim objTag Set objTag=("变量名")

1 '向变量写入数值1

2 ("变量名").Write 1

中间变量的值写入：Dim objTag,val

Set objTag=("变量名")

val= '中间变量val存放了变量的值

VBS

语言使用方法

概述：

VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版).

正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言.

我进一步解释一下, Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语基于Basic. 脚本语言, 就是不编译成二进制文件, 直接由宿主(host)解释源代码并执行, 简单点说就是你写的程序不需要编译成.exe, 而是直接给用户发送.vbs的源程序, 用户就能执行了.

一、入门

: 1) 注释(以REM或'开头)行在程序中不起作用, 但能让别人更容易读懂你的程序

. 2) 变量好像一个盒子, 或一个代号, 可以代表你想代表的东西. 变量赋值使用

3)以""包裹起来的字符称之为"字符串"

4)函数像一个"黑箱", 有参数和返回值, 用"="左边的变量可以接住返回值

5) Inputbox函数弹出一个输入对话框,Msgbox则用于输出

例：

REM 输入并回显你的名字

'使用InputBox和Msgbox函数

117-118-00001-WINCC中使用vbs脚本调用SQL存储过程

SIAS---颜春明

技术总结

WINCC中使用vbs脚本调用SQL存储过程

版本日期作者校对批准说明

0.1 2008-5-10 颜春明

SIAS---颜春明

1应用范围 (3)

1.1详述 (3)

1.2适用的系统 (3)

2硬、软件配置 (3)

3解决方法 (3)

3.1存储过程编写 (3)

3.2VBS调用存储过程 (6)

4SQL SERVER存储过程及触发器 (10)

4.1存储过程定义 (10)

4.2创建存储过程 (10)

4.3存储过程调试 (12)

4.4存储过程中游标的使用 (13)

4.5触发器介绍以及实例 ............................................................................................. 错误!未定义书签。

附件

附件文档号说明

SIAS---颜春明

1 应用范围

1.1 详述

SQL存储过程执行起来比SQL命令文本快得多。当一个SQL语句包含在存储过程中时，服务器不必每次执行它时都要分析和编译它。

调用存储过程，可以认为是一个三层结构。这使你的程序易于维护。如果程序需要做某些改动，你只要改动存储过程即可

你可以在存储过程中利用Transact-SQL的强大功能。一个SQL存储过程可以包含多个SQL 语句。你可以使用变量和条件。这意味着你可以用存储过程建立非常复杂的查询，以非常复杂的方

式更新数据库。

最后，这也许是最重要的，在存储过程中可以使用参数。你可以传送和返回参数。你还可以得到一个返回值（从SQL RETURN语句）。

WinCC 使用VB或VBS访问WINCC6.0历史数据库

(2011-04-18 13:56:52)

从WINCC6.0开始,就开始采用SQL3000SP3做为WINCC的后台数据库了。而这个SQL2000SP3是由SIEMENS为WINCC做了二次开发的，采用了一些独有的技术，一些是我们知道的，一些是我们所不知道的。所以当我们打开SQL管理器和用高级语言访问时，和常规的SQL访问的方法是有一些出入的。即使我们能够很轻易的访问ACCESS。普通的SQL2000的数据库，不见的你就能顺利的访问到WINCC 的历史数据。

官方的资料显示:

1、WINCC的数据有设计时数据库和运行时数据库，分别放在相关的目录，对于数据使用者而言，我们知道就可以了。设计时数据库我们了解没有什么意义。但运行时数据库至少我们要知道它的名字，它的名字一般是“CC_工程名_年_月_日_时_分_秒R”，这个对于我们使用者而言，是很重要的的，无论你准备以DSN 或OLEDB的方式访问数据库，你都需要它。如果你实在不知道它的名，你可以将WINCC激活，然后在“ODBC管理器”或“SQL企业管理器”下的“DATABASE”可以看到它，它就在那里.....

2、运行时库的表的问题

其实，这个是很多的用户很关心的问题。常规的使用过高级语言访问SQL

的技术人员都知道，很多的SQL语句，如SELECT 、INSERT INTO等等，都需要指明在某一库的表中对它进行操作。因此，这个表的问题可能就是你访问SQL

的拦路虎。先告诉大家：WINCC6.0的SQL库操作是不需要表名的，因为他有自己定义的SQL语句。其实，WINCC在运行时，根据WINCC的设置，数据归档是以一定时间做为基准，形成数据片段。大体上有三个用户需要了解的表：

WinCC V6.0 VBS 脚本实现对 SQL Server数据库的存储与查寻

巧妙运用WinCC V6.0 VBS 脚本实现对 SQL Server数据库的存储与查寻

----西门子工厂自动化工程有限公司工程部北京

摘要：本文着重描述了如何运用西门子新一代上位监控软件WinCC V6.0最新集成的VBS脚本编辑器通过编写结构化查寻语言，操作后台运行的 SQL Server2000数据库以实现对现场数据的存储与查寻，从而满足对工业现场的在线管理。

关键词：西门子，WinCC V6.0，VBS，SQL

Abstract

This paper introduces that how to store and query the datum from Microsoft SQL Server 2000 database by using VBScript-Editor integrating SIEMENS HMI software WinCC V6, In order to meet industry field’s need.

Key Words：SIEMENS，WinCC V6.0，VBS，SQL

一、项目简介

位于山东省烟台经济技术开发区内的上海通用东岳汽车有限公司，是上海通用汽车有限公司、上汽集团和通用汽车 (中国)分别出资建造的现代化轿车生产厂，是上海通用汽车有限公司用于生产其商用和家用轿车的几个生产基地之一。主打产品即为目前市场上流行的赛欧型家用轿车。公司总装和油漆车间新近各投产了一套由西门子工厂自动化工程有限公司制作的安顿 (Andon)现场管理与信号采集系统。其中各条机运线，拉绳开关，安顿板指示灯， QCOS 点以及扫描枪的逻辑控制和信号采集均采用西门子基于PC技术的SLOT CPU和ET200S远程站完成。上位监控系统采用一套西门子最新推出的基于SQL Server 2000数据库的WinCC V6 软件，用于对现场采集的实时信号进行监控、存储和历史查寻。上位机与控制器的连接采用西门子高性能的PROFIBUS - DP工业现场总线，整体设计简单、通用，性能和功能完全达到厂方的要求。

wincc读写sql(vbs)

1：首先在计算机的管理工具-- ODBC数据源管理器中，添加一个SQL SERVER的数据源。在此配置中：在服务器的连接上要选择WINCC的服务器。

2：然后在WINCC的图形编辑器中，在输入域的属性中，选择事件，再选择键盘的释放动作，在动作代码框中写下如下代码：

Dim conn,rs

Dim strsql

Dim a

a=HMIRuntime.Tags("tt_change").Read

Set conn=CreateObject("adodb.connection")

Set rs=CreateObject("adodb.recordset")

conn.Provider = "sqloledb"

conn.open

"SERVER=MICROSOF-9176CF\WINCC;uid=sa;pwd=sa;database=TT_CHA NGE"

If nChar = "13" Then

strsql="insert into tt_ch(TagValue)VALUES('" & a &"')" Set rs=conn.execute(strsql)

conn.close

Set rs=Nothing

Set conn=Nothing

End If

如此，即可实现WINCC的实时数据向SQL SERVER的数据写入！

WinCC读取Access数据库

wincc 2009-07-30 09:52:22 阅读240 评论1 字号：大中小订阅

'经测试该代码在WinCC和vbs文件中均可用可用

Dim objConn,objRs,strSql

[教学]使用Wincc中的VBS进行变量读写

使用Wincc中的VBS进行变量读写

Wincc6包含了VBS脚本编程，对于我等熟悉VB编程的可谓带来的福音，但是，由于西门子的C脚本编程功能实在太强大，加上要保持以前版本的一致性和用户编程习惯的延伸性，所以对于VBS脚本并没有太多的介绍。

这里我先来介绍一下Wincc中对于控件引用的一般性论述。Wincc对于控件引用一般都采取定义变量－》使用Set 变量＝对象.（方法或属性）->引用变量来做的。

在变量读取或写入的过程中，我们要接触到一些属性和方法，例如，Read和Write方法，变量的V alue 属性，熟练掌握这些属性和方法相当重要。

下面解释一下Write和Read方法的语法：

Read data 其中data是读取变量的方法，如果data=1，直接从AS系统读取，相当于C脚本中的Get*****wait()函数，如果省略，则从Wincc变量管理器中建立的变量中读取。

Write data，1 其中data是需要写入变量的数值，1代表直接写入AS系统，相当于C脚本中的Set*****wait()函数，1省略，则写入到由Wincc变量管理器建立的变量中去。

实例：

读取变量的方法：

1 Dim objTag

Set objTag=HMIRunTime.Tags("变量名")

objTag.Read

2 HMIRunTime.Tags("变量名").Read

如果以上例程改成直接读取AS系统变量的话，程序为：

1 Dim objTag

Set objTag=HMIRunTime.Tags("变量名")

WINCC的使用

data5=HMIRuntime.Tags ("写入").Read If data5=1 Then //写入变量为1时，执行数据写入
data1=Year(Now)&"年"&Month(Now)&"月"&Day(Now)&"日" data2=Hour(Now)&"时"&Minute(Now)&"分"&Second(Now)&"秒" data3=HMIRuntime.Tags ("配方号").Read data4=HMIRuntime.Tags ("数据").Read Con="Provider=SQLOLEDB.1; Integrated Security =SSPI;Persist Security Info=False; Initial Catalog=数据库;Data Source=.\WINCC" Set conn=CreateObject("ADODB.Connection") conn.ConnectionString= Con conn.CursorLocation=3 conn.Open
Dim objConnection Dim strConnectionString Dim lngValue Dim strSQL Dim objCommand Dim data1,data2,data3,data4,data5