作者 | 主题 |
---|---|
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”’);” 最后感谢在论坛中帮助我解决问题的朋友们,谢谢大家的鼎力相助 |