APISDWTutorialVBNET

 << Back to Quick Start Guide

Synthesis Data Warehouse (SDW) Tutorial
 * VBA
 * VB.NET

This VB.NET tutorial will demonstrate one approach to read data from an Excel file and extract it for the SDW. Note that this tutorial is for demonstration purposes only and does not include any exception handling. To complete this tutorial successfully, please use the sample Excel data that was provided for this exercise.

Transfer Data from an Excel File to the SDW (VB.NET)
1. Before we begin, you'll need to reference the Microsoft Excel Object Library. Choose Project > Add Reference, and then select the library from the COM tab. Click OK.

2. Create a new form. On the code page, add an Imports statement for, then start with the following code to create an SDW data collection. The code uses the  class to represent an SDW data collection, and the   property to specify that the data collection is for use with Weibull++.

VB.NET DataCollection RawDataSet DataCollection.ExtractedName = DataCollection.ExtractedType = RawDataSetType.Weibull

3. Next, use the  class to represent a single row of data, and then use the   method to add the row to the data collection.

The following code demonstrates one way to extract a row of data from the Excel file. First, the code opens a connection to the Excel file and specifies the active sheet (in this case, Sheet1). Then, the code creates a new   object and sets its properties by using the values from row #2 of the Excel file. After the code finishes reading the row of data, it adds the object to the data collection. When the code reaches, it increases   with 1 and jumps back to the   statement, which adds another new   object for the data in row #3 of the Excel sheet, and so on. The loop continues until  reaches the specified number of rows (MaxRow). Finally, the code closes the connection to the Excel file.

VB.NET Row RawData Excel Application Workbook Workbook Sheet Worksheet Workbook = Excel.Workbooks.Open Sheet = Workbook.Sheets(1) i Integer, MaxRow  Integer MaxRow = 20 i = 2 MaxRow Row = RawData Row.StateFS = sheet.Cells(i, 1).text Row.StateTime = sheet.Cells(i, 2).value Row.FailureMode = sheet.Cells(i, 3).text DataCollection.AddDataRow(Row) i  Workbook.Close Excel.Quit

4. Now that the data from the Excel file have been copied to the data collection, the next step is to save the data collection to the Synthesis repository.

Connect to the Synthesis repository and then use the  method to save the data collection to the repository.

VB.NET MyRepository Repository MyRepository.ConnectToRepository MyRepository.DataWarehouse.SaveRawDataSet(DataCollection)

Test the Code
Let's verify whether the code can import the data successfully into the SDW.

Below is the complete code list for this example. On the Debug menu, click Start to run the application. Then verify that the data were imported by launching Weibull++, opening the SDW (Home > Synthesis > Synthesis Data Warehouse) and then selecting the new data collection. (You may need to display the StateTime, StateFS and FailureMode columns by right-clicking a column header and choosing Select Columns.)

VB.NET SynthesisAPI Microsoft.Office.Interop.Excel Form1 Button1_Click(sender System.Object, e  System.EventArgs)  Button1.Click DataCollection RawDataSet DataCollection.ExtractedName = DataCollection.ExtractedType = RawDataSetType.Weibull Row RawData Excel Application Workbook Workbook Sheet Worksheet Workbook = Excel.Workbooks.Open Sheet = Workbook.Sheets(1) i Integer, MaxRow  Integer MaxRow = 20 i = 2 MaxRow Row = RawData Row.StateFS = sheet.Cells(i, 1).text Row.StateTime = sheet.Cells(i, 2).value Row.FailureMode = sheet.Cells(i, 3).text DataCollection.AddDataRow(Row) i       Workbook.Close Excel.Quit MyRepository Repository MyRepository.ConnectToRepository MyRepository.DataWarehouse.SaveRawDataSet(DataCollection)