Skip to Content

SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

SiePortalDeutsch

Search

Home
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menu temporary not available
- Menue temporary not available
- {{item.title}}

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

Navigation

Data logs everytime I press save icon in vb script

Created by: BALAKRISHNAN92 at: 4/15/2025 3:31 PM (2 Replies)

Rating (0)

Thanks 0

3 Entries

4/15/2025 3:31 PM	Rate (0)
BALAKRISHNAN92 Silver Member Joined: 10/21/2013 Last visit: 6/29/2025 Posts: 424 Rating: (28)	Hi experts, I'm facing an issue writing data to sql table from wincc8.0 vb script. Everytime I save the file (vb script it's logging ) but when I call or trigger actual script it's not logging. Option Explicit Function action Dim objConnection, objCommand Dim ConnectionString, sqlQuery Dim materialName101, materialName102, materialName103, materialName104 Dim materialName201,materialName202,materialName203,materialName204 Select Case HMIRuntime.Tags("BIG_MATERIAL_SEL_201").Read Case 0: materialName101 = "SOYA50%" Case 1: materialName101 = "SOYA46%" Case 2: materialName101 = "SOYA44%" Case 3: materialName101 = "BR RICE" Case 4: materialName101 = "BAJRA" Case 5: materialName101 = "NOOK" Case 6: materialName101 = "MAIZE" Case 7: materialName101 = "SOYA" Case Else: materialName101 = "UNKNOWN" End Select Select Case HMIRuntime.Tags("BIG_MATERIAL_SEL_202").Read Case 0: materialName102 = "SOYA50%" Case 1: materialName102 = "SOYA46%" Case 2: materialName102 = "SOYA44%" Case 3: materialName102 = "BR RICE" Case 4: materialName102 = "BAJRA" Case 5: materialName102 = "NOOK" Case 6: materialName102 = "MAIZE" Case 7: materialName102 = "SOYA" Case Else: materialName102 = "UNKNOWN" End Select Select Case HMIRuntime.Tags("BIG_MATERIAL_SEL_203").Read Case 0: materialName103 = "SOYA50%" Case 1: materialName103 = "SOYA46%" Case 2: materialName103 = "SOYA44%" Case 3: materialName103 = "BR RICE" Case 4: materialName103 = "BAJRA" Case 5: materialName103 = "NOOK" Case 6: materialName103 = "MAIZE" Case 7: materialName103 = "SOYA" Case Else: materialName103 = "UNKNOWN" End Select Select Case HMIRuntime.Tags("BIG_MATERIAL_SEL_204").Read Case 0: materialName104 = "SOYA50%" Case 1: materialName104 = "SOYA46%" Case 2: materialName104 = "SOYA44%" Case 3: materialName104 = "BR RICE" Case 4: materialName104 = "BAJRA" Case 5: materialName104 = "NOOK" Case 6: materialName104 = "MAIZE" Case 7: materialName104 = "SOYA" Case Else: materialName104 = "UNKNOWN" End Select Select Case HMIRuntime.Tags("SMALL_MATERIAL_SEL_201").Read Case 0: materialName201 = "SOYA50%" Case 1: materialName201 = "SOYA46%" Case 2: materialName201 = "SOYA44%" Case 3: materialName201 = "BR RICE" Case 4: materialName201 = "BAJRA" Case 5: materialName201 = "NOOK" Case 6: materialName201 = "MAIZE" Case 7: materialName201 = "SOYA" Case Else: materialName201 = "UNKNOWN" End Select Select Case HMIRuntime.Tags("SMALL_MATERIAL_SEL_202").Read Case 0: materialName202 = "SOYA50%" Case 1: materialName202 = "SOYA46%" Case 2: materialName202 = "SOYA44%" Case 3: materialName202 = "BR RICE" Case 4: materialName202 = "BAJRA" Case 5: materialName202 = "NOOK" Case 6: materialName202 = "MAIZE" Case 7: materialName202 = "SOYA" Case Else: materialName202 = "UNKNOWN" End Select Select Case HMIRuntime.Tags("SMALL_MATERIAL_SEL_203").Read Case 0: materialName203 = "SOYA50%" Case 1: materialName203 = "SOYA46%" Case 2: materialName203 = "SOYA44%" Case 3: materialName203 = "BR RICE" Case 4: materialName203 = "BAJRA" Case 5: materialName203 = "NOOK" Case 6: materialName203 = "MAIZE" Case 7: materialName203 = "SOYA" Case Else: materialName203 = "UNKNOWN" End Select Select Case HMIRuntime.Tags("SMALL_MATERIAL_SEL_204").Read Case 0: materialName204 = "SOYA50%" Case 1: materialName204 = "SOYA46%" Case 2: materialName204 = "SOYA44%" Case 3: materialName204 = "BR RICE" Case 4: materialName204 = "BAJRA" Case 5: materialName204 = "NOOK" Case 6: materialName204 = "MAIZE" Case 7: materialName204 = "SOYA" Case Else: materialName204 = "UNKNOWN" End Select ' Enable Error Handling On Error Resume Next ' Correct Connection String with actual database ConnectionString = "Provider=SQLOLEDB; Data Source=DESKTOP-NIKT98J\WINCC;Initial Catalog=gbr;Integrated Security=SSPI" ' Create Connection Object Set objConnection = CreateObject("ADODB.Connection") objConnection.Open ConnectionString ' Check for Connection Errors If Err.Number <> 0 Then MsgBox "Error Connecting to SQL Server: " & Err.Description Exit Function End If ' Create Command Object Set objCommand = CreateObject("ADODB.Command") objCommand.ActiveConnection = objConnection ' Execute multiple insert queries separately Dim queries(7) ' Array to store queries ' If HMIRuntime.Tags("TRIGGER1").Read=1 Then ' If HMIRuntime.Tags("MEALSILO201").Read=1 Then queries(0) = "INSERT INTO MEAL_SILO201 ([Date_Time], [Silo_Name], [Material_Name], [Intake], [Destination_Bin], [Current_Weight], [Weight_Added], [Weight_Taken]) " & _ "VALUES (GETDATE(), 'MEAL_SILO201', '" & Replace(materialName201, "'", "''") & "', " & _ HMIRuntime.Tags("MEAL_INATKE_SELECTION").Read & ", " & _ HMIRuntime.Tags("SMALL_DESTINATION_1").Read & ", " & _ HMIRuntime.Tags("MEAL_201_INTAKE_TOTAL_WEIGHT_DATA").Read & ", " & _ HMIRuntime.Tags("FINAL_INTAKE_FW2_201_LIVE_GOING_DATA").Read & ", " & _ HMIRuntime.Tags("MEAL_201_TOT_RECEIVING_FINAL_DATA").Read & ")" If Err.Number <> 0 Then MsgBox "Error Connecting to SQL Server: " & Err.Description Exit Function End If HMIRuntime.Tags("MEALSILO201").Read=0 HMIRuntime.Tags("TRIGGER1").ReaD=0 ' Else ' End If If HMIRuntime.Tags("MEAL_SILO_202").Read Then queries(1) = "INSERT INTO MEAL_SILO202 ([Date_Time], [Silo_Name], [Material_Name], [Intake], [Destination_Bin], [Current_Weight], [Weight_Added], [Weight_Taken]) " & _ "VALUES (GETDATE(), 'MEAL_SILO202', '" & Replace(materialName202, "'", "''") & "', " & _ HMIRuntime.Tags("MEAL_INATKE_SELECTION").Read & ", " & _ HMIRuntime.Tags("SMALL_DESTINATION_1").Read & ", " & _ HMIRuntime.Tags("MEAL_202_INTAKE_TOTAL_WEIGHT_DATA").Read & ", " & _ HMIRuntime.Tags("FINAL_INTAKE_FW2_202_LIVE_GOING_DATA").Read & ", " & _ HMIRuntime.Tags("MEAL_202_TOT_RECEIVING_FINAL_DATA").Read & ")" Else End If If HMIRuntime.Tags("MEAL_SILO_203").Read Then queries(2) = "INSERT INTO MEAL_SILO203 ([Date_Time], [Silo_Name], [Material_Name], [Intake], [Destination_Bin], [Current_Weight], [Weight_Added], [Weight_Taken]) " & _ "VALUES (GETDATE(), 'MEAL_SILO203', '" & Replace(materialName203, "'", "''") & "', " & _ HMIRuntime.Tags("MEAL_INATKE_SELECTION").Read & ", " & _ HMIRuntime.Tags("SMALL_DESTINATION_1").Read & ", " & _ HMIRuntime.Tags("MEAL_203_INTAKE_TOTAL_WEIGHT_DATA").Read & ", " & _ HMIRuntime.Tags("FINAL_INTAKE_FW2_203_LIVE_GOING_DATA").Read & ", " & _ HMIRuntime.Tags("MEAL_203_TOT_RECEIVING_FINAL_DATA").Read & ")" Else End If If HMIRuntime.Tags("MEAL_SILO_204").Read Then queries(3) = "INSERT INTO MEAL_SILO204 ([Date_Time], [Silo_Name], [Material_Name], [Intake], [Destination_Bin], [Current_Weight], [Weight_Added], [Weight_Taken]) " & _ "VALUES (GETDATE(), 'MEAL_SILO204', '" & Replace(materialName204, "'", "''") & "', " & _ HMIRuntime.Tags("MEAL_INATKE_SELECTION").Read & ", " & _ HMIRuntime.Tags("SMALL_DESTINATION_1").Read & ", " & _ HMIRuntime.Tags("MEAL_204_INTAKE_TOTAL_WEIGHT_DATA").Read & ", " & _ HMIRuntime.Tags("FINAL_INTAKE_FW2_204_LIVE_GOING_DATA").Read & ", " & _ HMIRuntime.Tags("MEAL_204_TOT_RECEIVING_FINAL_DATA").Read & ")" Else End If If HMIRuntime.Tags("BULK_SILO_101").Read Then queries(4) = "INSERT INTO BULK_SILO101 ([Date_Time], [Silo_Name], [Material_Name], [Intake], [Destination_Bin], [Current_Weight], [Weight_Added], [Weight_Taken]) " & _ "VALUES (GETDATE(), 'BULK_SILO101', '" & Replace(materialName101, "'", "''") & "', " & _ HMIRuntime.Tags("BULK_INAKE_1_SELC").Read & ", " & _ HMIRuntime.Tags("BIG_DESTINATION_1").Read & ", " & _ HMIRuntime.Tags("BULK_101_INTAKE_TOTAL_WEIGHT_DATA").Read & ", " & _ HMIRuntime.Tags("FINAL_INTAKE_FW1_101_LIVE_GOING_DATA").Read & ", " & _ HMIRuntime.Tags("BULK_101_TOT_RECEIVING_FINAL_DATA").Read & ")" Else End If If HMIRuntime.Tags("BULK_SILO_102").Read Then queries(5) = "INSERT INTO BULK_SILO102 ([Date_Time], [Silo_Name], [Material_Name], [Intake], [Destination_Bin], [Current_Weight], [Weight_Added], [Weight_Taken]) " & _ "VALUES (GETDATE(), 'BULK_SILO102', '" & Replace(materialName102, "'", "''") & "', " & _ HMIRuntime.Tags("BULK_INAKE_1_SELC").Read & ", " & _ HMIRuntime.Tags("BIG_DESTINATION_1").Read & ", " & _ HMIRuntime.Tags("BULK_102_INTAKE_TOTAL_WEIGHT_DATA").Read & ", " & _ HMIRuntime.Tags("FINAL_INTAKE_FW1_102_LIVE_GOING_DATA").Read & ", " & _ HMIRuntime.Tags("BULK_102_TOT_RECEIVING_FINAL_DATA").Read & ")" Else End If If HMIRuntime.Tags("BULK_SILO_103").Read Then queries(6) = "INSERT INTO BULK_SILO103 ([Date_Time], [Silo_Name], [Material_Name], [Intake], [Destination_Bin], [Current_Weight], [Weight_Added], [Weight_Taken]) " & _ "VALUES (GETDATE(), 'BULK_SILO103', '" & Replace(materialName103, "'", "''") & "', " & _ HMIRuntime.Tags("BULK_INAKE_1_SELC").Read & ", " & _ HMIRuntime.Tags("BIG_DESTINATION_1").Read & ", " & _ HMIRuntime.Tags("BULK_103_INTAKE_TOTAL_WEIGHT_DATA").Read & ", " & _ HMIRuntime.Tags("FINAL_INTAKE_FW1_103_LIVE_GOING_DATA").Read & ", " & _ HMIRuntime.Tags("BULK_103_TOT_RECEIVING_FINAL_DATA").Read & ")" Else End If If HMIRuntime.Tags("BULK_SILO_104").Read Then queries(7) = "INSERT INTO BULK_SILO104 ([Date_Time], [Silo_Name], [Material_Name], [Intake], [Destination_Bin], [Current_Weight], [Weight_Added], [Weight_Taken]) " & _ "VALUES (GETDATE(), 'BULK_SILO104', '" & Replace(materialName104, "'", "''") & "', " & _ HMIRuntime.Tags("BULK_INAKE_1_SELC").Read & ", " & _ HMIRuntime.Tags("BIG_DESTINATION_1").Read & ", " & _ HMIRuntime.Tags("BULK_104_INTAKE_TOTAL_WEIGHT_DATA").Read & ", " & _ HMIRuntime.Tags("FINAL_INTAKE_FW1_104_LIVE_GOING_DATA").Read & ", " & _ HMIRuntime.Tags("BULK_104_TOT_RECEIVING_FINAL_DATA").Read & ")" End If 'End If Dim i Dim successCount successCount = 0 ' Counter to track how many queries executed successfully For i = 0 To UBound(queries) If Not IsEmpty(queries(i)) And Trim(queries(i)) <> "" Then On Error Resume Next objConnection.Execute queries(i) If Err.Number = 0 Then MsgBox "Query " & (i + 1) & " executed successfully. Data inserted for tag: " & queries(i) successCount = successCount + 1 Else MsgBox "Error in Query " & (i + 1) & ": " & Err.Description Err.Clear End If On Error GoTo 0 End If Next If successCount = 0 Then MsgBox "No data inserted. None of the conditions were true or queries were empty." End If objConnection.Close Set objConnection = Nothing End Functi

Suggestion To thank Quote Answer

4/16/2025 9:29 AM	Rate (0)
Murof Platinum Expert Joined: 8/3/2009 Last visit: 9/5/2025 Posts: 16348 Rating: (1931)	Hello BALAKRISHNAN92 Where exactly in the Script is the problem? DO you have tried with Apdiag Console or Script diagnose output window and Traces to finid out in which line the script crashes? This would help to isolate the error reasons. Bye Murof
	If this Information really helps, you could use the Rate function
Suggestion To thank Quote Answer

4/26/2025 4:25 AM	Rate (0)
BALAKRISHNAN92 Silver Member Joined: 10/21/2013 Last visit: 6/29/2025 Posts: 424 Rating: (28)	Thanks murof, I will check it for sure..
	Last edited by: BALAKRISHNAN92 at: 04/26/2025 04:26:02
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on