Skip to Content

Register Login

Default Header

(header konnte nicht geladen werden)

Navigation

Data Grid Control

Created by: JV07 at: 2/11/2008 9:36 PM (16 Replies)

Rating (9)

Thanks 5

Result pages:: |; 1 | 2; |

17 Entries

Entries per page: 10 | all

2/9/2013 8:40 PM	Rate (1)
AF4JF Posts: 2 Rating: (2)	I have spent long time trying to find ANYTHING about the Siemens S7 Grid Control that is available even in PCS7 v7. Attached piece of code demonstrates how to use that grid control and how to adjust column width. Dim arrCOM_DB(6,33) Dim arrTAG_DB(6,33) Dim cnt Dim cntr Dim TagGrp Dim objDBGrid Dim x Set objDBGrid = ScreenItems("DB_COMM_AJ") '-- Prepare Tags arrTAG_DB(1,1) = "CFC(1)/3.QCOMEN01" arrTAG_DB(2,1) = "CFC(1)/3.QCOMTY01" arrTAG_DB(3,1) = "CFC(1)/3.QCOMNA01" arrTAG_DB(4,1) = "CFC(1)/3.QCOMDN01" arrTAG_DB(5,1) = "CFC(1)/3.QBPAEN01" '-- '-- etc etc .. all 32 sections '-- arrTAG_DB(1,32) = "CFC(1)/3.QCOMEN32" arrTAG_DB(2,32) = "CFC(1)/3.QCOMTY32" arrTAG_DB(3,32) = "CFC(1)/3.QCOMNA32" arrTAG_DB(4,32) = "CFC(1)/3.QCOMDN32" arrTAG_DB(5,32) = "CFC(1)/3.QBPAEN32" '-- Ad Tags to the Tag Group Set TagGrp = HMIRuntime.Tags.CreateTagSet For cnt = 1 To 32 For cntr = 1 To 5 TagGrp.Add arrTAG_DB(cntr,cnt) Next Next '-- Read Tags from the Tag Group TagGrp.Read '-- Fill the Data Grid objDBGrid.LockUpdate True x = objDBGrid.InsertRows(1,32) objDBGrid.CellValue(0,0)="-No-" objDBGrid.CellValue(0,1)="COMM ENUM" objDBGrid.CellValue(0,2)="TYPE" objDBGrid.CellValue(0,3)="NAME" objDBGrid.CellValue(0,4)="DENS" objDBGrid.CellValue(0,5)="BPA ENUM" For cnt = 1 To 32 For cntr = 1 To 5 arrCOM_DB(cntr,cnt) = TagGrp(arrTAG_DB(cntr,cnt)).Value objDBGrid.CellValue(cnt,cntr)= arrCOM_DB(cntr,cnt) Next Next objDBGrid.LockUpdate False '-- Resize the Column (fix size) objDBGrid.GetColumn(1).Width = 50 '-- Resize the Columns (optimize) objDBGrid.GetColumn(2).ResizeColWidthsToFit objDBGrid.GetColumn(3).ResizeColWidthsToFit objDBGrid.GetColumn(4).ResizeColWidthsToFit objDBGrid.GetColumn(5).ResizeColWidthsToFit Set objDBGrid = Nothing Set TagGrp = Nothing
AF4JF Posts: 2 Rating: (2)
Suggestion To thank Quote Answer

