点击按钮将数据添加进数据表，追加一条记录（如果是定时添加记录，将代码写在全局脚本，稍作改动即可） Sub OnClick(ByVal Item) Dim sCon Dim sSql Dim oRs Dim conn Dim oCom Dim Con Dim Data1, Data2, Data3,Data4,Data5,Data6,Data7,Data8,Data9 Data1=HMIRuntime.tags("TE101").read Data2=HMIRuntime.tags("TE102
西门子数据库查询vb程序西门子数据库查询 Sub OnClick(Byval Item) '定义变量 Dim spro,sdsn,sser,scon,conn,ssql,ors,ocom Dim tagdnsname Dim m,i Dim local_begin_time,local_end_time,utc_begin_time,utc_end_time Dim count_data'数据记录的个数 Dim sum_data'数据记录的累积 Dim aver'平均值
