Wincc 記錄數據到sql

添加如下vbs腳本.

並在適當的時候調用,比如定時器觸發

 

Sub LogVal(furno)
    '記錄溫度值等等  
    Dim conn ,sqlstr         
    Set conn = CreateObject("ADODB.Connection")
    conn.open  "Provider=SQLOLEDB.1;Initial Catalog=L2Share;Data Source=192.168.11.1;User ID=xcg;Password=123456;"        
    
    If(furno =1) Then     Call LogValF1(conn,furno)     End If
    If(furno =2) Then     Call LogValF2(conn,furno)     End If
    
    conn.close        '關閉連接
    Set conn=Nothing        '釋放對象
    
End Sub

Sub LogValF1(conn,furno)
    'F1記錄溫度值等等  
    Dim sqlstr         
    Dim ValuesList
    Dim t1,s1,s2,s3
    Dim v0,v1,v2,v3,v4,v5,v6,v7
    t1= ",'"&Now()&"'"
    ''' t1= "'" & Year(Now)&"-"&Month(Now)&"-"&Day(Now)&" "&  Hour(Now)&":"&Minute(Now)&":"&Second(Now)& "'"
    
    v0=",100"
    v1=",101"
    ValuesList =furno &t1 &v0 &v1
    sqlstr=  "Insert Into 退火爐采集值表 (爐號,時間,V0,V1) Values("& ValuesList &")"
    conn.Execute(sqlstr)   
End Sub

Sub LogValF2(conn,furno)
    'F2記錄溫度值等等  
    Dim sqlstr   
    Dim ValuesList
    Dim t1,s1,s2,s3
    Dim v0,v1,v2,v3,v4,v5,v6,v7
    t1= ",'"&Now()&"'"
    ''' t1= "'" & Year(Now)&"-"&Month(Now)&"-"&Day(Now)&" "&  Hour(Now)&":"&Minute(Now)&":"&Second(Now)& "'"
    
    v0=",200"
    v1=",201"
    ValuesList = furno &t1 &v0 &v1
    sqlstr=  "Insert Into 退火爐采集值表 (爐號,時間,V0,V1) Values("& ValuesList &")"
    conn.Execute(sqlstr)   
End Sub

Sub LogEvent(furno,planid,e)
    '記錄事件名等等  
    Dim conn ,sqlstr         
    Set conn = CreateObject("ADODB.Connection")
    conn.open  "Provider=SQLOLEDB.1;Initial Catalog=L2Share;Data Source=192.168.11.1;User ID=xcg;Password=123456;"        
    Dim t1,t2
    Dim ValuesList
    t1="'"&Date()&"'"
    t2="'"&Now()&"'"
    ValuesList =t1 &","&t2 &","&furno&",'" &planid &"','" &e&"'"
    sqlstr=  "Insert Into 退火爐事件表 (日期,時間,爐號,生產計划號,事件名) Values("&ValuesList&")"
    conn.Execute(sqlstr)    
    conn.close        '關閉連接
    Set conn=Nothing        '釋放對象
End Sub