[size=18px]在wincc系统中使用vb脚本把动态数据写入数据库中，用了三个脚本完成这个动作HMIRuntime.Tags（“xxx”）为调用wincc变量
现在这个脚本不运行了，请大神帮忙看看问题出在哪……
Option Explicit
Function action
'判断工件是否到位，获取当前工件位置和工件的三个字符串信息
Dim value110
value110=HMIRuntime.Tags("op110DB1011_X150_0").ReadIf value110 = 1 Then
Dim strconnectionstring
Dim strsql1,strsql2,strsql3,strsql4,strsql5,strsql6,strsql7
Dim value0,value42,value84
Dim data1,data2,data3,data4
Dim objcommand
Dim objconnection
Dim objRecordset
Dim id
Dim lngCount
Dim lngValue strconnectionstring = "Provider=OraOLEDB.Oracle.1;Data Source=zzex;User ID=system;Password=zzex;"Set objconnection=CreateObject("ADODB.connection")
Set objcommand = CreateObject("ADODB.Command")
objconnection.open strconnectionstring
objcommand.ActiveConnection=strconnectionstring
objcommand.CommandType = 1'设置表Header
value0=HMIRuntime.Tags("op110DB1011_STRING0_20").Read
value42=HMIRuntime.Tags("op110DB1011_STRING42_20").Read
value84=HMIRuntime.Tags("op110DB1011_STRING84_20").ReadHMIRuntime.Tags("op110_name").Write value0
HMIRuntime.Tags("op110_jishuqi").Write 0
HMIRuntime.Tags("op110_cishu").Write 0'获得当前系统时间
Dim datatime
Dim m_datatime
datatime=Now()
HMIRuntime.Tags("Tag_datatime").Write CStr(Year(datatime))&"-"&CStr(Month(datatime))&"-"&CStr(Day(datatime))&" "&CStr(Hour(datatime))&":"&CStr(Minute(datatime))&":"&CStr(Second(datatime))
m_datatime=HMIRuntime.Tags("Tag_datatime").Readstrsql1="insert into PD_copyHeader(organization_id,Header_Seq,Department_Order,EG_NUM,ITEM_NUMBER,PRODUCT_TYPE,Current_Location,Accept_Status,Creation_Date) values('869',seq_header.nextval,'NULL','"& value0 &"','"& value42 &"','"& value84 &"','OP110','ACC','"& m_datatime &"')"
objcommand.CommandText=strsql1
objcommand.Execute'设置表Station
'在PD_copyHeader表中查询当前工位工件的Header_Seq号
strsql2="select Header_Seq from PD_copyHeader where EG_NUM = '"& value0 &"' and Current_Location ='OP110' "
'strsql2="select Header_Seq from PD_copyHeader"
objcommand.CommandText=strsql2
Set objRecordset = objcommand.Execute
lngCount = objRecordset.Fields.Count'If (lngCount>0) Then
'objRecordset.movefirst
lngValue = objRecordset.Fields(0).Value
'HMIRuntime.Tags("a").Write lngValue
'End If'strsql3="insert into PD_copyStation(Station_Seq,Header_Seq,EG_NUM,Department_Order,Station,Station_Accept_Status,Enter_time,Leave_Time,IPV_Flag) values(seq_station.nextval,'"& lngvalue &"','"& value0 &"','Null','OP110','ACC','"& m_datatime &"','"& m_datatime &"','Null')"
strsql3="insert into PD_copyStation(Station_Seq,Header_Seq,EG_NUM,Department_Order,Station,Station_Accept_Status,Enter_time) values(seq_station.nextval,'"& lngvalue &"','"& value0 &"','NULL','OP110','ACC','"& m_datatime &"')"
objcommand.CommandText=strsql3
objcommand.Execute'设置表Operation
'在PD_copyStation表中查询当前工位工件的Station_Seq号
strsql4="select Station_Seq from PD_copyStation where EG_NUM = '"& value0 &"' and Station = 'OP110' "
objcommand.CommandText=strsql4
Set objRecordset = objcommand.Execute
lngCount = objRecordset.Fields.CountlngValue = objRecordset.Fields(0).Value strsql5="insert into PD_copyOperation(Operation_Seq,Station_Seq,Oper_Type,Oper_Accept_Status,Date_Time) values (seq_operation.nextval,'"& lngvalue &"','NJ','ACC','"& m_datatime &"')"
objcommand.CommandText=strsql5
objcommand.Execute
End If'获得离开工位时间
Dim value1
value1=HMIRuntime.Tags("op110DB1011_X150_0").Read
If value1 = 0 Then
'获得当前系统时间
Dim datatime1
Dim m_datatime1
datatime1=Now()
HMIRuntime.Tags("Tag_datatime1").Write CStr(Year(datatime1))&"-"&CStr(Month(datatime1))&"-"&CStr(Day(datatime1))&" "&CStr(Hour(datatime1))&":"&CStr(Minute(datatime1))&":"&CStr(Second(datatime1))
m_datatime1=HMIRuntime.Tags("Tag_datatime1").Readstrsql6="select Station_Seq from PD_copyStation where EG_NUM = '"& value0 &"' and Station ='OP110' "
objcommand.CommandText=strsql6
Set objRecordset = objcommand.Execute
lngCount = objRecordset.Fields.Count
lngValue = objRecordset.Fields(0).Value
strsql7="update PD_copyStation set Leave_time='"& m_datatime1 &"' where Station_Seq='"& lngValue &"'"
objcommand.CommandText=strsql7
objcommand.Execute
End If
End Function=============================================================================================================Option Explicit
Function action
'判断工件是否合格，获取当前工件位置和工件的三个字符串信息
Dim value110
value110=HMIRuntime.Tags("op110DB1011_X150_4").ReadIf value110 = 1 ThenDim strconnectionstring
Dim strsql1,strsql2,strsql3,strsql4,strsql5,strsql6,strsql7,strsql8,strsql9,strsql10
Dim value0,value42,value84
Dim data1,data2,data3,data4
Dim objcommand
Dim objconnection
Dim objRecordset
Dim id
Dim lngCount
Dim lngValue strconnectionstring = "Provider=OraOLEDB.Oracle.1;Data Source=zzex;User ID=system;Password=zzex;"Set objconnection=CreateObject("ADODB.connection")
Set objcommand = CreateObject("ADODB.Command")
objconnection.open strconnectionstring
objcommand.ActiveConnection=strconnectionstring
objcommand.CommandType = 1value0=HMIRuntime.Tags("op110DB1011_STRING0_20").Read
value42=HMIRuntime.Tags("op110DB1011_STRING42_20").Read
value84=HMIRuntime.Tags("op110DB1011_STRING84_20").Read
'获得当前系统时间
Dim datatime
Dim m_datatime
datatime=Now()
HMIRuntime.Tags("Tag_datatime").Write CStr(Year(datatime))&"-"&CStr(Month(datatime))&"-"&CStr(Day(datatime))&" "&CStr(Hour(datatime))&":"&CStr(Minute(datatime))&":"&CStr(Second(datatime))
m_datatime=HMIRuntime.Tags("Tag_datatime").Read'在PD_copyStation表中查询当前工位工件的Station_Seq号
strsql1="select Station_Seq from PD_copyStation where EG_NUM = '"& value0 &"' and Station = 'OP110' "
objcommand.CommandText=strsql1
Set objRecordset = objcommand.Execute
lngCount = objRecordset.Fields.Count
lngValue = objRecordset.Fields(0).Value data1=HMIRuntime.Tags("op110DB1011_INT126").Read
'Dim typeError
'If data1=1 Then
'HMIRuntime.Tags("typeError").Write "CO"
'End If
'MsgBox "3"
'If data1=2 Then
'HMIRuntime.Tags("typeError").Write "ST"
'End If
strsql1="insert into PD_copyDefect(Defect_Seq,Station_Seq,Engine_Disposition,Reject_Type,Reject_Status,Reject_Date_Time,Reject_Virtual_Position ) values(seq_defect.nextval,'"& lngvalue &"','"& data1 &"','NJ','NULL','"& m_datatime &"','OP110')"
objcommand.CommandText=strsql1
objcommand.Execute
End if
End Function==============================================================================================================================Option Explicit
Function action
'判断工件是否合格，获取当前工件位置和工件的三个字符串信息
Dim value110
value110=HMIRuntime.Tags("op110DB1011_X150_6").Read
Dim jishuqi
Dim value0,value42,value84,value_name
'设置表Header
value0=HMIRuntime.Tags("op110DB1011_STRING0_20").Read
value42=HMIRuntime.Tags("op110DB1011_STRING42_20").Read
value84=HMIRuntime.Tags("op110DB1011_STRING84_20").Read
value_name=HMIRuntime.Tags("op110_name").Read
jishuqi=HMIRuntime.Tags("op110_jishuqi").ReadDim panduan
If jishuqi = 0 Then
'HMIRuntime.Tags("panduan").Write "ACC"
panduan = "ACC"
End IfIf jishuqi = 1 Then
'HMIRuntime.Tags("panduan").Write "ACC"
panduan = "ACC"
End If'If jishuqi = 2 Then
''HMIRuntime.Tags("panduan").Write "ACC"
'panduan = "ACC"
'End IfIf jishuqi > 1 Then
'HMIRuntime.Tags("panduan").Write "REJ"
panduan = "REJ"
End IfIf value110 = 1 ThenDim strconnectionstring
Dim strsql1,strsql2,strsql3,strsql4,strsql5,strsql6,strsql7,strsql8,strsql9,strsql10
Dim data1,data2,data3,data4,data5,data6,data7,data8,data9,data10,data11,data12,data13,data14,data15,data16,data17,data18,data19,data20,data21,data22,data23,data24
Dim objcommand
Dim objconnection
Dim objRecordset
Dim id
Dim lngCount
Dim lngValue strconnectionstring = "Provider=OraOLEDB.Oracle.1;Data Source=zzex;User ID=system;Password=zzex;"Set objconnection=CreateObject("ADODB.connection")
Set objcommand = CreateObject("ADODB.Command")
objconnection.open strconnectionstring
objcommand.ActiveConnection=strconnectionstring
objcommand.CommandType = 1'获得当前系统时间
Dim datatime
Dim m_datatime
datatime=Now()
HMIRuntime.Tags("Tag_datatime").Write CStr(Year(datatime))&"-"&CStr(Month(datatime))&"-"&CStr(Day(datatime))&" "&CStr(Hour(datatime))&":"&CStr(Minute(datatime))&":"&CStr(Second(datatime))
m_datatime=HMIRuntime.Tags("Tag_datatime").Read'在PD_copyStation表中查询当前工位工件的Station_Seq号
strsql1="select Station_Seq from PD_copyStation where EG_NUM = '"& value0 &"' and Station = 'OP110' "
objcommand.CommandText=strsql1
Set objRecordset = objcommand.Execute
lngCount = objRecordset.Fields.Count
lngValue = objRecordset.Fields(0).Value '在PD_copyStation表中查询当前工位工件的Station_Seq号
strsql2="select Operation_Seq from PD_copyOperation where Station_Seq = '"& lngValue &"' "
objcommand.CommandText=strsql2
Set objRecordset = objcommand.Execute
lngCount = objRecordset.Fields.CountlngValue = objRecordset.Fields(0).Value
data1=HMIRuntime.Tags("op110DB1011_REAL178").Readstrsql3="insert into PD_copyIpv(Operation_Seq,Virtual_Position,Characteristic,Retry_Attempt,Char_Accept_Status,Date_Time,IPV_VALUE,PERM_SET) values('"& lngvalue &"','Bolt1Torqu','tighten','"& jishuqi &"','"& panduan &"','"& m_datatime &"','"& data1 &"','牛米')"
objcommand.CommandText=strsql3
objcommand.ExecuteEnd if
End Function
现在这个脚本不运行了，请大神帮忙看看问题出在哪……
Option Explicit
Function action
'判断工件是否到位，获取当前工件位置和工件的三个字符串信息
Dim value110
value110=HMIRuntime.Tags("op110DB1011_X150_0").ReadIf value110 = 1 Then
Dim strconnectionstring
Dim strsql1,strsql2,strsql3,strsql4,strsql5,strsql6,strsql7
Dim value0,value42,value84
Dim data1,data2,data3,data4
Dim objcommand
Dim objconnection
Dim objRecordset
Dim id
Dim lngCount
Dim lngValue strconnectionstring = "Provider=OraOLEDB.Oracle.1;Data Source=zzex;User ID=system;Password=zzex;"Set objconnection=CreateObject("ADODB.connection")
Set objcommand = CreateObject("ADODB.Command")
objconnection.open strconnectionstring
objcommand.ActiveConnection=strconnectionstring
objcommand.CommandType = 1'设置表Header
value0=HMIRuntime.Tags("op110DB1011_STRING0_20").Read
value42=HMIRuntime.Tags("op110DB1011_STRING42_20").Read
value84=HMIRuntime.Tags("op110DB1011_STRING84_20").ReadHMIRuntime.Tags("op110_name").Write value0
HMIRuntime.Tags("op110_jishuqi").Write 0
HMIRuntime.Tags("op110_cishu").Write 0'获得当前系统时间
Dim datatime
Dim m_datatime
datatime=Now()
HMIRuntime.Tags("Tag_datatime").Write CStr(Year(datatime))&"-"&CStr(Month(datatime))&"-"&CStr(Day(datatime))&" "&CStr(Hour(datatime))&":"&CStr(Minute(datatime))&":"&CStr(Second(datatime))
m_datatime=HMIRuntime.Tags("Tag_datatime").Readstrsql1="insert into PD_copyHeader(organization_id,Header_Seq,Department_Order,EG_NUM,ITEM_NUMBER,PRODUCT_TYPE,Current_Location,Accept_Status,Creation_Date) values('869',seq_header.nextval,'NULL','"& value0 &"','"& value42 &"','"& value84 &"','OP110','ACC','"& m_datatime &"')"
objcommand.CommandText=strsql1
objcommand.Execute'设置表Station
'在PD_copyHeader表中查询当前工位工件的Header_Seq号
strsql2="select Header_Seq from PD_copyHeader where EG_NUM = '"& value0 &"' and Current_Location ='OP110' "
'strsql2="select Header_Seq from PD_copyHeader"
objcommand.CommandText=strsql2
Set objRecordset = objcommand.Execute
lngCount = objRecordset.Fields.Count'If (lngCount>0) Then
'objRecordset.movefirst
lngValue = objRecordset.Fields(0).Value
'HMIRuntime.Tags("a").Write lngValue
'End If'strsql3="insert into PD_copyStation(Station_Seq,Header_Seq,EG_NUM,Department_Order,Station,Station_Accept_Status,Enter_time,Leave_Time,IPV_Flag) values(seq_station.nextval,'"& lngvalue &"','"& value0 &"','Null','OP110','ACC','"& m_datatime &"','"& m_datatime &"','Null')"
strsql3="insert into PD_copyStation(Station_Seq,Header_Seq,EG_NUM,Department_Order,Station,Station_Accept_Status,Enter_time) values(seq_station.nextval,'"& lngvalue &"','"& value0 &"','NULL','OP110','ACC','"& m_datatime &"')"
objcommand.CommandText=strsql3
objcommand.Execute'设置表Operation
'在PD_copyStation表中查询当前工位工件的Station_Seq号
strsql4="select Station_Seq from PD_copyStation where EG_NUM = '"& value0 &"' and Station = 'OP110' "
objcommand.CommandText=strsql4
Set objRecordset = objcommand.Execute
lngCount = objRecordset.Fields.CountlngValue = objRecordset.Fields(0).Value strsql5="insert into PD_copyOperation(Operation_Seq,Station_Seq,Oper_Type,Oper_Accept_Status,Date_Time) values (seq_operation.nextval,'"& lngvalue &"','NJ','ACC','"& m_datatime &"')"
objcommand.CommandText=strsql5
objcommand.Execute
End If'获得离开工位时间
Dim value1
value1=HMIRuntime.Tags("op110DB1011_X150_0").Read
If value1 = 0 Then
'获得当前系统时间
Dim datatime1
Dim m_datatime1
datatime1=Now()
HMIRuntime.Tags("Tag_datatime1").Write CStr(Year(datatime1))&"-"&CStr(Month(datatime1))&"-"&CStr(Day(datatime1))&" "&CStr(Hour(datatime1))&":"&CStr(Minute(datatime1))&":"&CStr(Second(datatime1))
m_datatime1=HMIRuntime.Tags("Tag_datatime1").Readstrsql6="select Station_Seq from PD_copyStation where EG_NUM = '"& value0 &"' and Station ='OP110' "
objcommand.CommandText=strsql6
Set objRecordset = objcommand.Execute
lngCount = objRecordset.Fields.Count
lngValue = objRecordset.Fields(0).Value
strsql7="update PD_copyStation set Leave_time='"& m_datatime1 &"' where Station_Seq='"& lngValue &"'"
objcommand.CommandText=strsql7
objcommand.Execute
End If
End Function=============================================================================================================Option Explicit
Function action
'判断工件是否合格，获取当前工件位置和工件的三个字符串信息
Dim value110
value110=HMIRuntime.Tags("op110DB1011_X150_4").ReadIf value110 = 1 ThenDim strconnectionstring
Dim strsql1,strsql2,strsql3,strsql4,strsql5,strsql6,strsql7,strsql8,strsql9,strsql10
Dim value0,value42,value84
Dim data1,data2,data3,data4
Dim objcommand
Dim objconnection
Dim objRecordset
Dim id
Dim lngCount
Dim lngValue strconnectionstring = "Provider=OraOLEDB.Oracle.1;Data Source=zzex;User ID=system;Password=zzex;"Set objconnection=CreateObject("ADODB.connection")
Set objcommand = CreateObject("ADODB.Command")
objconnection.open strconnectionstring
objcommand.ActiveConnection=strconnectionstring
objcommand.CommandType = 1value0=HMIRuntime.Tags("op110DB1011_STRING0_20").Read
value42=HMIRuntime.Tags("op110DB1011_STRING42_20").Read
value84=HMIRuntime.Tags("op110DB1011_STRING84_20").Read
'获得当前系统时间
Dim datatime
Dim m_datatime
datatime=Now()
HMIRuntime.Tags("Tag_datatime").Write CStr(Year(datatime))&"-"&CStr(Month(datatime))&"-"&CStr(Day(datatime))&" "&CStr(Hour(datatime))&":"&CStr(Minute(datatime))&":"&CStr(Second(datatime))
m_datatime=HMIRuntime.Tags("Tag_datatime").Read'在PD_copyStation表中查询当前工位工件的Station_Seq号
strsql1="select Station_Seq from PD_copyStation where EG_NUM = '"& value0 &"' and Station = 'OP110' "
objcommand.CommandText=strsql1
Set objRecordset = objcommand.Execute
lngCount = objRecordset.Fields.Count
lngValue = objRecordset.Fields(0).Value data1=HMIRuntime.Tags("op110DB1011_INT126").Read
'Dim typeError
'If data1=1 Then
'HMIRuntime.Tags("typeError").Write "CO"
'End If
'MsgBox "3"
'If data1=2 Then
'HMIRuntime.Tags("typeError").Write "ST"
'End If
strsql1="insert into PD_copyDefect(Defect_Seq,Station_Seq,Engine_Disposition,Reject_Type,Reject_Status,Reject_Date_Time,Reject_Virtual_Position ) values(seq_defect.nextval,'"& lngvalue &"','"& data1 &"','NJ','NULL','"& m_datatime &"','OP110')"
objcommand.CommandText=strsql1
objcommand.Execute
End if
End Function==============================================================================================================================Option Explicit
Function action
'判断工件是否合格，获取当前工件位置和工件的三个字符串信息
Dim value110
value110=HMIRuntime.Tags("op110DB1011_X150_6").Read
Dim jishuqi
Dim value0,value42,value84,value_name
'设置表Header
value0=HMIRuntime.Tags("op110DB1011_STRING0_20").Read
value42=HMIRuntime.Tags("op110DB1011_STRING42_20").Read
value84=HMIRuntime.Tags("op110DB1011_STRING84_20").Read
value_name=HMIRuntime.Tags("op110_name").Read
jishuqi=HMIRuntime.Tags("op110_jishuqi").ReadDim panduan
If jishuqi = 0 Then
'HMIRuntime.Tags("panduan").Write "ACC"
panduan = "ACC"
End IfIf jishuqi = 1 Then
'HMIRuntime.Tags("panduan").Write "ACC"
panduan = "ACC"
End If'If jishuqi = 2 Then
''HMIRuntime.Tags("panduan").Write "ACC"
'panduan = "ACC"
'End IfIf jishuqi > 1 Then
'HMIRuntime.Tags("panduan").Write "REJ"
panduan = "REJ"
End IfIf value110 = 1 ThenDim strconnectionstring
Dim strsql1,strsql2,strsql3,strsql4,strsql5,strsql6,strsql7,strsql8,strsql9,strsql10
Dim data1,data2,data3,data4,data5,data6,data7,data8,data9,data10,data11,data12,data13,data14,data15,data16,data17,data18,data19,data20,data21,data22,data23,data24
Dim objcommand
Dim objconnection
Dim objRecordset
Dim id
Dim lngCount
Dim lngValue strconnectionstring = "Provider=OraOLEDB.Oracle.1;Data Source=zzex;User ID=system;Password=zzex;"Set objconnection=CreateObject("ADODB.connection")
Set objcommand = CreateObject("ADODB.Command")
objconnection.open strconnectionstring
objcommand.ActiveConnection=strconnectionstring
objcommand.CommandType = 1'获得当前系统时间
Dim datatime
Dim m_datatime
datatime=Now()
HMIRuntime.Tags("Tag_datatime").Write CStr(Year(datatime))&"-"&CStr(Month(datatime))&"-"&CStr(Day(datatime))&" "&CStr(Hour(datatime))&":"&CStr(Minute(datatime))&":"&CStr(Second(datatime))
m_datatime=HMIRuntime.Tags("Tag_datatime").Read'在PD_copyStation表中查询当前工位工件的Station_Seq号
strsql1="select Station_Seq from PD_copyStation where EG_NUM = '"& value0 &"' and Station = 'OP110' "
objcommand.CommandText=strsql1
Set objRecordset = objcommand.Execute
lngCount = objRecordset.Fields.Count
lngValue = objRecordset.Fields(0).Value '在PD_copyStation表中查询当前工位工件的Station_Seq号
strsql2="select Operation_Seq from PD_copyOperation where Station_Seq = '"& lngValue &"' "
objcommand.CommandText=strsql2
Set objRecordset = objcommand.Execute
lngCount = objRecordset.Fields.CountlngValue = objRecordset.Fields(0).Value
data1=HMIRuntime.Tags("op110DB1011_REAL178").Readstrsql3="insert into PD_copyIpv(Operation_Seq,Virtual_Position,Characteristic,Retry_Attempt,Char_Accept_Status,Date_Time,IPV_VALUE,PERM_SET) values('"& lngvalue &"','Bolt1Torqu','tighten','"& jishuqi &"','"& panduan &"','"& m_datatime &"','"& data1 &"','牛米')"
objcommand.CommandText=strsql3
objcommand.ExecuteEnd if
End Function
光看代码谁晓得？