2/9/2013 9:04 PM	Rate (1)
AF4JF Posts: 2 Rating: (2)	One more piece of code, this time with data coming fromORACLE database. I didn't figure out how to do it with RecordSet directly, but my workaround with a loop to copy data over works fine: Dim lngReccount Dim lngCount Dim objConnection Dim objRecordset Dim objCommand Dim objReccount Dim strDBName Dim strSrvName Dim strConnectionString Dim strSQL Dim strServer Dim objDBGrid Dim x Dim objQCOMEN Dim objQCOMTY Dim objQCOMNA Dim objQCOMDN Dim objQBPAEN Dim arrCOM_OES(8,3000) Dim cnt Dim cntr Dim cntMax Set objDBGrid = ScreenItems("OES_COMM") cnt = 0 cntr = 0 cntMax = 0 '-- Intitialize the Array For cnt=1 To 1000 arrCOM_OES(1,cnt) = 0'--PCELL_ID arrCOM_OES(2,cnt) = "x"'--FCAT_NAME arrCOM_OES(3,cnt) = "x"'--PARAM_NAME arrCOM_OES(4,cnt) = "x"'--ENUM_ID arrCOM_OES(5,cnt) = "x"'--SITE arrCOM_OES(6,cnt) = "x"'--ENUM_VALUE Next objDBGrid.NumRows = 0 cnt = 0 '-- Read Values from ORACLE '-- Setting up connection string - new, without using TNSNAMES.ORA strConnectionString = "Driver={Microsoft ODBC for Oracle}; " & _ "CONNECTSTRING=(DESCRIPTION=" & _ "(ADDRESS=(PROTOCOL=TCP)" & _ "(HOST=DEVSRV)(PORT=1521))" & _ "(CONNECT_DATA=(SERVICE_NAME=BABOEBP))); uid=abc;pwd=xyz;" '-- Creating and opening ADODB Connection Set objConnection = CreateObject("ADODB.Connection") objConnection.ConnectionString = strConnectionString objConnection.Open '-- Creating and opening Recordset and SQL Command Objects Set objRecordset = CreateObject("ADODB.Recordset") Set objCommand = CreateObject("ADODB.Command") objCommand.ActiveConnection = objConnection '-- Reccount SQL String to count number of records strSQL = "SELECT COUNT () FROM OES_CNF_FPARAM_ENUM" objCommand.CommandText = strSQL '-- Execute and fill the Recordset Set objRecordset = objCommand.Execute '-- Read the Record Count (selected as count()) lngReccount = objRecordset.Fields(0).Value '-- New SQL String strSQL = "SELECT * FROM OES_CNF_FPARAM_ENUM" objCommand.CommandText = strSQL '-- Execute and fill the Recordset Set objRecordset = objCommand.Execute '-- Get Count of Fields lngCount = objRecordset.Fields.Count '-- '-- If there are any fields then '-- (Oracle does not like the condition lngReccount>0 here) If ((lngCount>0)) Then '--objReccount.OutputValue = lngReccount objRecordset.movefirst cnt = 0 While Not objRecordset.EOF cnt = cnt + 1 cntMax = cnt For cntr = 0 To 5 If Len(objRecordset.Fields(cntr).Value) > 0 Then arrCOM_OES(cntr,cnt) = objRecordset.Fields(cntr).Value End If Next objRecordset.movenext Wend End If '-- Fill the Data Grid objDBGrid.LockUpdate True x = objDBGrid.InsertRows(1,cntMax) objDBGrid.CellValue(0,0)="-No-" objDBGrid.CellValue(0,1)="PCELL_ID" objDBGrid.CellValue(0,2)="FCAT_NAME" objDBGrid.CellValue(0,3)="PARAM_NAME" objDBGrid.CellValue(0,4)="ENUM_ID" objDBGrid.CellValue(0,5)="SITE" objDBGrid.CellValue(0,6)="ENUM_VALUE" 'objDBGrid.LockUpdate False '-- If there are any fields then If ((lngCount>0)) Then '-- And (lngReccount>0)) Then For cnt = 1 To cntMax For cntr = 0 To 5 objDBGrid.CellValue(cnt,cntr+1)= arrCOM_OES(cntr,cnt) Next Next End If objDBGrid.LockUpdate False Set objDBGrid = Nothing '-- Delete all objects Set objCommand = Nothing '-- Close ADODC Connection objConnection.Close '-- Delete all objects Set objConnection = Nothing Set objRecordset = Nothing Set objReccount = Nothing
AF4JF Posts: 2 Rating: (2)
Suggestion To thank Quote Answer

4/8/2013 9:50 AM

Rate (0)

nguyenvudtd

Posts: 37

Rating:

(0)

I watched C # code you upload. But I do not know how to display the number on

your DataGridView.And I add file ".dll" to wincc. it work not

Can you help me

Thanks

4/9/2013 1:12 PM	Rate (0)
Yolov Silver Member Joined: 2/22/2006 Last visit: 11/29/2025 Posts: 291 Rating: (37)	Hi For that purpuse I am using ADO to get the recordset from database. To display data in WinCC I am using Microsoft Hierarchical FlexGrid control. It is availabe in Windows 7 too. If you want to edit data in data grid cells, I am using Picture Window with IO field inside. Expect problem when you edit data - you get only texts from Microsoft Hierarchical FlexGrid control! If you using just to show data - works fine - no issues!!! regards, Svetozar Yolov

Suggestion To thank Quote Answer

4/10/2013 3:09 PM	Rate (0)
nguyenvudtd Posts: 37 Rating: (0)	Hi if you useMicrosoft Hierarchical FlexGrid andADO , you PC install Visual Basic . I want add file DLL to wincc I use Datagrid fromVisual Studio C# . NET , I create file dll. I see "didis_bememder" useVisual Studio C# . NET. I download file and add wincc but i can't connectDatagrid and Database. Can you help me
nguyenvudtd Posts: 37 Rating: (0)
Suggestion To thank Quote Answer

