wincc写入数据库vbs脚本

变量读写： Write和Read方法的语法： 读 ：

1 Dim objTag Set objTag=HMIRunTime.Tags(\变量名\ objTag.Read

2 HMIRunTime.Tags(\变量名\ 写：

1 Dim objTag Set objTag=HMIRunTime.Tags(\变量名\ objTag.Write 1 '向变量写入数值1 2 HMIRunTime.Tags(\变量名\ 中间变量的值写入 ：Dim objTag,val Set objTag=HMIRunTime.Tags(\变量名\ objTag.Read

val=objTag.Value '中间变量val存放了变量的值 VBS

语言使用方法

概述：

VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言.

我进一步解释一下, Microsoft Visual Basic是微软公司出品的一套可视化编

有时候我们需要定期往一个sql数据表添加纪录，以前尝试过vbs脚本，今天通过c脚本实现同样的功能。假设有一个sql数据库Report，下面有一个数据表，有以下几个字段：

CurNo 表示序号，bigint数据类型，主键，自动递加1；CurDate，字符串，纪录当前日期；CurTime 字符串，记录当前时间；flow1 实数；flow2 实数，flow3 实数。由于没有实际的PLC，所以这个脚本里面取当前的秒数值来模拟现场的数字。在全局c脚本写入以下代码，触发器每5秒钟执行一次。

#include \int gscAction( void ) {

#pragma code(\

VOID GetLocalTime(SYSTEMTIME *lpst); SYSTEMTIME zeit; int flow1,flow2,flow3; __object *cn, *rs;

char *connstr=\Source=ES\\\\wincc\char sql[512]; GetLocalTime(&zeit);

sprintf(sql,\report(CurDate,CurTime,flow1,flow2,flow3)

values(\zeit.wSeco

WinCC中全局脚本VBS归档到Excel中

用一个变量触发数据归档到Excel中，请高手看看我写的为何不能运行。 Sub procedure1

If Item.OutputValue = \

Dim oVar,oBlendingVar,objExcelApp,oWorkBook,ExcelTableFull,oFileName On Error Resume Next ExcelTableFull=0

Set objExcelApp=CreateObject(\ objExcelApp.Visible=False

Set oWorkBook=objExcelApp.Workbooks.Open(\模板\\Receipt_Table.xls\ Dim iBlankLine

iBlankLine=oWorkBook.ActiveSheet.Columns(1).Find(\ 'MsgBox(\ If iBlankLine<504 Then

objExcelApp.Cells(iBlankLine,1).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,2).Value=H

WinCC中全局脚本VBS归档到Excel中

用一个变量触发数据归档到Excel中，请高手看看我写的为何不能运行。 Sub procedure1

If Item.OutputValue = \

Dim oVar,oBlendingVar,objExcelApp,oWorkBook,ExcelTableFull,oFileName On Error Resume Next ExcelTableFull=0

Set objExcelApp=CreateObject(\ objExcelApp.Visible=False

Set oWorkBook=objExcelApp.Workbooks.Open(\模板\\Receipt_Table.xls\ Dim iBlankLine

iBlankLine=oWorkBook.ActiveSheet.Columns(1).Find(\ 'MsgBox(\ If iBlankLine<504 Then

objExcelApp.Cells(iBlankLine,1).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,2).Value=H

我们先来看一个简单的 vbs脚本实例 Const aa=\例子\cc=\

语法介绍 VBScript 常数什么是常数？常数是具有一定含义的名称，用于代替数字或字符串，其值从不改变。 VBScript定义了许多固有常数。详细信息，请参阅 VBScript 语言参考。创建常数的方法：您可以使用 Const 语句在 VBScript 中创建用户自定义常数。使用 Const 语句可以创建名称具有一定含义的字符串型或数值型常数，并给它们赋原义值。例如： Const MyString = \这是一个字符串。 \请注意字符串文字包含在两个引号 (\之间。这是区分字符串型常数和数值型常数的最明显的方法。日期文字和时间文字包含在两个井号 (#) 之间。例如：

Const CutoffDate = #6-1-97# 最好采用一个命名方案以区分常数和变量。这样可以避免在运行 Script时对常数重新赋值。例如，可以使用 “vb”或“con”作常数名的前缀，或将常数名的所有字母大写。将常数和变量区分开可以在开发复杂的 Script 时避免混乱。

VBScript 变量什么是变量？变量相当于一个容器，我们可以给这个容器起名叫做 A，那么我们可以向 A杯子内放入任何

Sub OnClick(Byval Item)

Dim fso,folder Dim type1

Dim patch,filename Dim

testposition,testnumber,startdate,printdate,brand,tyremodel,rim,tread,condition,load,speed,pressure,status

Set testposition=HMIRuntime.tags(\Set testnumber=HMIRuntime.tags(\Set startdate=HMIRuntime.tags(\Set printdate=HMIRuntime.tags(\Set brand=HMIRuntime.tags(\Set tyremodel=HMIRuntime.tags(\Set rim=HMIRuntime.tags(\Set tread=HMIRuntime.tags(\

Set condition=HMIRuntime.tags(\Set

wincc中使用vbs的常用函数

1.函数array() 功能:创建一个数组变量 格式:array(list)

参数:list 为数组变量中的每个数值列,中间用逗号间隔 例子:

<% i = array (“1”,”2”,”3”) %> 结果: i 被赋予为数组 2.函数Cint()

功能:将一表达式/其它类型的变量转换成整数类型(int) 格式:Cint(expression)

参数:expression 是任何有效的表达式/其它类型的变量 例子: <%

f = ”234”

response.write cINT(f) + 2 %> 结果: 236

函数Cint()将字符”234”转换 成整数234.如果表达式为空,3.函数:Creatobject()

功能:创建及返回一个ActiveX对象. 格式:Creatobject(obname) 参数bname 是对象的名称 例子: <%

Set con = Server.CreateObject(“ADODB.Connection”)

Delphi XE5教程 - FireDAC下的Sqlite使用 - 前言 介绍

本文章介绍了FireDAC下的Sqlite使用，转至万一老师的博客.

Delphi XE5 并入了 FireDAC, 第一印象非常好, 恐怕 dbExpress 等等都要靠边站了.

让我最高兴地是 FireDAC 对 Sqlite 的支持! 优秀的 Sqlite 早就有很多 Delphi 的包装

(http://www.sqlite.org/cvstrac/wiki?p=SqliteWrappers, 从 https://code.google.com/等还能搜到更多).

有静态引用 obj 的, 有动态链接 dll 的, 还有把 dll 嵌入资源文件的, 甚至还有重写的(刚刚见过一套用 C# 重写的源码).

Delphi 官方首次引入 Sqlite, 应该是在 XE3(提供了 System.Sqlite 单元), 这好像只是为了支持 DBX, 也需要 Sqlite.dll 支持.

现在好了, 有了 FireDAC, 有了 FireDAC 对 Sqlite 更完善的支持(它没有使用

System.Sqlite.pas), 特别需要说明的是, 在 Windwos

龙源期刊网 http://www.qikan.com.cn

利用SHELL脚本实现对ORACLE数据库的备份管理

作者：朱颖琪

来源：《中国科技纵横》2017年第20期

摘 要：在业务系统中，Oracle数据库作为一种大型关系型数据库是世界上使用最为广泛的数据库管理工具。它具有巨大人机功能——SHELL设计语言，作它能够交互式解析和执行用户输入的命令或者自动地解析和执行预先设定好的命令符。本文通过对SHELL脚本与Oracle数据库相结合实现一种自动安全备份与管理数据库数据的高效管理方法。 关键词：SHELL脚本；Oracle数据库；备份管理

中图分类号：TP311.131 文献标识码：A 文章编号：1671-2064（2017）20-0016-02 1 引言

Oracle数据库的备份管理一直是数据库管理中的重要维护点，因此怎样对数据备份实施有效的维护管理成为重要问题。针对这一问题在Linux操作系统下引入SHELL脚本，便能简洁有效的做到对数据库的备份管理。 2 脚本实现

通过在Linux平台的Redhat 6.8操作系统上搭建O

一、选择题（30分）：

1．数据库在磁盘上的基本组织形式是： A）DB B）文件 C）二维表 D）系统目录

2．在关系中，“元数”（arity）是指 [ ] A．行数 B．元组个数 C．关系个数 D．列数 3．SQL中，与“NOT IN”等价的操作符是 [ ] A．=SOME B．<>SOME C．=ALL D．<>ALL

4．设关系R、S、W各有10个元组，那么这三个关系的自然联接的元组个数为

[ ]

A．10 B．30 C．1000 D．不确定

5．在DB恢复时，对尚未做完的事务执行

A．REDO处理 B．UNDO处理 C．ABORT处理 D．COMMIT处理 6．下列SQL语句中的聚集函数，错误的用法是：

A．SUM(列名) B．MIN(列名) C．COUNT(*) D．AVERAGE(列名)

7．下列哪种数据库系统更适合于在大型计算机系统上使用？ [

]

A．Mysql B．Access

C．Oracle D．Microsoft SQ