Question

利用WINCC的VB脚本写入变量到自定义的数据库方法？

请问一下，我想利用wincc的vb脚本在自己创建的sql数据库（该自定义数据库是常规数据库，在sql中用sql语句创建）中周期存储变量值（包括时间，变量名，变量值）
我利用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

Answer 1

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

Answer 2

1、如果你不知道怎么用SQL语法创建数据库，那就手动创建好了，数据类型对应如下：
变量名 --- 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

Answer 3

要明白，Wincc中是使用VBS并非VB，如果你指望你按照VB的思路去写VBS，那么恐怕你移植到VBS中的话，要晕过去。如果你一定要在VB中做，那么在VB中编译为EXE文档后，然后在Wincc作为外部程序来引用。

对于VBS来说，只有变体类型，并无所谓的INT，String等类型。

ngValue = HMIRuntime.Tags("NewTag1_inter").Read 'NewTag1_inter是我自定义的归档变量

只能读取Wincc变量管理器中建立的变量，如果你不是在那里建立，那么是不正确的。