近来做了一个
WinCC
与数据库连接的程序,功能如下:
1
、要求用户输入“实验目的”和“实验日期”,点击“建立表格”,则在数据
库中创建了以“实验目的
+
时间”为名字的表
2
、点击“连接数据库”连接上数据库,并开始写入数据
3
、点击“断开数据库”则停止记录数据
做法:
通过一个数字量来判断数否记录数据,
若该数字量是
1
则开始记录数据,
否则停
止。记录数据的时间间隔是
1
秒
在”建立表格“键入代码:
Dim objConnection
Dim strConnectionString
Dim strSQL
Dim objCommand
Dim objscreen
Dim obj_item
Dim obj_item1
Dim biaoming
Dim shjian
Set shjian = HMIRuntime.Tags("shjian")
Set biaoming = HMIRuntime.Tags("biaoming")
Set objscreen=HMIRuntime.Screens("database")
Set obj_item=objscreen.ScreenItems("IOField1")
Set obj_item1=