6/4/2011 4:06 PM | |
Posts: 291 Rating: (69) |
Hi SteBo, Sorry for my delay! Now ~ I've tested serveral kinds of "DataSources" & found every kinds work fine. Well ~ would like to write one by one. Please know firstly that there could be : 1. Txt read-in & words-splitted line by line if the "DataSource" is an INI-Style textfile. or 2. Query using Microsoft.Jet.OLEDB over a CSV textfile or a space-delimited textfile. or 3. Query upon a .XLS Range (being as a TABLE/ADODB.Recordset) using OLEDB. or 4. Manipulation of a .mdf file using ADOX.Catalog/ADOX.Table. or 5. Accessing SQL-Server using ODBC/OLEDB. & so on. ***************************************************** But what of the most importance regarding this topic is updating DataSet with the queried Key & Value. ***************************************************** So I don't want to mix all things together, firstly let's take the Text datasource you chose. A. Reading & getting keys with values, for example (Sample text file attached):
B. Adding all the recordsets (taking no repeat) in to DataSet. as the written "HMIRuntime.DataSet.Add The_Key, The_Value" C. Check it!
B.R., Komi P.S: Actuall, TXT,CSV,INI type datasource are my last priority. There will be worse performance because of we need to 'define' fields.datatype for each column/field spillted in. BTW, there's a disadvantage of DataSet collection. It doesn't own ".exist" property.
But it can be solved eaily by taking use ofCreateObject("Scripting.Dictionary"). Well ~ I really don't want to mix all objects together at one time. Tell me ~ if you really want to know more about"Scripting.Dictionary", XLS, MDB...-manipulation! AttachmentOPC_CSV.zip (198 Downloads) |
This contribution was helpful to1 thankful Users |
6/4/2011 4:37 PM | |
Posts: 291 Rating: (69) |
Hi adp, The followings are one option for you, but it's not my toprecommendation. Just for your information ~
Usage: '------------------------[Open_Picture]---------------------------------------------------- Dim ToTest ToTest= WinCC_INI_ReadInAllTagValue("WinCC_Test.ini") '---------------------------------------------------------------------------- INI example '--------------------------------------------------------------------------- attached '--------------------------------------------------------------------------- AttachmentWinCC_Test.zip (226 Downloads) |
This contribution was helpful to1 thankful Users |
Follow us on