wincc 7.0往SQL Server写数据心得

过去这两天一直在为了wincc往SQL server数据库当中写数据而发愁，接到个项目，客户需要将变量数据写入到wincc当中，然后通过第三方平台读取SQL 2005当中的信息。

如果需要外部读写数据库只有两种办法，一种是通过ADODB方式来完成，另外一种通过连通性软件包来完成，因为西门子wincc的归档数据是经过压缩的，不能直接读取，所以必须要经过解压，西门子的文档当中很多实例，基于VB和Dataconnector来完成，不过可能我对于VB理解能力有限没看懂，后面有时间去研究一下。

    只好采用ADO方式通过wincc新建数据库来完成，注意新建数据库时需要用管理员权限打开SQL Server management，添加一个new login，新建数据库为读写数据库，添加一个表，名为个人信息

下面添加不同的列，我设的是number(char10),age(float)，satu(bit),wen(text)分为4种类型

这样数据库就设置好了

下面开始设置odbc

控制—面板—管理工具---ODBC

添加sql server数据源，名称evcs，你想连接哪一个SQL Server那一栏填写本机

下面ODBC就设置好了

新建一个wincc pdl，添加4个输入输出域。每个输入输出域下有2个按钮，分别为增加按钮和修改按钮，根据实际情况来改变

我主要是用于测试不同类型字符数据情况

以第一项为例

输入值和输出值链接变量，有变化时进行修改。

在修改按钮下面的属性栏，动作为按左键触发动作

程序如下

Option Explicit
Function action
Dim sSql
 Dim sCom
 Dim oRs
 Dim conn
 Dim oCom
 Dim Con
 Dim data1,data2,data3
 
'读取WINCC变量
data1=HMIRuntime.Tags ("satu").Read
 
 '连接数据库,此处为数据库连接的标准语法结构。
Con="Provider=SQLOLEDB.1; Integrated Security =SSPI;PersistSecurity Info=False; Initial Catalog=读写数据库;DataSource=.\WINCC"
 Setconn=CreateObject("ADODB.Connection")
 conn.ConnectionString= Con
 conn.CursorLocation=3
 conn.Open
 Msgbox "。。。。。"
sSql="update 个人信息 set satu='"&data1&"'"
Set oRs=CreateObject("ADODB.Recordset")
 SetoCom=CreateObject("ADODB.Command")
 SetoCom.ActiveConnection=conn
 oCom.CommandType=1
 oCom.CommandText=sSql
 Set oRs=oCom.Execute
 Set oRs=Nothing
 conn.Close
 Set conn=Nothing
 
End Function

只不过我使用的全局脚本写，触发器只有在动作和定时器条件下才会触发。如果通过按键的话就是下面这种方式

 

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)                    
Dim sSql
 Dim sCom
 Dim oRs
 Dim conn
 Dim oCom
 Dim Con
 Dim data1,data2,data3
'读取WINCC变量
data1=HMIRuntime.Tags ("number").Read
data2=HMIRuntime.Tags ("age").Read
 '连接数据库,此处为数据库连接的标准语法结构。
Con="Provider=SQLOLEDB.1; Integrated Security =SSPI;PersistSecurity Info=False; Initial Catalog=读写数据库;DataSource=.\WINCC"
 Setconn=CreateObject("ADODB.Connection")
 conn.ConnectionString= Con
 conn.CursorLocation=3
 conn.Open
 Msgbox "。。。。。"
sSql="update 个人信息 set number='"&data1&"'"
Set oRs=CreateObject("ADODB.Recordset")
 SetoCom=CreateObject("ADODB.Command")
 SetoCom.ActiveConnection=conn
 oCom.CommandType=1
 oCom.CommandText=sSql
 Set oRs=oCom.Execute
 Set oRs=Nothing
 conn.Close
 Set conn=Nothing
End Sub

SQL指令

增加为”insertinto 个人信息values(‘”&data1”’);”

更改为update 个人信息 set