刚刚学会在博途中利用VB脚本向SQL数据库写数据，将经验总结为一篇短文供大家讨论，文中包括如何建立SQL数据库及表格，如何写脚本以及如何触发脚本。
1、安装TIA时，SQL Server Management Studio不会自动安装到电脑中，所以需要自己安装，我安装的是“SQL
Server ”，事实证明建立表格并写数据都没问题。
2、打开SQL
Server
ManagementStudio，会出现图1对话框，点击连接到服务器；
图1：
3、鼠标右键点击数据库，选择新建数据库，出现图2对话框，数据库名称写Wincc，所有者为默认，因为数据量比较小，所以初始大小和自动增量没有进行修改，但最大大小需要实际情况进行设置；建好后的数据库如图3；(注：SQL
Server允许用户设置数据库初始值和最大值，可以通过自动增长或者自动收缩进行配置。通过这些配置，我们可以防止数据库空间问题而导致的应用程序修改失败或者SQL
Server磁盘空间耗尽的事情发生。)
图2：
图3：
4、在Wincc数据库中建立表格，右键点击Wincc中“表”，选择“表...”建立表格。在表格中选择列名和数据类型，示例表中建立了3列数据，分别是TTime、TON和CV01，其中TTime为系统时间，由系统自动生成(默认值或绑定一栏写(getdate()))，列名和数据类型如图4所示；
图4：
5、建好表格后开始别写VB脚本，在编写脚本之前应先建立内部变量用于程序中中间数据的存储，内部变量见图5；
图5：
6、在博途脚本中建立“DayReport”脚本，脚本类型为“Sub”，脚本程序如下：
Dim objConnection '
Dim strConnectionString '
Dim lngValue '
Dim strSQL '
Dim objCommand '
Dim LocalMinite '
Dim LocalHour '
Dim TON_Last
Dim TON_Now
Dim TON_Value
strConnectionString=
"Provider=SQLOLEDB.1;Integrated
Security=SSPI;Persist Security Info=False;Initial
Catalog=WINCC;Data Source=.\WINCC"
'If
SmartTags("SyncDateAndTime_MCC3_DateAndTime.Value.PLC.DateAndTime.MIN")=25
Then
TON_Last = SmartTags("TON_Last")
TON_Now =
SmartTags("BeltScale_MCC3_BS01_TonHour_TON")
TON_Value = CCur(TON_Now-TON_Last)
strSQL="INSERT INTO [day]
([TON],[CV01]) "
strSQL=strSQL & " VALUES
('"& TON_Value &"','"& TON_Value &"') ;"
Set objConnection=
CreateObject("ADODB.Connection") '
objConnection.ConnectionString=
strConnectionString '
objConnection.Open
'
Set objCommand=
CreateObject("mand") '
With objCommand
.ActiveConnection=
objConnection
.CommandText= strSQL
End With
objCommand.Execute
'
Set objCommand= Nothing '
objConnection.Close '
Set objConnection= Nothing
'End If
注：脚本类型如果选Function就会一直报错，尚未找到原因。7、脚本编写完成后还需要触发才能执行，方法是建立1个新的计划任务“day”，调用写好的脚本，设定脚本每分钟执行一次。如图6；
图6：
8：运行后每分钟会生产1条信息，如图7；
图7：
