SiePortal

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

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

MS Access to Wincc Flexible 2008

10/8/2014 2:18 AM	Rate (0)
consair Posts: 15 Rating: (0)	Hello everyone, I'm working on a project for my work. I need to read data from the MS Access. After lot of research I found how I can read from the Ms access with a script. I have tried it but it doesn't work. When I check the syntax, all of code is ok. Please let me know if I am following the correct procedure? Dim objConnection Dim strConnectionString Dim strSQL Dim objCommand Dim objRecordset Dim lngValue Set lngValue = SmartTags("DATA1") strSQL = "SELECT DATA1 FROM REPORT WHERE ID = 1" strConnectionString = "Provider=MSDASQL;DSN=MS_ACCESS;UID=;PWD=;" Set objConnection = CreateObject("ADODB.Connection") objConnection.ConnectionString = strConnectionString objConnection.Open Set objCommand = CreateObject("ADODB.Command") Set objRecordset = CreateObject("ADODB.Recordset") objCommand.CommandType = 1 Set objCommand.ActiveConnection = objConnection objCommand.CommandText = strSQL Set objRecordset = objCommand.Execute While Not objRecordset.EOF lngValue = objRecordset.Fields(0).Value Wend objRecordset.Close objConnection.Close Set objRecordset = Nothing Set objCommand = Nothing Set objConnection = Nothing Thanks a lot. Huyen
consair Posts: 15 Rating: (0)	Last edited by: consair at: 10/8/2014 2:20 AM Last edited by: consair at: 10/8/2014 2:19 AM Last edited by: consair at: 10/8/2014 2:18 AM
Suggestion To thank Quote Answer

10/8/2014 12:46 PM	Rate (0)
consair Posts: 15 Rating: (0)	Any suggestions? Does anyone know how to solve this problem? I have tried it but it doesn't work.
consair Posts: 15 Rating: (0)
Suggestion To thank Quote Answer

10/9/2014 2:44 AM	Rate (0)
consair Posts: 15 Rating: (0)	Can I have some examples, tutorials, etc.... Thanks all of you!!!!!!!!!!
consair Posts: 15 Rating: (0)
Suggestion To thank Quote Answer

Share this page:

Share this page on...