Industry Online Support
Technical Forum
4/29/2013 9:20 AM | |
Posts: 18 Rating: (0) |
Hello, I want to read all entries if a SQL table. i refer to this manual,https://support.automation.siemens.com/WW/llisapi.dll?func=cslib.csinfo&lang=en&objid=24677043&caller=view but the entries aren't shown up in RT. can someone please check my sript and point out where i'm doing wrong? The table have 4 columns.First column is a datetime variable,2nd column int, 3rd comun int, 4th column string..17 entries can be shown in one time. this is the script i use to read out the data. Dim conn, rst, SQL_Table Dim i,j On Error Resume Next Set conn = CreateObject("ADODB.Connection") Set rst = CreateObject("ADODB.Recordset") conn.Open "Provider=MSDASQL;Initial Catalog=Machine_1;DSN=MachineArchive" If Err.Number <> 0 Then ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description Err.Clear Exit Sub End If SQL_Table = "SELECT * FROM " & szTableName Set rst = conn.Execute(SQL_Table) If Err.Number <> 0 Then ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description Err.Clear Exit Sub End If If Not (rst.EOF And rst.BOF) Then rst.MoveFirst j=0 Do j=j+1 rst.MoveNext Loop Until rst.EOF rst.MoveFirst If nbTab>=j-17 Then nbTab=j-17 End If If nbTab<j-17 Then For i=1 To nbTab rst.MoveNext Next End If If nbTab<0 Then nbTab=0 End If For i=1 To 17 SmartTags("Table\Value_" & i & "_0") = rst.Fields(0).Value SmartTags("Table\Value_" & i & "_1") = rst.Fields(1).Value SmartTags("Table\Value_" & i & "_2") = rst.Fields(2).Value SmartTags("Table\Value_" & i & "_3") = rst.Fields(3).Value rst.MoveNext Next rst.close Else ShowSystemAlarm "No entries are available." End If conn.close Set rst = Nothing Set conn = Nothing there is no data shown out in wincc and i didn't get any message error, so i dont know where i'm doing wrong. Thank you in advance. Nmax |
Last edited by: NMax at: 4/29/2013 9:31 AMLast edited by: NMax at: 4/29/2013 9:30 AM |
|
4/29/2013 11:49 AM | |
Posts: 3037 Rating: (192)
|
Hello, Here you can find more about database and WinCC flexible. How do you access an SQL database in WinCC flexible via a script? Tweety |
4/29/2013 12:06 PM | |
Posts: 18 Rating: (0) |
thank you for your reply.. i have refered to that entry before. Does anyone know where i'm doing wrong? Nmax
|
4/30/2013 1:37 PM | |
Posts: 3037 Rating: (192)
|
Hello, I used the example on this link. How do you access an SQL database in WinCC flexible via a script? It works good, without any problems. Tweety |
Follow us on