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

vbs script to read data from SQL database?

Created by: Anit Kumar at: 10/29/2012 12:33 PM (8 Replies)

Rating (1)

Thanks 4

9 Entries

10/29/2012 12:33 PM	Rate (1)
Anit Kumar Posts: 153 Rating: (2)	thanks for reply kour!!!! can some provide me vbs script to read data from SQL database ???
Anit Kumar Posts: 153 Rating: (2)	Last edited by: O_Moderator at: 10/29/2012 12:43 PM new subject after splitting from /tf/WW/en/Posts/82245#top
Suggestion To thank Quote Answer

10/29/2012 4:19 PM	Rate (0)
Tweety Posts: 3037 Rating: (192)	Hello, Here you can see more information: How can you export data from the WinCC database into an ASCII file via a C script? What options do you have for exporting a database in SIMATIC WinCC? What options are there in WinCC for read and write access to TagLogging/AlarmLogging archives? Tweety
Tweety Posts: 3037 Rating: (192)
Suggestion To thank Quote Answer

10/30/2012 8:38 AM	Rate (0)
Anit Kumar Posts: 153 Rating: (2)	thnxTweetyfor provide such a vast information!!!!! but I supposed to get some sample vbs code.....if possible pls provide me
Anit Kumar Posts: 153 Rating: (2)
Suggestion To thank Quote Answer

10/30/2012 2:37 PM	Rate (0)
Tweety Posts: 3037 Rating: (192)	Hello p'abs, You can see how you can read a value from the database with vbs. https://www.automation.siemens.com/mdm/default.aspx?DocVersionId=16483325707&Language=en-US&TopicId=6168965899 Tweety
Tweety Posts: 3037 Rating: (192)
Suggestion To thank Quote Answer
This contribution was helpful to 3 thankful Users Anit Kumar Rudrani Milad2546

11/3/2012 8:56 AM	Rate (0)
Anit Kumar Posts: 153 Rating: (2)	thanks a lot Tweety
Anit Kumar Posts: 153 Rating: (2)
Suggestion To thank Quote Answer

5/22/2014 2:45 PM	Rate (0)
Rudrani Posts: 163 Rating: (4)	Hi, Below is the standard script which I have got from Siemens My document Manager In this I can read Field (0) of record set with ID 1. But I failed to read next field of the same record set. Can anybody tell me the syntax to read next Field value? Sub OnClick(Byval Item) 'VBS108a Dim objConnection Dim objCommand Dim objRecordset Dim strConnectionString Dim strSQL Dim lngValue Dim lngCount strConnectionString = "Provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;" strSQL = "select TagValue TagValue1 from WINCC_DATA where ID = 1 " Set objConnection = CreateObject("ADODB.Connection") objConnection.ConnectionString = strConnectionString objConnection.Open Set objRecordset = CreateObject("ADODB.Recordset") Set objCommand = CreateObject("ADODB.Command") objCommand.ActiveConnection = objConnection objCommand.CommandText = strSQL Set objRecordset = objCommand.Execute lngCount = objRecordset.Fields.Count If (lngCount>0) Then objRecordset.movefirst lngValue = objRecordset.Fields(0).Value HMIRuntime.Tags("dbValue").Write lngValue Else HMIRuntime.Trace "Selection returned no fields" & vbNewLine End If Set objCommand = Nothing objConnection.Close Set objRecordset = Nothing Set objConnection = Nothing End Sub Rudrani
Rudrani Posts: 163 Rating: (4)	Last edited by: Rudrani at: 5/22/2014 2:46 PM
Suggestion To thank Quote Answer

5/22/2014 11:13 PM	Rate (0)
SteBo Platinum Member Joined: 10/3/2010 Last visit: 10/31/2024 Posts: 1563 Rating: (192)	Hey, you should add something like this, sorry not translated to your code but a copy/paste of some example found online for you: Dim rs As DAO.Recordset Dim fld As DAO.Field Dim i As Integer Set rs = DBEngine(0)(0).OpenRecordset("SELECT * FROM MyTable;") For i = 0 To rs.Fields.Count - 1 Set fld = rs.Fields(i) Debug.Print fld.Name, fld.Type Next Set fld = Nothing rs.Close Set rs = Nothing
	B r g d s , S t e B o SIMATIC HMI in Online Support Forum
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Rudrani

11/10/2017 5:07 PM	Rate (0)
mrasolzadeh Posts: 1 Rating: (0)	Hi Anit ! You can add similar script as below to read second column(e.g. TagName) 'VBS108a Dim objConnection Dim objCommand Dim objRecordset Dim strConnectionString Dim strSQL Dim lngValue Dim lngCount Dim MyID Dim lngName MyID = HMIRuntime.Tags("Analog1").Read strConnectionString = "Provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;" strSQL = "select TagValue, TagName from WINCC_DATA where ID =" & MyID Set objConnection = CreateObject("ADODB.Connection") objConnection.ConnectionString = strConnectionString objConnection.Open Set objRecordset = CreateObject("ADODB.Recordset") Set objCommand = CreateObject("ADODB.Command") objCommand.ActiveConnection = objConnection objCommand.CommandText = strSQL Set objRecordset = objCommand.Execute lngCount = objRecordset.Fields.Count If (lngCount>0) Then objRecordset.movefirst lngValue = objRecordset.Fields(0).Value lngName = objRecordset.Fields(1).Value HMIRuntime.Tags("Analog3").Write lngValue HMIRuntime.Tags("Str3").Write lngName Else HMIRuntime.Trace "Selection returned no fields" & vbNewLine End If Set objCommand = Nothing objConnection.Close Set objRecordset = Nothing Set objConnection = Nothing -------------------------------------------------------------------------------------------------- Best regards, Mahsa
mrasolzadeh Posts: 1 Rating: (0)	Last edited by: mrasolzadeh at: 11/10/2017 5:09:26 PM
Suggestion To thank Quote Answer

12/17/2017 8:53 AM	Rate (0)
r.ethernet Posts: 144 Rating: (7)	Hello Same thread here: VBS Code to Access SQL
r.ethernet Posts: 144 Rating: (7)
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

Follow us on