利用WINCC的VB脚本写入变量到自定义的数据库方法?
我利用create database guowincc创建了数据源是guowincc
利用create table testwincc(
one 变量名,
tow 归档时间,
three 归档值,
primary key(one,tow)
)
创建这个testwincc表的话我不知道one,tow,three各应该定义为什么类型。
wincc里面的变量的类型各对应数据库中自定义的哪些类型呢?
比如wincc里的“有符号16位数”该对应sql中的哪个类型?
“浮点数 32位 IEEE 754”又对应sql中的什么类型呢?
wincc中的“日期时间”对应sql中是什么呢?
如果我想把wincc中用vb的Now()得到的时间变成字符串存储的话是不是用
Dim nowTimeStr
nowTimeStr = Format(Now,"yyyy年MM月dd日 HH时nn分ss秒")
就可以了呢?
我在winncc里写VB的脚本
Dim objConnection
Dim strConnectionString
Dim nowTime
Dim lngValue
Dim strSql
Dim objCommand
strConnectionString = "Provider = MSDASQL;DSN = guowincc;UID = ;PWD = ;"
lngValue = HMIRuntime.Tags("NewTag1_inter").Read 'NewTag1_inter是我自定义的归档变量
tagTime = Now() '这句语句正确吗?
strSql = "insert into testwincc values("'NewTag1_inter',&nowTime&,&lngValue&");"
'尤其是这句语句正确吗?
Set objConnection = CreateObject("ADOB.Connection");
objConnection.ConnectionString = strConnectinString
objConnection.open
Set objCommand = CreateObject("ADOB.Command")
with objCommand
.ActiveConnection = objConnection
.CommandText = strSql
end with
objCommand.Execute
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
看看上面的有没有错误啊,wincc运行起来太耗时间了,所以我想把疑问都解决了再去激活wincc。
vb动作脚本调试出错:Microsoft vbscript 运行时错误:Activex部件不能创建对象:'ADODB.Connection
出错位置是:Set objConnection = CreateObject("ADOB.Connection")
以下是脚本(有省略)
Sub 按钮1_OnClick(ByVal Item)
....
Dim nowTime
Dim lngValue
Dim strSql
Dim objCommand
strConnectionString = "Provider = MSDASQL;DSN = guowincc;UID = ;PWD = ;"
lngValue = HMIRuntime.Tags("NewTag1_inter").Read
nowTime = Now()
strSql = "insert into testwincc values('NewTag1_inter',"& nowTime & "," & lngValue & ");"
Set objConnection = CreateObject("ADOB.Connection")
objConnection.ConnectionString = strConnectinString
....
End Sub 展开
WinCC的VBS虽可以声明Public变量,但作用域仅限于本画面,如下:
如果WinCC版本>=V6.0 SP3,则可以使用Dataset对象,该对象可以在不同的VBS脚本中进行访问,下面是个简单的例子:
1、绝核连接
Dim objConnection,strConnectionString
strConnectionString ="Driver={SQL Server};Server=.\WINCC;uid=;pass=;database=guowincc"
Set objConnection = CreateObject("段盯ADODB.Connection")
objConnection.ConnectionString = 并燃掘strConnectionString
objConnection.open
HMIRuntime.DataSet.Add "objConnection",objConnection
2、全局动作中引用
Dim objConnection
objConnection= HMIRuntime.DataSet("objConnection").Value
with objCommand
.ActiveConnection = objConnection
xxxxxxxx
3、关闭连接:
Dim objConnection
objConnection= HMIRuntime.DataSet("objConnection").Value
objConnection.Close
Set objConnection = Nothing
变量名 --- nchar
归档时间 ---- datetime
归档值 ----- real
PrimaryID ----- int(如想自动编号,请将其Identify Specfication设置为True)
2、可以直接使用Now,而不必Format为那种格式,否则可能会键咐歼引起查询问题。你可以读出来后再进行转化。
3、tagTime = Now() 没问题
4、INSERT的语法为:
INSERT mytable (first_column,second_column,third_column)
VALUES (‘some data’,’some more data’,’yet more data’)
你稿冲那句有简悉问题,自己琢磨琢磨,是最基本的字符串连接语法。
小错误,大问题:ADOB.Connection >> ADODB.Connection
对于VBS来说,只有变体类型,并无所谓的INT,String等类型。
ngValue = HMIRuntime.Tags("NewTag1_inter").Read 'NewTag1_inter是我自定义的归档变量
只能读取Wincc变量管理器中建立的变量,如果你不是在那里建立,那么是消乱不正确的。