SQL datagrid

Hello everyone,

I have an issue regarding showing the SQL query result in a Datagrid,

Actually I'm using SIEMENS example as in the following link: 

https://support.industry.siemens.com/cs/document/61883659/how-do-you-access-an-sql-database-in-wincc-runtime-advanced-using-a-script?dti=0&lc=en-WW

So I can establish a connection to the SQL database, read and write to it via tags. The problem comes when I want to show the results of a SQL Query in a Datagrid.

i'm using the existing .Ner controls: 

'DataGrid' and 'DataGridView' as per attached file

But I cannot put the Recordset which is a result of the SQL Query into a DataGrid or DataGridView.

The following line will not work and it will give me that I'm using the wrong parameter or method:

Set HmiRuntime.Screens("001.04_Read_Data_record_from_a_table").ScreenItems("DataGridView_1").Datasource=rst

rst being the (Set rst = CreateObject("ADODB.Recordset")) and (Set rst = conn.Execute(SQL_Table))

belowis the detailed script

and I only can see the parameter "DataMember" in the DataGridView which I'm not sure how to use it to show all the rows of my Query.

Please help, and thanks in advance,

The code:---------------------------------------------------------------------------------------------------------------------

Sub S04_Read_data_record_from_a_table(ByRef Database_Name)

Dim conn, rst, SQL_Table

On Error Resume Next

Set conn = CreateObject("ADODB.Connection")

Set rst = CreateObject("ADODB.Recordset")

conn.Open  "Provider=MSDASQL;Initial Catalog=Database_1;DSN=Database_1" 

SQL_Table = "SELECT * FROM Description" & " WHERE Nr = " & SmartTags("nDat_No")  

Set rst = conn.Execute(SQL_Table)

If Not (rst.EOF And rst.BOF) Then 

rst.MoveFirst 

SmartTags("nDatNoTable") = rst.Fields(0).Value

SmartTags("nValue_1") = rst.Fields(1).Value

SmartTags("nValue_2") = rst.Fields(2).Value

SmartTags("nValue_3") = rst.Fields(3).Value 

SmartTags("szName_1") = rst.Fields(1).Name

SmartTags("szName_2") = rst.Fields(2).Name

SmartTags("szName_3") = rst.Fields(3).Name 

rst.close 

Else

ShowSystemAlarm "Dat_No. is not available"

End If

conn.close

Set rst = Nothing

Set conn = Nothing

End Sub

It is for WinCC7.4

I used Microsoft Hierarchical FlexGrid Control6.0 (SP4) (OLEDB)

I took Recordset and send it to Microsoft Hierarchical FlexGrid Control6.0

========Button or OpenPiture VBS:==========

======ConnectDB()  Function, which located ibto VBScripts Project module:======

I also was able to view the data using MSHFlexGrid OCX control.

In WinCC Professional V15.1 under Vindows 7 was not present, I had to install the OCX first.

Cimant

I also was able to view the data using MSHFlexGrid OCX control.

In WinCC Professional V15.1 under Vindows 7 was not present, I had to install the OCX first.

 Hi friend How did you add OCX control to Tiaportal? 

Can  you add screen shoot about datagrid with include datas ?