Question

wincc插入数据库VBS程序

Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)
Dim a1
Set a1 = HMIRuntime.Tags("循环池PH值.实际值")
a1.Read

Dim str
Dim con
Dim sql
' On Error Resume next
Set con=CreateObject("ADODB.Connection")
str="Provider=SQLOLEDB.1;Integrated Security=SSPI;DSN=sms;Uid=sa;Pwd=;"
'----Integrated Security=SSPI这句我不知道是否该要，在网上查的有的例子就有，有的例子就没有--

con.ConnectionString=str
con.open

If con.State=1 Then
sql="INSERT INTO yxdb.smscat(报警值) values('"&a1.value&"')"
con.Execute sql
'--------------------程序到就运行不显示msgbox了----
MsgBox "插入成功",vbOK,"提示"
con.close

End If

End Sub

（1）在控制面板中添加系统DSN的sql server数据源，测试成功。
（2）在SQL SERVER 企业管理器控制台根目录下的（local）windows(NT)下新建yxdb，在yxdb数据库中建立smscat数据表。
（3）在wincc的画面中加一个按钮（数据库插入），按左键时写下如下程序，（以循环池PH值为例，按左键时插入循环池PH值）
到con.Execute sql就Msgbox不在显示

Answer 1

你可以在Execute之前 把sql用msgbox打出来看看 能打出来的话 就把这句话拿到SQL Server管理器里执行一下 就知道对不对了
我估计是应为你的“a1.value”不是字符串 所以sql的值没赋好