技术论坛

 wincc往SQL SERVER2005写数据探究过程

返回主题列表
作者 主题
myjy1992
游士

经验值: 230
发帖数: 7
精华帖: 2
楼主    2017-11-10 17:21:47
主题:wincc往SQL SERVER2005写数据探究过程 精华帖 

过去这两天一直在为了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;Persist Security Info=False; Initial Catalog=读写数据库;Data Source=.\WINCC"

 Set conn=CreateObject("ADODB.Connection")

 conn.ConnectionString= Con

 conn.CursorLocation=3

 conn.Open

 Msgbox "。。。。。"

sSql="update 个人信息 set satu='"&data1&"'"

Set oRs=CreateObject("ADODB.Recordset")

 Set oCom=CreateObject("ADODB.Command")

 Set oCom.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;Persist Security Info=False; Initial Catalog=读写数据库;Data Source=.\WINCC"//"读写数据库"为数据库名称,本地电脑上的wincc为.\WINCC

 Set conn=CreateObject("ADODB.Connection")

 conn.ConnectionString= Con

 conn.CursorLocation=3

 conn.Open

 Msgbox "。。。。。"

sSql="update 个人信息 set number='"&data1&"'"//“个人信息”为表名

Set oRs=CreateObject("ADODB.Recordset")

 Set oCom=CreateObject("ADODB.Command")

 Set oCom.ActiveConnection=conn

 oCom.CommandType=1

 oCom.CommandText=sSql

 Set oRs=oCom.Execute

 Set oRs=Nothing

 conn.Close

 Set conn=Nothing

End Sub

SQL指令

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

最后感谢在论坛中帮助我解决问题的朋友们,谢谢大家的鼎力相助

渔明鱼工
至圣

经验值: 23880
发帖数: 2059
精华帖: 78
1楼    2017-11-11 06:35:37
主题:回复:wincc往SQL SERVER2005写数据探究过程

关于SQL server的贴子很少呀,点赞。

网鱼能够改善伙食,还能释放工作中的压力。
千万个为什么
至圣

经验值: 10571
发帖数: 848
精华帖: 9
2楼    2017-11-11 08:31:19
主题:回复:wincc往SQL SERVER2005写数据探究过程

 不错的分享

学如逆水行舟,不进则退! wwhoho@163.com
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。