对象不支持该属性或方法

2019年6月11日上午9:41 • SIMATIC WinCC

Option Explicit
Function action
Dim nh
nh=Hour(Time)
Dim sd,st,ed,et,cls,money_1,electric_1,money_2,electric_2
''''''''''''''''''''''''''read the tags when the time is we need'''''''''''''''''''''''''''
If nh=7  Then
         sd=Date
         st=#00:00#
         ed=Date
         et=#7:59#
         cls="早班"
         money_1=HMIRuntime.Tags ("P_M") ‘外部变量读入
         money_2=HMIRuntime.Tags ("P_M")
         electric_1=HMIRuntime.Tags ("P_M")
         electric_2=HMIRuntime.Tags ("P_M")
End If
If nh=15 Then
    sd=Date
          st=#8:00#
             ed=Date
          et=#15:59#
    cls="中班"
    money_1=HMIRuntime.Tags ("P_M")
    money_2=HMIRuntime.Tags ("P_M")
    electric_1=HMIRuntime.Tags ("P_Z")
    electric_2=HMIRuntime.Tags ("P_M")

End If
If nh=23 Then
             sd=Date-1
    st=#16:00#
             ed=Date
          et=#23:59#
    cls="晚班"
    money_1=HMIRuntime.Tags ("P_M")
    money_2=HMIRuntime.Tags ("P_M")
    electric_1=HMIRuntime.Tags ("P_W")
    electric_2=HMIRuntime.Tags ("P_M")
End If

''''''''''''''''connect'''''''''''''''''''''''''''''
If nh=7 Or 15 Or 23  Then
    money_1.Read
    money_2.Read
    electric_1.Read
    electric_2.Read
    Dim cn,strcn,as_sql,bs_sql,cs_sql,ds_sql
    Set cn=CreateObject("ADODB.Connection")
    strcn="DSN=xddltj;UID="";PWD="""
    cn.Connectionstring=strcn
    cn.open
    as_sql="insert into mreport_1 (sd,st,ed,et,cls,money) values ('"&sd.value&"','"&st.value&"','"&ed.value&"','"&et.value&"','"&cld.value&"','"&money_1.value&"')"
    bs_sql="insert into mreport_2 (sd,st,ed,et,cls,money) values ('"&sd.value&"','"&st.value&"','"&ed.value&"','"&et.value&"','"&cls.value&"','"&money_2.value&"')"
    cs_sql="insert into ereport_1 (sd,st,ed,et,cls,electric) values ('"&sd.value&"','"&st.value&"','"&ed.value&"','"&et.value&"','"&cls.value&"','"&electric_1.value&"')"
    ds_sql="insert into ereport_2 (sd,st,ed,et,cls,electric) values ('"&sd.value&"','"&st.value&"','"&ed.value&"','"&et.value&"','"&cls.value&"','"&electric_1.value&"')"
    cn.execute as_sql
    cn.execute bs_sql
    cn.execute cs_sql
    cn.execute ds_sql
cn.close
End If
End Function

报错“对象不支持该属性或方法”。想用它，完成对外部变量的定时读入保存到数据库内。
分数不多~~不吝赐教。谢谢

问题补充：
line 12：此句报错，对象不支持此属性或方法。money_1是外部变量通过c的gettag和settag 转变来的内部变量
1楼谢谢你的回答，不过为什么要内部变量在归档能用我还是不清楚。
2楼谢谢。我已经改过了

最佳答案

有点画蛇添足的味道，呵呵
sd、st、ed等又不是对象，哪来的.Value属性。
另外cld是不是cls啊？
-------------------------------------------------
Set money_1=HMIRuntime.Tags ("P_M") '外部变量读入
以下类推

提问者对于答案的评价：
有点擦边。ADO 技术的 connection 对象不支持 execute 方法调用 insert，ADO 的command 对象支持execute 方法调用。insert into 语句用法也有失误。

原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc273089.html

对象不支持该属性或方法

相关推荐