|
用网络访问wincc历史数据（自制报表）wincc + asp+ sqlserver (acsun1@163.com)
acsun 发表于 2007-2-27 15:01:00 |
wincc + asp+ sqlserver
wincc代码：
Sub saveall
saveone "LIC231",HMIRuntime.Tags("LIC231").Read
End Sub
'LIC231是我需要存储的变量名，可以另定义，HMIRuntime.Tags("LIC231").Read代码是读取Runtime系统中变量的实际值。
’放在分钟中断等定时中断处理的vbs代码中。
其中用全局脚本编辑saveone函数：
Sub saveone(Byval StrTagName,Byval RealTagValue)
‘StrTagName：变量名称；RealTagValue：实际值
Dim conn,rs
Dim strsql
Dim a
Set conn=CreateObject("adodb.connection")
Set rs=CreateObject("adodb.recordset")
conn.Provider = "sqloledb"
conn.open "Server=OPTIPLEX\WINCC;UID=ylk;pwd=ylk;database=Northwind"
’在sqlserver中打开Northwind数据库。建立一个数据表history，编辑自己需要的数据项目。
’使用Northwind实例数据库不会和wincc的数据库冲突，没有用户名密码等限制。这里设置history的用户名密码为ylk。
’将history数据表的权限设置为外部可访问，可修改。“OPTIPLEX\WINCC”是本地计算机上的sql数据库名称。
strsql="insert into history(tagdate,tagname,tagval) values('" & Now() &"','"& StrTagName &"',"& RealTagValue &")"
’sql语句，用于存储一个数据项。
Set rs=conn.execute(strsql)
conn.close
Set rs=Nothing
Set conn=Nothing
End Sub
删除历史数据的全局函数代码：
Sub deletehistory
Dim conn,rs
Dim strsql
Dim a
Dim date7
Dim StrDate7
date7=DateAdd("h",-168,Now())
StrDate7=convertdate(date7)
Set conn=CreateObject("adodb.connection")
Set rs=CreateObject("adodb.recordset")
conn.Provider = "sqloledb"
conn.open "Server=OPTIPLEX\WINCC;UID=ylk;pwd=ylk;database=Northwind"
strsql="delete from history where (tagdate
"
response.write ""&rrs(1) & ""
response.write ""&rrs(0) & ""
response.write ""&rrs(2) & ""
rrs.movenext
response.write ""
loop
end sub
%>
网络传播请著名acsun1@163.com |
|
Re:用网络访问wincc历史数据（自制报表）wincc + asp+ sqlserver (acsun1@163.com)
baixiansong发表评论于2007-3-6 14:39:00 |
|
发表评论：
|