4/11/2013 8:35 AM	Rate (0)
Yolov Silver Member Joined: 2/22/2006 Last visit: 11/29/2025 Posts: 291 Rating: (37)	Hi, I am totally lost in what you are trying to achieve. Refards, smi

Suggestion To thank Quote Answer

8/2/2023 12:03 PM	Rate (0)
Boxbox Posts: 1 Rating: (0)	Hi. I use microsoft office spreadsheet 9.0 in WinCC and button. vbs script on button: Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y) ' Declaration of variables Dim strConnectionString, strSQL Dim objConnection, objRecordset Dim dataArray, fieldCount, rowCount, colCount, i, j Dim Spreadsheet ' Connection string to the database strConnectionString = "Provider=SQLOLEDB;Data Source=.\WinCC;Initial Catalog=DATA_WINCC;User Id=sa;Password=****;" ' SQL query to fetch data from the table strSQL = "SELECT [id], [summer] FROM [DATA_WINCC].[dbo].[table2];" ' Creating objects for connection and recordset Set objConnection = CreateObject("ADODB.Connection") Set objRecordset = CreateObject("ADODB.Recordset") Set Spreadsheet = ScreenItems("Spreadsheet1") ' Replace "Spreadsheet1" with the name of your Spreadsheet object ' Setting the connection string objConnection.ConnectionString = strConnectionString ' Opening the connection objConnection.Open ' Executing the SQL query objRecordset.Open strSQL, objConnection ' Moving to the first record in the recordset objRecordset.MoveFirst ' Getting all the data from the recordset into an array dataArray = objRecordset.GetRows ' Getting the number of fields and rows in the array fieldCount = UBound(dataArray, 1) + 1 rowCount = UBound(dataArray, 2) + 1 ' Clearing the data in the Spreadsheet Spreadsheet.htmldata = "" ' Populating the data into the Spreadsheet from the array, including column names Dim htmlData htmlData = "<table border='1'><tr>" For j = 0 To fieldCount - 1 htmlData = htmlData & "<th>" & objRecordset(j).Name & "</th>" Next htmlData = htmlData & "</tr>" For i = 0 To rowCount - 1 htmlData = htmlData & "<tr>" For j = 0 To fieldCount - 1 htmlData = htmlData & "<td>" & dataArray(j, i) & "</td>" Next htmlData = htmlData & "</tr>" Next htmlData = htmlData & "</table>" ' Writing the data to the htmldata attribute of the Spreadsheet object Spreadsheet.htmldata = htmlData ' Closing the connection and the recordset objRecordset.Close objConnection.Close End Sub Still i use Microsoft Flex Grid Control v6.0 in WinCC with button. VBS script :** Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y) ' Declare variables Dim strConnectionString, strSQL Dim objConnection, objRecordset Dim dataArray, fieldCount, rowCount, colCount, i, j Dim DBGrid ' Connection string to the database strConnectionString = "Provider=SQLOLEDB;Data Source=.\WinCC;Initial Catalog=DATA_WINCC;User Id=sa;Password=101012221;" ' SQL query to fetch data from the table strSQL = "SELECT [id], [summer] FROM [DATA_WINCC].[dbo].[table2];" ' Create connection and recordset objects Set objConnection = CreateObject("ADODB.Connection") Set objRecordset = CreateObject("ADODB.Recordset") Set DBGrid = ScreenItems("Control3") ' Set the connection string objConnection.ConnectionString = strConnectionString ' Open the connection objConnection.Open ' Execute the SQL query objRecordset.Open strSQL, objConnection ' Move to the beginning of the recordset objRecordset.MoveFirst ' Get all data from the recordset into an array dataArray = objRecordset.GetRows ' Get the number of fields and records in the array fieldCount = UBound(dataArray, 1) + 1 rowCount = UBound(dataArray, 2) + 1 ' Clear data in the DBGrid DBGrid.Rows = 0 ' Fill data into DBGrid from the array, including column names DBGrid.Rows = rowCount + 1 ' Increase the number of rows by 1 for the column headers For j = 0 To fieldCount - 1 ' Fill cells in the first row with column names DBGrid.TextMatrix(0, j) = objRecordset(j).Name Next For i = 1 To rowCount ' Start from i=1 to skip the first row with column names For j = 0 To fieldCount - 1 DBGrid.TextMatrix(i, j) = dataArray(j, i - 1) Next Next ' Close the connection and recordset objRecordset.Close objConnection.Close End Sub
Boxbox Posts: 1 Rating: (0)
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

WinCC Scripting

Follow us on