Skip to Content

Register Login

Industry Online Support

Technical Forum

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/11/2008 9:36 PM	Rate (1)
JV07 Posts: 3 Rating: (2)	I am trying without much luck to use the Datagrid control to diplay and edit data from a sql database. I have used successfully the Flex grid control and also individual I/O fields to display and edit my data but after many searches of the web I but haven't found a solution that works in Wincc 6.2. This is basically what I have now. [code] 'Control1 is the Data Base Grid 'Control2 is a DataCommand Control Dim DBGrid Dim DBControl Set DBGrid = ScreenItems("Control1") Set DBControl = ScreenItems("Control2") Dim Search Set Search = HMIRuntime.Tags("SearchTag") Dim cn Set cn= CreateObject("ADODB.Connection") Dim rs Set rs=CreateObject("ADODB.Recordset") HMIRuntime.Trace "Opening connection "+vbCr+vbLf cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Database1;Data Source=.\WinCC" If (cn.State = 0) Then HMIRuntime.Trace "DB Connection Fail"+vbCr+vbLf Exit Sub Else HMIRuntime.Trace "DB Connection Open"+vbCr+vbLf End If Dim sSQL sSQL = "Select Field1,Field2,Field3 FROM MainResultsData " sSQL = sSQL & "WHERE Field1 LIKE '" & Search.Read & "%'" rs.open sSQL,cn,1,3 If rs.eof And rs.bof Then HMIRuntime.Trace "No records"+vbCr+vbLf Exit Sub Else HMIRuntime.Trace "Records Found"+vbCr+vbLf End If 'fill data grid *** 'Set DBControl.DataConnection = cn Set DBControl.CommandText = rs Set DBGrid.DataSource = rs DBGrid.Refresh [/code] Any insight would be greatly appreciated. Forgive me if this has been asked before. I couldn't find anything. Thanks, James
JV07 Posts: 3 Rating: (2)
Suggestion To thank Quote Answer

2/14/2008 1:49 AM	Rate (1)
JV07 Posts: 3 Rating: (2)	OK, in the interest of contributing to the forum. I managed to get the MS ADO Data Control (ver6) and the MS Data Grid Control (ver6) to display, access, and edit my SQL database in wincc. Here's the code I am using. [code] Dim DBGrid Dim DBControl Dim DBString Set DBGrid = ScreenItems("Control1") Set DBControl = ScreenItems("Control2") DBString ="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MYDATABASE;Data Source=.\WinCC" DBControl.ConnectionString = DBString DBControl.CommandType = 1 DBControl.RecordSource = "Select * FROM MainResultsData" DBControl.Refresh Set DBGrid.DataSource = DBControl.Recordset [/code] Adding the .Recordset in the last line seemed to do the trick. The refresh also was important. Control1 is a Microsoft Data Grid,Control2 is a Microsoft ADO data Control. Hope this helps, someone else. James
JV07 Posts: 3 Rating: (2)	Last edited by: JV07 at: 14.02.2008 01:51
Suggestion To thank Quote Answer
This contribution was helpful to 3 thankful Users ozi dchartier cbrodbeck

2/14/2008 10:38 PM	Rate (0)
CS Moderator Moderator Joined: 9/1/2005 Last visit: 8/24/2023 Posts: 4102 Rating: (193)	Hello JV07, thank you for sharing your solution. Hope too, that it will helpfull for others in the future. Best regards CS Moderator
	My Forum is the place to personalize your profile, track your topics, and maintain content that interests you. Best regards CS Moderator
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users cbrodbeck

3/6/2008 6:18 PM	Rate (0)
FIRE8804 Posts: 1 Rating: (0)	Hi, How can I connect my Datagrid and my ado control in Wincc Best regards Udo
FIRE8804 Posts: 1 Rating: (0)
Suggestion To thank Quote Answer

5/30/2009 6:31 AM	Rate (1)
S7_guy Posts: 6 Rating: (1)	Hi I have been sucessful in connecting my AdoDataControl to the MS Data Grid but my requirement is to prevent editing the first column of the grid which is the primary key of my data base. I have tried to use the BeforeEditCol event to get the row number and cancel the edit operation but the cancel operation dosent seem to be working in WinCC 6.2 SP2. [code]Private Sub DataGrid1_BeforeColEdit(ByVal ColIndex As Integer, _ ByVal KeyAscii As Integer, Cancel As Integer) ' Note how you can test Null values and empty strings at the same time. If ColIndex = 0 And DataGrid1.Columns(ColIndex).CellValue _ (DataGrid1.Bookmark) & "" <> "" Then Cancel = True End If End Sub[/code] Please let me know if there is an other way
S7_guy Posts: 6 Rating: (1)	Last edited by: S7_guy at: 5/30/2009 6:37 AM Last edited by: S7_guy at: 5/30/2009 6:36 AM Last edited by: S7_guy at: 5/30/2009 6:35 AM Last edited by: S7_guy at: 5/30/2009 6:34 AM
Suggestion To thank Quote Answer

8/17/2011 10:19 PM	Rate (0)
renata Posts: 6 Rating: (0)	hi I have been trying different way to connect my ADODC with DataGrid without success. I tried your successexample, but I am stillhaving problem with the last line: SetDBGrid.DataSource=DBControl.Recordset Because I receive the error: 438 Object doesn't support this property or method. could you please advice? Thank you a lot Renata
renata Posts: 6 Rating: (0)
Suggestion To thank Quote Answer

8/26/2011 7:54 PM	Rate (0)
renata Posts: 6 Rating: (0)	Hello, I also want to contribute to the forum, so here is the solution: I couldn't manage to make the Datagrid, DatagridViewor ListView to work for WinCC 7.0.2.4. However I used the Active X control:Microsoft Office Spreadsheet 11.0 and I can see my table on the HMI. Even though I do not have Excel installed on my computer. It does not matter. The code was ok, I believe the problem was the Datagrid compatibility with the Wincc version.
renata Posts: 6 Rating: (0)
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Blue Moderator

11/28/2012 2:52 PM	Rate (0)
drSpooky Posts: 8 Rating: (1)	Did somebody succeeded to do this?? I've tried the above sugestions but it wont work.
drSpooky Posts: 8 Rating: (1)
Suggestion To thank Quote Answer

11/28/2012 4:19 PM	Rate (3)
didis_be Posts: 7 Rating: (3)	Hi, Yes I succeeded with using a UserControl DLL in Visual Studio C# . NET 2010... This UserControl contains a DataGridView embeded into it ... Then from WINCC, you set the property 'connexionString' and 'query' of this .NET Control (added on the view) See the source code :) Regards Didier Attachment TADataGrid2.zip (1981 Downloads)
didis_be Posts: 7 Rating: (3)
Suggestion To thank Quote Answer

11/30/2012 9:29 AM	Rate (1)
drSpooky Posts: 8 Rating: (1)	Thanks! I'm will try this!
drSpooky Posts: 8 Rating: (1)
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

WinCC Scripting

Follow us on