wincc 将变量(s7300和内部变量)写入数据库问题

问 wincc 如何将变量(s7300和内部变量)通过按钮写入数据库,并可以通过另外一个按钮对时间范围内保存的数据进行读写,打印

最佳答案

自己建立一个数据库就可以了,以下脚本是在dbuser下建立的表格table1中插入数据,仅供参考:
Dim cnn As String
    cnn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=dbuser;Data Source=ComputerName\wincc"
Set cc1 = CreateObject("adodb.connection")
    cc1.ConnectionString = cnn
    cc1.CursorLocation = 3
    cc1.Open
Dim rst As Object
Set rst = CreateObject("adodb.recordset")
Dim ssql As String
    ssql = "insert into table1 values(''''登入时间'''',''''登录用户名'''',''''登录其它信息'''')"
    cc1.Close
Set cc1 = Nothing
Set rst = Nothing
查询的话把ssql语句改成select格式,至于你查询出来要怎么处理就看你的了,网上也很多这样的例子。给你一个查询归档数据到excel表格的例子,供参考:
Dim cnn As String
    cnn = "provider=WinCCOLEDBProvider.1;catalog=CC_gz_food_09_07_14_14_54_22R;data source=wincc01\WinCC"
dim cc1 as object
Set cc1 = CreateObject("adodb.connection")
       cc1.ConnectionString = cnn
       cc1.CursorLocation = 3
       cc1.Open
Dim rst As Object
Set rst = CreateObject("adodb.recordset")
Dim fname
    fname="e:\baobiao\report.xls"
Dim ObjExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Workbooks.Open fname
Dim i
    i=4
Dim ssql As String
   ssql = "TAG:R,''speed1\c_speed1_1'',''2009-09-24 09:19:00.000'',''2009-09-24 09:20:00.000''"
       rst.Open ssql, cc1
       rst.MoveFirst
       objExcelApp.worksheets ("sheet1").Cells(i, 2).VAlue = rst.fields(1).value
       objExcelApp.worksheets ("sheet1").Cells(i, 3).VAlue = rst.fields(2).value
       objExcelApp.worksheets ("sheet1").Cells(i, 4).VAlue = rst.fields(3).value
       cc1.Close
objEXcelApp.ActiveWorkbook.Save 
objEXcelApp.workbooks.close
objExcelApp.Quit
Set cc1 = Nothing
Set rst = Nothing
Set objExcelApp = Nothing

提问者对于答案的评价:
thanky

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc221018.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2017年12月8日
下一篇 2017年12月8日

相关推荐

  • 求wincc7.5软件

    求wincc7.5软件 最佳答案 WINCC7.5 百度网盘下载链接:链接: https://pan.baidu.com/s/1qZVgRCqeHKkXMBLY…

    2021年7月5日
  • wincc MSFLEXGRID 标题行背景颜色与滚动条咨询

    采用MSFLEXGRID 控件制作报表,但其标题行背景颜色一直更改不了,以及数据滚动条如何实现。背景颜色已使用了BackColorFixed属性设置,滚动条已使用Scro…

    2021年7月5日
  • 能否实现此功能?

    在wincc脚本中取数据库中的datetime值只取其  年月(一列)、日(一列)如: 2010-5-19  0:00:00&nb…

    SIMATIC WinCC 2019年6月11日
  • WINCC打开

    我想问下怎么设置才能让电脑启动后,就自动打开WINCC进入它的操作画面。谢谢 最佳答案 程序—–WINCC———autostart中填入项目名称就行了。 提问者对…

    SIMATIC WinCC 2017年11月29日
  • wincc flexible 2008软件安装问题

    请教各位,设备更新了操作电脑,需要重新安装wincc flexible 2008 sp2 软件。请问可以直接安装sp2吗,还需要安装其它软件…

    SIMATIC WinCC 2021年7月5日
  • 鼠标动作弹出小趋势窗口?

    wincc组态主画面中工艺参数有很多如压力/流量/温度/液位/电流/频率等I/O域数据,想实现右键动作弹一小窗口可以查看趋势信息(可包括位号/量程/描述等).大家有好的简单思路吗,…

    SIMATIC WinCC 2019年6月11日
  • 300系统,上位机WINCC网络结构图

    CPU用的315-2DP,上位机WINCC6.0想在画面上做网络结构图,能显示CPU的状态,和能够检测153远程机架上的DO,DI,AI,AO模块是否在线或故障状态,请问是否能实现…

    SIMATIC WinCC 2019年6月11日
  • WINCC 画面的弹出

    我以前做的弹出画面都是一个窗口画面,对应一个画面,这样造成的后果是一个画面都是窗口画面影响后期画面的设置,而且做显示的时候不会在鼠标的XY的坐标上,这个我如何去解决它,如果需要脚本…

    SIMATIC WinCC 2020年11月1日
  • Windows server 2008 sp2安装Wincc7.0 sp2,配什么版本的SimaticNet

    如题,服务器系统为Windows server 2008 sp2,已经安装了Wincc7.0 sp2亚洲版,现在需要用到SimaticNet…

    SIMATIC WinCC 2018年1月1日
  • 报警记录中的消息位作用

    在报警记录编辑窗口,添加报警变量时,其中的一项’消息位’有什么作用?在将该项默认值0改为其它数值也改不了,始终提示’位错误,请输入一个值从0到0′ ,何原因?请指教,谢谢…

    SIMATIC WinCC 2019年6月11日