在WinCC中通过VBS操作SQL Server2005

在项目中需要在一定条件满足时，保存一些数据到数据库中，并可根据条件查询。考虑到WinCC6.2以后采用的就是SQL Server2005数据库，所以直接利用该数据库即可，通过SQL Server Management Studio（SSMS）可以创建自己的数据库，并安要求创建好表。

一、数据库连接

在SQL Server Management Studio（SSMS）中创建名为evcp的数据库，再创建名为evcp的表，然后根据需要创建Columns，在本项目中创建了norder（流水号）、pileno（桩号）、cardno（卡号）、operno（员工号）、energy（电量）、cost（金额）、period（时长）、rate（费率）、pdate（日期）和ptime（时间）。

在本项目中采用ODBC的方式连接数据库，首先在控制面板中创建好数据源，配置好SQL Server驱动数据源，命名为evcs。

二、数据写入

要求在一个状态量值为1的时候完成数据库的保存，等数据保存完后将状态量清0。

1、先在全局脚本VBS项目模块中创建函数savedata，代码如下：

Sub savedata
Dim objConnection
Dim objCommand
Dim objRecordset
Dim strConnectionString
Dim strSQL
Dim norder,pileno,cardno,operno,energy,cost,period,rate,pdate,ptime

norder=HMIRuntime.Tags("norder").Read
pileno= HMIRuntime.Tags("pileno").Read
cardno=HMIRuntime.Tags("cardno").Read
operno= HMIRuntime.Tags("operno").Read
energy= HMIRuntime.Tags("energy").Read
cost= HMIRuntime.Tags("cost").Read
period= HMIRuntime.Tags("period").Read
rate= HMIRuntime.Tags("rate").Read
pdate= HMIRuntime.Tags("pdate").Read
ptime= HMIRuntime.Tags("ptime").Read

strConnectionString = "Provider=MSDASQL;DSN=evcs;UID=;PWD=;"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open

Set objRecordset = CreateObject("ADODB.Recordset")
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection

strSQL = "insert into evcp (norder,pileno,cardno,operno,energy,cost,period,rate,pdate,ptime) values ("&_
"'"&norder&"',"&_
"'"&pileno&"',"&_
"'"&cardno&"',"&_
"'"&operno&"',"&_
"'"&energy&"',"&_
"'"&cost&"',"&_
"'"&period&"',"&_
"'"&rate&"',"&_
"'"&pdate&"',"&_
"'"&ptime&"')"
'MsgBox (strSQL)
objCommand.CommandText = strSQL
objCommand.Execute

Set objCommand = Nothing
objConnection.Close
Set objRecordset = Nothing
Set objConnection = Nothing
End Sub

2、在全局脚本VBS动作中创建1秒周期的周期性出发动作，并添加如下代码：

Option Explicit
Function action
Dim v1
v1=HMIRuntime.Tags("satuse").Read

If v1 Then
       Call savedata
       HMIRuntime.Tags("satuse").Write
End if
End Function

这样当satuse值为1时系统自动保存数据

三、数据查询

数据的查询要复杂一些，需要用到MSFlexGrid控件、MS Form2 ComboBox控件和MS Form2 TextBox，这几个控件可以单独注册也可以安装VB6后自动添加。

在查询页面上添加打开页面执行脚本如下：

Sub OnOpen()
Dim MSFlexGrid1,cb1,tb1,tb2
Set MSFlexGrid1 = ScreenItems("控件1")
Set cb1 = ScreenItems("cb1")
Set tb1 = ScreenItems("tb1")
Set tb2 = ScreenItems("tb2")
MSFlexGrid1.Clear

MSFlexGrid1.ColWidth() =
MSFlexGrid1.ColWidth() =
MsFlexGrid1.ColWidth() =
MSFlexGrid1.ColWidth() =
MSFlexGrid1.ColWidth() =
MSFlexGrid1.ColWidth() =
MsFlexGrid1.ColWidth() =
MSFlexGrid1.ColWidth() =
MSFlexGrid1.ColWidth() =
MSFlexGrid1.ColWidth() =
MsFlexGrid1.ColWidth() = 

MSFlexGrid1.TextMatrix(,) = "编号"
MSFlexGrid1.TextMatrix(,) = "流水号"
MSFlexGrid1.TextMatrix(,) = "桩号"
MSFlexGrid1.TextMatrix(,) = "卡号"
MSFlexGrid1.TextMatrix(,) = "操作员号"
MSFlexGrid1.TextMatrix(,) = "电量（度）"
MSFlexGrid1.TextMatrix(,) = "金额（元）"
MSFlexGrid1.TextMatrix(,) = "时长（分）"
MSFlexGrid1.TextMatrix(,) = "费率（元/度）"
MSFlexGrid1.TextMatrix(,) = "日期"
MSFlexGrid1.TextMatrix(,) = "时间"

