[size=18px]在wincc系統中使用vb腳本把動態資料寫入資料庫中，用了三個腳本完成這個動作HMIRuntime.Tags（“xxx”）為呼叫wincc變數
現在這個腳本不運行了，請大神幫忙看看問題出在哪……
Option Explicit
Function action
'判斷工件是否到位，獲取當前工件位置和工件的三個字串資訊
Dim value110
value110=HMIRuntime.Tags("op110DB1011_X150_0").Read
If 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").Read
HMIRuntime.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").Read
strsql1="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.Count
lngValue = 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").Read
strsql6="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").Read
If value110 = 1 Then
Dim 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 = 1
value0=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").Read
Dim panduan
If jishuqi = 0 Then
'HMIRuntime.Tags("panduan").Write "ACC"
panduan = "ACC"
End If
If jishuqi = 1 Then
'HMIRuntime.Tags("panduan").Write "ACC"
panduan = "ACC"
End If
'If jishuqi = 2 Then
''HMIRuntime.Tags("panduan").Write "ACC"
'panduan = "ACC"
'End If
If jishuqi > 1 Then
'HMIRuntime.Tags("panduan").Write "REJ"
panduan = "REJ"
End If
If value110 = 1 Then
Dim 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.Count
lngValue = objRecordset.Fields(0).Value
data1=HMIRuntime.Tags("op110DB1011_REAL178").Read
strsql3="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.Execute
End if
End Function
uj5u.com熱心網友回復：
跪求大神了……uj5u.com熱心網友回復：
你自己多加些除錯輸出或MsgBox，看看可運行/不可運行兩個環境下那一步產生了不同，再來提問。光看代碼誰曉得？
uj5u.com熱心網友回復：
將具體插入資料庫對應的insert陳述句的內容寫到一個文本檔案中輔助除錯。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/88051.html
上一篇：Excel圖片的匯入