11/21/2020 12:44 PM | |
Posts: 14 Rating: (0) |
HI I Need to retrieve my data from sql server , here i enclosed my program but i dont know how to get data Option Explicit Function action Dim strconnectionstring Dim Objconnection Dim objcommand Dim strSQL, Er Dim V1, V2, V3, V4, V5, V6, V7, V8, V9, V10, V11 Dim V12, V13, V14, V15, V16, V17 Dim DateTimer 'SmartTags("SCRIPT TAGS\TEST_1")= True DateTimer = Now() 'MsgBox DateTimer v1 = HMIRuntime.Tags("M3_Batch").Read v2 = HMIRuntime.Tags("SM3_TC1").Read v3 = HMIRuntime.Tags("SM3_TC2").Read v4 = HMIRuntime.Tags("SM3_TC3").Read v5 = HMIRuntime.Tags("SM3_TC4").Read v6 = HMIRuntime.Tags("SM3_WC1").Read v7 = HMIRuntime.Tags("EM3_DRV_FREQ_ACT").Read v8 = HMIRuntime.Tags("EM3_DRV_HP_ACT").Read v9 = HMIRuntime.Tags("M3_RPM").Read v10 = HMIRuntime.Tags("M3_DRIVE_RUN").Read v11 = HMIRuntime.Tags("M3_PRE_TANK_AGI_ON").Read v12 = HMIRuntime.Tags("M3_PRE_TANK_FEED_ON").Read v13 = HMIRuntime.Tags("M3_CAT_TANK_FEED_ON").Read v14 = HMIRuntime.Tags("M3_Con_Inlet_Sensor").Read v15 = HMIRuntime.Tags("M3_Jacket_Bypass_Drain_Sensor").Read v16 = HMIRuntime.Tags("M3_Jacket_Inlet_Sensor").Read v17 = HMIRuntime.Tags("m3_press").Read 'strconnectionstring = ("Provider=SQLOLEDB; Integrated Security=SSPI;Initial Catalog=PLC;Data Source=HUSSAIN-PC\PLC") strconnectionstring = ("Provider=SQLOLEDB; Integrated Security=SSPI;Initial Catalog=PLC_09072018;Data Source=HUSSAIN-PC") strSQL = "INSERT INTO V1_M3_CustomSeconds(DateTime, Batch, Bottom_T, Vent_T, Condenser_T, Reactor_Jacket_T, Tank_Weight, Freq, Power, Reactor_RPM, Reactor, PE_Mixer, PE_Feedpump, Cat_Pump, M3_Con_Inlet, M3_Jacket_Bypass_Drain, M3_Jacket_Inlet) values (getDate(), m3_press'" & V1 & "','" & V2 & "','" & V3 & "','" & V4 & "','" & V5 & "','" & V6 & "','" & V7 & "', '" & V8 & "', '" & V9 & "','" & V10 & "','" & V11 & "','" & V12 & "','" & V13 & "','" & V14 & "','" & V15 & "','" & V16 & "','" & V17 & "')" Set Objconnection = CreateObject("ADODB.Connection") Objconnection.ConnectionString = strconnectionstring Objconnection.Open Set objcommand = CreateObject("ADODB.Command") Set objcommand.ActiveConnection = Objconnection objcommand.CommandText = strSQL objcommand.execute Set Objconnection = Nothing Set objcommand = Nothing End Function Objconnection.Open Set objcommand = CreateObject("ADODB.Command") Set objcommand.ActiveConnection = Objconnection objcommand.CommandText = strSQL objcommand.execute Set Objconnection = Nothing Set objcommand = Nothing End Function ------------------------------------------------------------------------------------------ |
Last edited by: Jen_Moderator at: 11/23/2020 09:54:47New subject after splitting |
|
11/30/2020 1:23 PM | |
Joined: 12/12/2011 Last visit: 12/30/2020 Posts: 821 Rating: (41)
|
Hi, i think this article is going to help you: https://support.industry.siemens.com/cs/ww/en/view/38132261 B.R. |
Grundkurs/Systemkurs WinCC V7: |
|
Follow us on