Question

WINCC利用VBS读取SQL

Option Explicit
Function action
Dim A1
Dim A2

Dim strSQL
Dim objCommand
strConnectionString = "Provider=MSDASQL;SERVER=JIE-PC\WINCC;DSN=ceshi;UID=;PWD=;database=new"

A1 = HMIRuntime.Tags("a").Read
A2= HMIRuntime.Tags("b").Read
strSQL = "INSERT INTO test (test,test2) VALUES ("& A1 & ","& A2 &");"

HMIRuntime.Trace "strSQL"

Set objConnection = CreateObject("ADODB.Connection")

objConnection.ConnectionString = strConnectionString

objConnection.Open

Set objCommand = CreateObject("ADODB.Command")

With objCommand
.ActiveConnection = objConnection
.CommandText = strSQL
End With

objCommand.Execute
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
End Function
已经配置ODBC，测试可以连接，可是WINCC无法往SQL中写入值，哪里出错了?
谢谢了
哪位帮忙看下，谢谢了。

Answer 1

1、wincc的数据库是加密的，不能直接加到wincc的表中。
2、你在中间插入msgbox函数，显示不同的值，测试看执行到了哪里停止下来的。

追问

不是WINCC的表，自己建的数据库和表
msgbox函数?WINCC中可以调试脚本，好吧，新手。。

Answer 2

WIN7对VBS加了限制，有一部分CreateObject参数被禁止了。你用的是哪个版本的wincc & windows

追问

好吧，WIN7 32位， WINCC7.0.
那么您的意思是只能XP?

XP试了还是不行，不知道哪里的问题。。。。。。。。