vb修改sql数据库服务器时间格式,博途使用小结：用VB脚本向SQL数据库中写数据的方法...

刚刚学会在博途中利用VB脚本向SQL数据库写数据&＃xff0c;将经验总结为一篇短文供大家讨论&＃xff0c;文中包括如何建立SQL数据库及表格&＃xff0c;如何写脚本以及如何触发脚本。

1、安装TIA时&＃xff0c;SQL Server Management Studio不会自动安装到电脑中&＃xff0c;所以需要自己安装&＃xff0c;我安装的是“SQL

Server 2016”&＃xff0c;事实证明建立表格并写数据都没问题。

2、打开SQL

Server

Management Studio&＃xff0c;会出现图1对话框&＃xff0c;点击连接到服务器&＃xff1b;

图1&＃xff1a;

3、鼠标右键点击数据库&＃xff0c;选择新建数据库&＃xff0c;出现图2对话框&＃xff0c;数据库名称写Wincc&＃xff0c;所有者为默认&＃xff0c;因为数据量比较小&＃xff0c;所以初始大小和自动增量没有进行修改&＃xff0c;但最大大小需要实际情况进行设置&＃xff1b;建好后的数据库如图3&＃xff1b;(注&＃xff1a;SQL

Server允许用户设置数据库初始值和最大值&＃xff0c;可以通过自动增长或者自动收缩进行配置。通过这些配置&＃xff0c;我们可以防止数据库空间问题而导致的应用程序修改失败或者SQL

Server磁盘空间耗尽的事情发生。)

图2&＃xff1a;

图3&＃xff1a;

4、在Wincc数据库中建立表格&＃xff0c;右键点击Wincc中“表”&＃xff0c;选择“表...”建立表格。在表格中选择列名和数据类型&＃xff0c;示例表中建立了3列数据&＃xff0c;分别是TTime、TON和CV01&＃xff0c;其中TTime为系统时间&＃xff0c;由系统自动生成(默认值或绑定一栏写(getdate()))&＃xff0c;列名和数据类型如图4所示&＃xff1b;

图4&＃xff1a;

5、建好表格后开始别写VB脚本&＃xff0c;在编写脚本之前应先建立内部变量用于程序中中间数据的存储&＃xff0c;内部变量见图5&＃xff1b;

图5&＃xff1a;

6、在博途脚本中建立“DayReport”脚本&＃xff0c;脚本类型为“Sub”&＃xff0c;脚本程序如下&＃xff1a;

Dim objConnection  &＃39;

Dim strConnectionString  &＃39;

Dim lngValue  &＃39;

Dim strSQL  &＃39;

Dim objCommand  &＃39;

Dim LocalMinite  &＃39;

Dim LocalHour  &＃39;

Dim TON_Last

Dim TON_Now

Dim TON_Value

strConnectionString&＃61;

"Provider&＃61;SQLOLEDB.1;Integrated

Security&＃61;SSPI;Persist Security Info&＃61;False;Initial

Catalog&＃61;WINCC;Data Source&＃61;.\WINCC"

&＃39;If

SmartTags("SyncDateAndTime_MCC3_DateAndTime.Value.PLC.DateAndTime.MIN")&＃61;25

Then

TON_Last &＃61; SmartTags("TON_Last")

TON_Now &＃61;

SmartTags("BeltScale_MCC3_BS01_TonHour_TON")

TON_Value &＃61; CCur(TON_Now-TON_Last)

strSQL&＃61;"INSERT INTO [day]

([TON],[CV01]) "

strSQL&＃61;strSQL & " VALUES

(&＃39;"& TON_Value &"&＃39;,&＃39;"& TON_Value &"&＃39;) ;"

Set objConnection&＃61;

CreateObject("ADODB.Connection")  &＃39;

objConnection.ConnectionString&＃61;

strConnectionString  &＃39;

objConnection.Open

&＃39;

Set objCommand&＃61;

CreateObject("ADODB.Command")  &＃39;

With objCommand

.ActiveConnection&＃61;

objConnection

.CommandText&＃61; strSQL

End With

objCommand.Execute

&＃39;

Set objCommand&＃61; Nothing  &＃39;

objConnection.Close  &＃39;

Set objConnection&＃61; Nothing

&＃39;End If

注&＃xff1a;脚本类型如果选Function就会一直报错&＃xff0c;尚未找到原因。7、脚本编写完成后还需要触发才能执行&＃xff0c;方法是建立1个新的计划任务“day”&＃xff0c;调用写好的脚本&＃xff0c;设定脚本每分钟执行一次。如图6&＃xff1b;

图6&＃xff1a;

8&＃xff1a;运行后每分钟会生产1条信息&＃xff0c;如图7&＃xff1b;

图7&＃xff1a;