MSFlexGrid1.ColAlignment() =
MSFlexGrid1.ColAlignment() =
MSFlexGrid1.ColAlignment() =
MSFlexGrid1.ColAlignment() =
MSFlexGrid1.ColAlignment() =
MSFlexGrid1.ColAlignment() =
MSFlexGrid1.ColAlignment() =
MSFlexGrid1.ColAlignment() =
MSFlexGrid1.ColAlignment() =
MSFlexGrid1.ColAlignment() =
MSFlexGrid1.ColAlignment() = 

Dim i
For i=  To  Step
       MSFlexGrid1.TextMatrix(i,) = i
Next

cb1.Text="*"
cb1.AddItem "*"
cb1.AddItem ""
cb1.AddItem ""
tb1.Text="*"
tb2.Text="*"

End Sub

这段代码主要是用来初始化控件的显示。

在查询按钮加入相应的代码实现三个键值（桩号、卡号、操作员号）条件组合的查询，代码如下：

Sub Click(Byval Item)
Dim objConnection
Dim objCommand
Dim objRecordset
Dim strConnectionString
Dim strSQL
Dim MSFlexGrid1,cb1,tb1,tb2
Dim i1,i2,cv1,cv2,cv3,cv
Set MSFlexGrid1 = ScreenItems("控件1")
Set cb1 = ScreenItems("cb1")
Set tb1 = ScreenItems("tb1")
Set tb2 = ScreenItems("tb2")

'清除原有记录
For i1 =  To  Step
For i2= To  Step
       MSFlexGrid1.TextMatrix(i1, i2) =""
Next
Next
strConnectionString = "Provider=MSDASQL;DSN=evcs;UID=;PWD=;"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objRecordset = CreateObject("ADODB.Recordset")
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection

cv1=
cv2=
cv3=
If cb1.Text<>"*" Then
       cv1=
End If

If tb1.Text<>"*" Then
       cv2=
End if

If tb2.Text<>"*" Then
       cv3=
End If
cv=cv1+cv2+cv3
Select Case cv
       Case
              strSQL = "select * from evcp where pileno like '"&cb1.Text&"'And cardno like '"&tb1.Text&"'And operno like '"&tb2.Text&"'"
       Case
              strSQL = "select * from evcp where pileno like '"&cb1.Text&"'And cardno like '"&tb1.Text&"'"
       Case
              strSQL = "select * from evcp where pileno like '"&cb1.Text&"'And operno like '"&tb2.Text&"'"
       Case
              strSQL = "select * from evcp where pileno like '"&cb1.Text&"'"
       Case
              strSQL = "select * from evcp where cardno like '"&tb1.Text&"'And operno like '"&tb2.Text&"'"
       Case
              strSQL = "select * from evcp where cardno like '"&tb1.Text&"'"
       Case
              strSQL = "select * from evcp where operno like '"&tb2.Text&"'"
       Case Else
              strSQL = "select * from evcp"
End Select

objCommand.CommandText = strSQL
Set objRecordset = objCommand.Execute

Dim i
i=
If (objRecordset.Bof And objRecordset.Eof) Then
       MsgBox("没有符合要求的记录")
Else
While Not objRecordset.EOF
       i=i+
       MSFlexGrid1.TextMatrix(i, ) = CStr(objRecordset.Fields().Value)
       MSFlexGrid1.TextMatrix(i, ) = CStr(objRecordset.Fields().Value)
       MSFlexGrid1.TextMatrix(i, ) = CStr(objRecordset.Fields().Value)
       MSFlexGrid1.TextMatrix(i, ) = CStr(objRecordset.Fields().Value)
       MSFlexGrid1.TextMatrix(i, ) = CStr(objRecordset.Fields().Value)
       MSFlexGrid1.TextMatrix(i, ) = CStr(objRecordset.Fields().Value)
       MSFlexGrid1.TextMatrix(i, ) = CStr(objRecordset.Fields().Value)
       MSFlexGrid1.TextMatrix(i, ) = CStr(objRecordset.Fields().Value)
       MSFlexGrid1.TextMatrix(i, ) = CStr(objRecordset.Fields().Value)
       MSFlexGrid1.TextMatrix(i, ) = CStr(objRecordset.Fields().Value)
       objRecordset.movenext
Wend
End If

Set objCommand = Nothing
objConnection.Close
Set objRecordset = Nothing
Set objConnection = Nothing
End Sub