在WinCC中通过VBS操作SQL Server2005.docxVIP

在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 savedataDim objConnectionDim objCommandDim objRecordsetDim strConnectionStringDim strSQLDim norder,pileno,cardno,operno,energy,cost,period,rate,pdate,ptimenorder=HMIRuntime.Tags(norder).Readpileno=HMIRuntime.Tags(pileno).Readcardno=HMIRuntime.Tags(cardno).Readoperno=HMIRuntime.Tags(operno).Read energy=HMIRuntime.Tags(energy).Readcost=HMIRuntime.Tags(cost).Readperiod=HMIRuntime.Tags(period).Readrate=HMIRuntime.Tags(rate).Readpdate=HMIRuntime.Tags(pdate).Readptime=HMIRuntime.Tags(ptime).ReadstrConnectionString = Provider=MSDASQL;DSN=evcs;UID=;PWD=; Set objConnection = CreateObject(ADODB.Connection)objConnection.ConnectionString = strConnectionStringobjConnection.OpenSet objRecordset = CreateObject(ADODB.Recordset)Set objCommand = CreateObject(ADODB.Command)objCommand.ActiveConnection = objConnectionstrSQL = 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 = strSQLobjCommand.ExecuteSet objCommand = NothingobjConnection.CloseSet objRecordset = NothingSet objConnection = NothingEnd Sub2、在全局脚本VBS动作中创建1秒周期的周期性出发动作，并添加如下代码：Option ExplicitFunction actionDim v1v1=HMIRuntime.Tags(satuse).ReadIf v1 ThenCall savedataHMIRuntime.Tags(satuse).Write 0End ifEnd Function这样当satuse值为1时系统自动保存数据三、数据查询数据的查询要复杂一些，需要用到MSFlexGrid控件、MS Form2 ComboBox控件和MS Form2TextBox，这几个控件可以单独注册也可以安装VB6后自动添加。在查询页面上添加打开页面执行脚本如下：Sub OnOpen()Dim MSFlexGrid1,cb1