Microsoft MVP - Visual Basic www.clinicmaster.nethttp://bloggingabout.net/blogs/wilson/atom.aspxCommunity Server2009-04-22T12:07:00Z/blogs/wilson/archive/2010/12/12/code-generation-generate-visual-basic-code-automatically.aspx2010-12-12T12:11:00Z2010-12-12T12:11:00Z<p><strong>Introduction</strong></p> <p>&nbsp;If you develop multitier applications that use a consistent data access framework, you will realize that most of your codes follow a certain pattern, and can be generated automatically.</p> <p>This code generator is based on a Data Access Framework (DAF) from my earlier post.</p> <p><a href="http://bloggingabout.net/blogs/wilson/archive/2010/05/24/building-a-data-access-framework.aspx">Building a Data Access Framework (DAF)</a></p> <p>It presents a simple way of building own code generator, you can build a tool that will automatically generate code at presentation and middle layers, importantly in a way that you want them to be.</p> <p><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/8535.GenerateVB.jpg" alt="Generate Visual Basic Code Automatically" /> </p> <p>Form that generates the Visual Basic Code</p> <p>If you have an object say Customers as shown in form above, the code generator will create three files that you need to add to you&rsquo;re solution</p> <ul> <li><em><strong>Customers Object.vb</strong></em></li> </ul> <p>This contains the <em><strong>Customers</strong></em> class, which defines methods such as <em><strong>SaveData</strong></em>, <em><strong>UpdateData</strong></em>, <em><strong>DeleteData</strong></em>, <em><strong>GetCustomers</strong></em> etc.</p> <ul> <li><em><strong>frmCustomers.Designer.vb</strong></em></li> </ul> <p>This is the partial class for the form <em><strong>frmCustomers</strong></em></p> <ul> <li><strong><em>frmCustomers.vb</em></strong></li> </ul> <p>This contains code behind the form <em><strong>frmCustomers</strong></em></p> <p>&nbsp;Key objects/methods in this code generator include:-</p> <p><br /><strong><em>Fields</em></strong><br />This class helps to work with key object&rsquo;s properties that are enough for us to create the codes and user interfaces.</p> <p style="margin:0px;"><span style="color:blue;">Public</span> <span style="color:blue;">Class</span> Fields</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Fields &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_TableName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Name <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Caption <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_DataType <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Key <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_References <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Properties &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> TableName() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_TableName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_TableName = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Name() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Name</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Name = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Caption() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Caption</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Caption = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> DataType() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_DataType</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_DataType = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Key() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Key</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Key = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> References() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_References</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_References = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Constructors &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">MyBase</span>.New()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>(<span style="color:blue;">ByVal</span> tableName <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">MyClass</span>.New()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.TableName = tableName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">End</span> <span style="color:blue;">Class</span></p> <p><strong><em>FieldsList</em></strong><br />This method returns the object&rsquo;s properties list that has been set through the datagridview</p> <p style="margin:0px;"><span style="color:blue;">Private</span> <span style="color:blue;">Function</span> FieldsList() <span style="color:blue;">As</span> List(<span style="color:blue;">Of</span> Fields)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> name <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> caption <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> dataType <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> key <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> references <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> lFields <span style="color:blue;">As</span> <span style="color:blue;">New</span> List(<span style="color:blue;">Of</span> Fields)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._ClassName = <span style="color:blue;">Me</span>.txtClassName.Text</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.dgvFields.RowCount &lt;= 1 <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Must Register At least one field!&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> row <span style="color:blue;">As</span> DataGridViewRow <span style="color:blue;">In</span> <span style="color:blue;">Me</span>.dgvFields.Rows</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> row.IsNewRow <span style="color:blue;">Then</span> <span style="color:blue;">Exit</span> <span style="color:blue;">For</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; name = <span style="color:blue;">CStr</span>(row.Cells.Item(<span style="color:blue;">Me</span>.colName.Name).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(name) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;All entries for name must be entered!&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataType = <span style="color:blue;">CStr</span>(row.Cells.Item(<span style="color:blue;">Me</span>.colDataType.Name).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(dataType) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;All entries for data type must be selected!&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; key = <span style="color:blue;">CStr</span>(row.Cells.Item(<span style="color:blue;">Me</span>.colKey.Name).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(key) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;All entries for key must be selected!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">ElseIf</span> key.ToUpper().Equals(<span style="color:#a31515;">&quot;Foreign&quot;</span>.ToUpper()) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; references = <span style="color:blue;">CStr</span>(row.Cells.Item(<span style="color:blue;">Me</span>.colReferences.Name).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(references) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;References must have a value for every key set as foreign!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> rowNumber <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> <span style="color:blue;">Me</span>.dgvFields.RowCount - 2</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> oFields <span style="color:blue;">As</span> Fields = <span style="color:blue;">New</span> Fields(<span style="color:blue;">Me</span>._ClassName)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; name = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colName.Name, rowNumber).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; caption = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colCaption.Name, rowNumber).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(caption) <span style="color:blue;">Then</span> caption = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataType = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colDataType.Name, rowNumber).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; key = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colKey.Name, rowNumber).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; references = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colReferences.Name, rowNumber).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(references) <span style="color:blue;">Then</span> references = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> oFields</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .TableName = <span style="color:blue;">Me</span>._ClassName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Name = name</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Caption = caption</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .DataType = dataType</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Key = key</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .References = references</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; lFields.Add(oFields)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> lFields</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> ex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p><em><strong>GenerateFormClass</strong></em><br />This method generates the code behind form</p> <p style="margin:0px;"><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> GenerateFormClass()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FieldsList = FieldsList()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> outputDirectory <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Me</span>.txtOutputDirectory.Text</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(outputDirectory) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Enter out put directory!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Not</span> Directory.Exists(outputDirectory) <span style="color:blue;">Then</span> Directory.CreateDirectory(outputDirectory)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> path <span style="color:blue;">As</span> <span style="color:blue;">String</span> = outputDirectory + <span style="color:#a31515;">&quot;\frm&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;.vb&quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Option Strict On&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Public Class frm&quot;</span> + <span style="color:blue;">Me</span>._ClassName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;#Region &quot;&quot; Fields &quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;#End Region&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Private Sub frm&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.WaitCursor()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Using o&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot; As New DAFSampleData.&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;(&quot;&quot;.&quot;&quot;, &quot;&quot;DAFSample&quot;&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;o&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;.SetConString(DAF.SQLDb.SQLConnectionMode.WindowsAuthentication)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Using&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Catch ex As Exception&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;MessageBox.Show(ex.Message)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Finally&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.Default()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Private Sub frm&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;If e.KeyCode = Keys.Enter Then Me.ProcessTabKey(True)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Close()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Private Sub ResetControls()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;For Each ctlReset As Control In Me.Controls&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;If TypeOf ctlReset Is TextBox Then&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;CType(ctlReset, TextBox).Clear()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;ElseIf TypeOf ctlReset Is DateTimePicker Then&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;CType(ctlReset, DateTimePicker).Value = Today&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;CType(ctlReset, DateTimePicker).Checked = True&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End If&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Next&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.WaitCursor()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Using o&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot; As New DAFSampleData.&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;With o&quot;</span> + <span style="color:blue;">Me</span>._ClassName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>.SetDeleteParameters)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Dim deleteMSG As String = .Delete&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;MessageBox.Show(deleteMSG)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.ResetControls()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End With&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Using&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Catch ex As Exception&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;MessageBox.Show(ex.Message)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Finally&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.Default()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>.KeyDeclarationList)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Dim o&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot; As New DAFSampleData.&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Dim &quot;</span> + <span style="color:blue;">Me</span>._ClassName.Substring(0, 1).ToLower() + <span style="color:blue;">Me</span>._ClassName.Substring(1) + <span style="color:#a31515;">&quot; As New DataTable()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.WaitCursor()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>.SetSearchParameters)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>._ClassName.Substring(0, 1).ToLower() + <span style="color:blue;">Me</span>._ClassName.Substring(1) + <span style="color:#a31515;">&quot; = o&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;.Get&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;(&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>.KeyArgumentsList)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;).Tables(&quot;&quot;&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;&quot;&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.ResetControls()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Dim dataSource As EnumerableRowCollection(Of DataRow) = &quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>._ClassName.Substring(0, 1).ToLower() + <span style="color:blue;">Me</span>._ClassName.Substring(1) + <span style="color:#a31515;">&quot;.AsEnumerable()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>.LoadDataControls)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Catch ex As Exception&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;MessageBox.Show(ex.Message)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Finally&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.Default()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.WaitCursor()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Using o&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot; As New DAFSampleData.&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;With o&quot;</span> + <span style="color:blue;">Me</span>._ClassName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>.SetObjectParameters)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;If .Save() Then MessageBox.Show(&quot;&quot;record successfully saved!&quot;&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.ResetControls()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End With&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Using&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Catch ex As Exception&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;MessageBox.Show(ex.Message)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Finally&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.Default()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.WaitCursor()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Using o&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot; As New DAFSampleData.&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;With o&quot;</span> + <span style="color:blue;">Me</span>._ClassName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>.SetObjectParameters)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Dim updateMSG As String = .Update&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;MessageBox.Show(updateMSG)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End With&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Using&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Catch ex As Exception&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;MessageBox.Show(ex.Message)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Finally&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.Default()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Class&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>._FormClass.Length &gt; 0 <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; File.WriteAllText(path, <span style="color:blue;">Me</span>._FormClass.ToString())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Remove(0, <span style="color:blue;">Me</span>._FormClass.Length)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(<span style="color:#a31515;">&quot;Form Class, generated successfully!&quot;</span>, <span style="color:#a31515;">&quot;Code Generator!&quot;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> IOex <span style="color:blue;">As</span> IOException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(IOex.Message, <span style="color:#a31515;">&quot;Code Generator!&quot;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(ex.Message, <span style="color:#a31515;">&quot;Code Generator!&quot;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p><strong><em>GenerateFormPartialClass</em></strong><br />This method generates the form&rsquo;s partial class</p> <p style="margin:0px;"><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> GenerateFormPartialClass()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FieldsList = FieldsList()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> outputDirectory <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Me</span>.txtOutputDirectory.Text</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(outputDirectory) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Enter out put directory!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Not</span> Directory.Exists(outputDirectory) <span style="color:blue;">Then</span> Directory.CreateDirectory(outputDirectory)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> path <span style="color:blue;">As</span> <span style="color:blue;">String</span> = outputDirectory + <span style="color:#a31515;">&quot;\frm&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;.Designer.vb&quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&lt;Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()&gt; _&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Partial Class frm&quot;</span> + _ClassName + <span style="color:#a31515;">&quot; : Inherits System.Windows.Forms.Form&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;Form overrides dispose to clean up the component list.&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&lt;System.Diagnostics.DebuggerNonUserCode()&gt; _&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Protected Overrides Sub Dispose(ByVal disposing As Boolean)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;If disposing AndAlso components IsNot Nothing Then&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;components.Dispose()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;End If&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;MyBase.Dispose(disposing)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;Required by the Windows Form Designer&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Private components As System.ComponentModel.IContainer&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;NOTE: The following procedure is required by the Windows Form Designer&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;It can be modified using the Windows Form Designer.&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;Do not modify it using the code editor.&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&lt;System.Diagnostics.DebuggerStepThrough()&gt; _&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Private Sub InitializeComponent()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnLoad = New System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete = New System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave = New System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate = New System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose = New System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; define other controls</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:blue;">Me</span>.InitializeControls())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.SuspendLayout()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; set other controls properties</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:blue;">Me</span>.SetControlProperties())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._ControlY = <span style="color:blue;">Me</span>._ControlY + 30</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;btnSave&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave.FlatAppearance.BorderColor = System.Drawing.Color.DarkBlue&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave.Location = New System.Drawing.Point(17, &quot;</span> + <span style="color:blue;">Me</span>._ControlY.ToString() + <span style="color:#a31515;">&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave.Name = &quot;&quot;btnSave&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave.Size = New System.Drawing.Size(77, 23)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave.Tag = &quot;&quot;&quot;</span> + _ClassName + <span style="color:#a31515;">&quot;&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave.Text = &quot;&quot;&amp;Save&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave.UseVisualStyleBackColor = False&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;btnDelete&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete.FlatAppearance.BorderColor = System.Drawing.Color.DarkBlue&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete.Location = New System.Drawing.Point(316, &quot;</span> + <span style="color:blue;">Me</span>._ControlY.ToString() + <span style="color:#a31515;">&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete.Name = &quot;&quot;btnDelete&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete.Size = New System.Drawing.Size(72, 24)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete.Tag = &quot;&quot;&quot;</span> + _ClassName + <span style="color:#a31515;">&quot;&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete.Text = &quot;&quot;&amp;Delete&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete.UseVisualStyleBackColor = False&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._ControlY = <span style="color:blue;">Me</span>._ControlY + 27</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;btnLoad&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnLoad.FlatAppearance.BorderColor = System.Drawing.Color.DarkBlue&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnLoad.FlatStyle = System.Windows.Forms.FlatStyle.Flat&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnLoad.Location = New System.Drawing.Point(17, &quot;</span> + <span style="color:blue;">Me</span>._ControlY.ToString() + <span style="color:#a31515;">&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnLoad.Name = &quot;&quot;btnLoad&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnLoad.Size = New System.Drawing.Size(77, 23)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnLoad.Text = &quot;&quot;&amp;Load&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnLoad.UseVisualStyleBackColor = True&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;btnUpdate&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate.FlatAppearance.BorderColor = System.Drawing.Color.DarkBlue&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Flat&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate.Location = New System.Drawing.Point(170, &quot;</span> + <span style="color:blue;">Me</span>._ControlY.ToString() + <span style="color:#a31515;">&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate.Name = &quot;&quot;btnUpdate&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate.Size = New System.Drawing.Size(77, 23)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate.Tag = &quot;&quot;&quot;</span> + _ClassName + <span style="color:#a31515;">&quot;&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate.Text = &quot;&quot;&amp;Update&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate.UseVisualStyleBackColor = False&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;btnClose&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose.DialogResult = System.Windows.Forms.DialogResult.Cancel&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose.FlatAppearance.BorderColor = System.Drawing.Color.DarkBlue&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose.Location = New System.Drawing.Point(316, &quot;</span> + <span style="color:blue;">Me</span>._ControlY.ToString() + <span style="color:#a31515;">&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose.Name = &quot;&quot;btnClose&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose.Size = New System.Drawing.Size(72, 24)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose.Text = &quot;&quot;&amp;Close&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose.UseVisualStyleBackColor = False&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Set Form</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._ControlY = <span style="color:blue;">Me</span>._ControlY + 50</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;frm&quot;</span> + _ClassName + <span style="color:#a31515;">&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.CancelButton = Me.btnClose&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.ClientSize = New System.Drawing.Size(415,&nbsp; &quot;</span> + <span style="color:blue;">Me</span>._ControlY.ToString() + <span style="color:#a31515;">&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.Controls.Add(Me.btnLoad)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.Controls.Add(Me.btnDelete)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.Controls.Add(Me.btnSave)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.Controls.Add(Me.btnUpdate)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.Controls.Add(Me.btnClose)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Add form controls</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:blue;">Me</span>.AddFormControls())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.KeyPreview = True&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.MaximizeBox = False&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.Name = &quot;&quot;frm&quot;</span> + _ClassName + <span style="color:#a31515;">&quot;&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.Text = &quot;&quot;&quot;</span> + _ClassName + <span style="color:#a31515;">&quot;&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.ResumeLayout(False)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.PerformLayout()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Friend WithEvents btnLoad As System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Friend WithEvents btnDelete As System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Friend WithEvents btnSave As System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Friend WithEvents btnUpdate As System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Friend WithEvents btnClose As System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Declare other controls</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:blue;">Me</span>.DeclareControls())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;End Class&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>._FormPartialClass.Length &gt; 0 <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; File.WriteAllText(path, <span style="color:blue;">Me</span>._FormPartialClass.ToString())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Remove(0, <span style="color:blue;">Me</span>._FormPartialClass.Length)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(<span style="color:#a31515;">&quot;Form Partial Class, generated successfully!&quot;</span>, <span style="color:#a31515;">&quot;Code Generator!&quot;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> IOex <span style="color:blue;">As</span> IOException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(IOex.Message, <span style="color:#a31515;">&quot;Code Generator!&quot;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(ex.Message, <span style="color:#a31515;">&quot;Code Generator!&quot;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p><strong><em>SaveXML</em></strong><br />This method saves the set object properties as an XML file</p> <p style="margin:0px;"><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> SaveXML(<span style="color:blue;">ByVal</span> fileName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> data <span style="color:blue;">As</span> List(<span style="color:blue;">Of</span> Fields))</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> encoding <span style="color:blue;">As</span> <span style="color:blue;">New</span> UnicodeEncoding()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> XMLWriter <span style="color:blue;">As</span> <span style="color:blue;">New</span> XmlTextWriter(fileName, encoding)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> XMLWriter</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Formatting = Formatting.Indented</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Indentation = 3</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteStartDocument()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteStartElement(<span style="color:blue;">Me</span>._ClassName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> oFields <span style="color:blue;">As</span> Fields <span style="color:blue;">In</span> data</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> XMLWriter</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteStartElement(<span style="color:#a31515;">&quot;Field&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;Name&quot;</span>, oFields.Name)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;Caption&quot;</span>, oFields.Caption)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;DataType&quot;</span>, oFields.DataType)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;Key&quot;</span>, oFields.Key)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;References&quot;</span>, oFields.References)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteEndElement()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; XMLWriter.WriteEndElement()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> XMLex <span style="color:blue;">As</span> XmlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> XMLex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> ex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; XMLWriter.Close()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p><br /><em><strong>OpenXML</strong></em><br />This method opens the saved XML file object properties</p> <p style="margin:0px;"><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> OpenXML(<span style="color:blue;">ByVal</span> fileName <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> xmlDatadoc <span style="color:blue;">As</span> <span style="color:blue;">New</span> XmlDataDocument()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> fields = <span style="color:blue;">New</span> DataTable(<span style="color:blue;">Me</span>._ClassName)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.txtClassName.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvFields.Rows.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; xmlDatadoc.DataSet.ReadXml(fileName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; fields = xmlDatadoc.DataSet.Tables(<span style="color:#a31515;">&quot;Field&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> fields <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">OrElse</span> fields.Rows.Count &lt; 1 <span style="color:blue;">Then</span> <span style="color:blue;">Return</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.txtClassName.Text = xmlDatadoc.FirstChild.Name</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> fields.Rows.Count - 1</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Ensure that you add a new row</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvFields.Rows.Add()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colName.Name, pos).Value = fields.Rows(pos).Item(<span style="color:#a31515;">&quot;Name&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colCaption.Name, pos).Value = fields.Rows(pos).Item(<span style="color:#a31515;">&quot;Caption&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colDataType.Name, pos).Value = fields.Rows(pos).Item(<span style="color:#a31515;">&quot;DataType&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colKey.Name, pos).Value = fields.Rows(pos).Item(<span style="color:#a31515;">&quot;Key&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colReferences.Name, pos).Value = fields.Rows(pos).Item(<span style="color:#a31515;">&quot;References&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> XMLex <span style="color:blue;">As</span> XmlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> XMLex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> ex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p>Find full source code in the attached file (<span id="ctl00_ctl00_OuterTaskRegion_TaskRegion_TaskRegion_CreatePost_ctl03_PostAttachment_ctl00_serverfilename"><em><strong>Generate_VB_Automatically.zip</strong></em></span>)</p> <p><em></em></p> <p><em>Wilson Kutegeka | Microsoft MVP - VB | C#<br />Developer | Promoter | ClinicMaster Software</em><em><br />Cel: +256 772 609113 | Web: </em><a href="http://www.clinicmaster.net"><em>www.clinicmaster.net</em></a></p> <p><a target="_blank" href="http://twitter.com/kutegz"><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/7183.small_5F00_twitter.gif" alt="follow me on twitter" style="margin-top:0px;margin-bottom:0px;border:0;" /> </a><a target="_blank" href="http://www.facebook.com/Kutegz"><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/5611.small_5F00_facebook.gif" alt="find me on facebook" style="margin-top:0px;margin-bottom:0px;border:0;" /> </a></p> <p>&nbsp;</p><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=484394" width="1" height="1">Kutegzhttp://bloggingabout.net/members/Kutegz/default.aspx/blogs/wilson/archive/2010/05/24/building-a-data-access-framework.aspx2010-05-24T08:44:00Z2010-05-24T08:44:00Z<p><strong>Introduction</strong></p> <p>Imagine you need to architect a multitier, distributed .NET-based app with three logical layers&mdash;presentation and interface services, business logic with core functionalities, and data access, where all database stuff and messaging happens. For this type of application, layering is the key. If the lowest layer could be completely ignorant of the upper layers, the system would be nearly perfect.</p> <p>When designing a layered system you must consider factors such as the ability to cascade changes (like new data schemas) through layers and the amount of overhead involved when data is moved from one layer to the next. Plus you need a business tier to execute your business logic, and you need a Data Access Framework (DAF) to provide Create/Read/Update/Delete (CRUD) functions to the rest of the system. </p> <p>There are two primary ways to provide this functionality&mdash;by using a commercial Object-Relational Mapping (O-RM) tool or by rolling your own DAF. This post shows you the best way to go that is create your own.</p> <p><strong>DAF Design Issues</strong></p> <p><br />Normalized relational databases and objects generally don&#39;t have one-to-one matchups between them. This means that someone has to write code that transmogrifies normalized rows and columns into business objects. This code is often called the Data Access Layer (DAL), which poses three challenges to the developer.</p> <p>The first challenge of a DAL is that a relational database defines four DB operations: insert, update, delete, and select. In the object-oriented programming (OOP) world, the first thing developers can do to deal with these four behaviors is simplify them to two OOP behaviors: read and write. A select is the read, and update, insert, and delete are all consolidated into the write.</p> <p>The second thing developers need to do is realize that business objects don&#39;t need&mdash;and shouldn&#39;t have&mdash;internal read and write baggage. Why? Because every business object would need redundant code for reading and writing. This code can be and should be factored out just as it&rsquo;s done in DataSets and DataTables. Factoring out read/write shrinks the overall size of the code base.</p> <p>Finally, the only real differences between any read and write are the SQL that performs the action, the inputs and outputs, and how these inputs and outputs are handled. Everything else about reading and writing is a connection, transaction, command, or reader, and the initiator&mdash;the behavior that sends the request to your database server. This means developers can factor out all of the latter behaviors and reduce the number of times they need to write the connect, transact, and command behavior.</p> <p>Collectively, these three elements&mdash;consolidate behaviors to read and write, factor out persistence from business objects, and separate basic database operations from object-specific details&mdash;make up the collective data access solution this article provides.</p> <p>&nbsp;<strong>DAF Design Objectives</strong></p> <ul> <li>Reusable from one entity to the other and across different presentation layers.</li> <li>Use Object-Oriented Features and adhere to design guidelines.</li> <li>Be able to employ the best method(s) of accessing the database such as having a good stored procedure layer set up for CRUD (Create, Retrieve, Update, Delete) operations and using stored procedures makes a very clear delineation between areas of responsibility.</li> <li>Abstract the .NET Framework Data Providers.</li> <li>Be in control of all the details of your application.</li> <li>Be compatible to the traditional multitier or n-tier application development approach.</li> <li>Applications are freed from hard-coded dependencies on a particular data engine or logical model.</li> <li>Mappings between the conceptual model and the storage-specific logical model can change without changing the application code.</li> <li>Independent of the underlying database; Developers can work with a consistent application object model that can be mapped to various storage schemas, possibly implemented in different database management systems. </li> <li>Multiple application models can be mapped to a single storage schema.</li> </ul> <p><strong>&nbsp;Key Objects in the DAF</strong></p> <p><br />The DAF logically groups objects into those that can be implemented/inherited by any data provider objects and those objects that are data provider specific.</p> <p>Common to all data provider objects found in the <em>DAF.Common</em> namespace are as follows:-</p> <p><strong>Interfaces</strong></p> <ul> <li><strong>IData</strong>; has properties such as <em>LoginID, LoginPassword, DatabaseName, UserID, DBPassword, Parameters, ReadData and SplitChar</em> that are to be defined by any class that implements it.</li> <li><strong>IDbData</strong>; Inherits <em>IDisposable</em> and has methods such as <em>Save, SaveData, Update, UpdateData, Delete, DeleteData, Load, Read, Execute and SetCommand</em>.</li> </ul> <p>&nbsp;<strong>Classes</strong></p> <ul> <li><strong>Data</strong>; implements <em>IData</em> Interface.</li> <li><strong>Parameter</strong>; defines two properties, <em>Name</em> and <em>Value</em> for the parameter array.</li> </ul> <p>&nbsp;Here are Provider Specific objects found in <em>DAF.SQLDb</em> namespace that inherit/implement the above interfaces. This post looks at SQL Server whose objects include:-</p> <p><strong>Interface</strong></p> <ul> <li><strong>ISQLData</strong>; has properties such as <em>ConString, Connection, Command, DataReader, ServerName</em> and methods that include <em>SaveCommand, UpdateCommand, DeleteCommand and SetConString</em>.</li> </ul> <p>&nbsp;<strong>Enumeration</strong></p> <ul> <li><strong>SQLConnectionMode</strong>; that helps to set connection mode to <em>WindowsAuthentication</em> or <em>SQLServerAuthentication</em>.</li> </ul> <p><strong>Classes</strong></p> <ul> <li><strong>ParameterSQL</strong>; Inherits <em>Parameter</em> class and adds properties such as <em>SQLDataType, ParDirection and Length</em>.</li> <li><strong>DBConnect</strong>; Perhaps this is the most important class that is inherited by any object that accesses the database. It Inherits the <em>Data</em> class, Implements <em>ISQLData</em> Interface and defines a couple of properties such as <em>ConString, Connection, Command, DataReader, ServerName</em> and methods that include <em>SetConString, Save, SaveData, SaveCommand, Update, UpdateData, Delete, DeleteData, DeleteCommand, SetCommand, Load, Execute, Read </em>and <em>Dispose</em>.</li> </ul> <p style="margin:0px;"><span style="color:blue;"></span></p> <p style="margin:0px;"><span style="color:blue;">Public</span> <span style="color:blue;">MustInherit</span> <span style="color:blue;">Class</span> DBConnect : <span style="color:blue;">Inherits</span> Data : <span style="color:blue;">Implements</span> ISQLData</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Fields &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Shared</span> m_ConString <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> _connection <span style="color:blue;">As</span> <span style="color:blue;">New</span> SqlConnection()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> _command <span style="color:blue;">As</span> SqlCommand</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> _dataReader <span style="color:blue;">As</span> SqlDataReader</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Shared</span> m_ServerName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Properties &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> ConString() <span style="color:blue;">As</span> <span style="color:blue;">String</span> <span style="color:blue;">Implements</span> ISQLData.ConString</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_ConString</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_ConString = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Property</span> Connection() <span style="color:blue;">As</span> SqlConnection <span style="color:blue;">Implements</span> ISQLData.Connection</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> _connection</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> SqlConnection)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; _connection = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Property</span> Command() <span style="color:blue;">As</span> SqlCommand <span style="color:blue;">Implements</span> ISQLData.Command</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> _command</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> SqlCommand)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; _command = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Property</span> DataReader() <span style="color:blue;">As</span> SqlDataReader <span style="color:blue;">Implements</span> ISQLData.DataReader</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> _dataReader</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> SqlDataReader)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; _dataReader = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> ServerName() <span style="color:blue;">As</span> <span style="color:blue;">String</span> <span style="color:blue;">Implements</span> ISQLData.ServerName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_ServerName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_ServerName = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Methods &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Sets the MS SQL connection mode and connection string</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_SQLConnectionMode&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_ConString&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Sub</span> SetConString(<span style="color:blue;">ByVal</span> _SQLConnectionMode <span style="color:blue;">As</span> SQLConnectionMode, <span style="color:blue;">ByVal</span> _ConString <span style="color:blue;">As</span> <span style="color:blue;">String</span>) _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Implements</span> ISQLData.SetConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> conBuilder <span style="color:blue;">As</span> <span style="color:blue;">New</span> SqlConnectionStringBuilder()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(_ConString) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Select</span> <span style="color:blue;">Case</span> <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Case</span> _SQLConnectionMode = SQLConnectionMode.WindowsAuthentication</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder(<span style="color:#a31515;">&quot;Server&quot;</span>) = <span style="color:blue;">Me</span>.ServerName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder.InitialCatalog = <span style="color:blue;">Me</span>.DatabaseName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder(<span style="color:#a31515;">&quot;Integrated Security&quot;</span>) = <span style="color:#a31515;">&quot;SSPI&quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder.PersistSecurityInfo = <span style="color:blue;">False</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;conBuilder.PacketSize = 4096</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.ConString = conBuilder.ConnectionString()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Case</span> _SQLConnectionMode = SQLConnectionMode.SQLServerAuthentication</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> conBuilder</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .DataSource = <span style="color:blue;">Me</span>.ServerName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .InitialCatalog = <span style="color:blue;">Me</span>.DatabaseName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .PersistSecurityInfo = <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .UserID = <span style="color:blue;">Me</span>.UserID</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Password = <span style="color:blue;">Me</span>.DBPassword</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.ConString = conBuilder.ConnectionString()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Select</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : <span style="color:blue;">Me</span>.ConString = _ConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Sets the MS SQL connection mode</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_SQLConnectionMode&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Sub</span> SetConString(<span style="color:blue;">ByVal</span> _SQLConnectionMode <span style="color:blue;">As</span> SQLConnectionMode) <span style="color:blue;">Implements</span> ISQLData.SetConString</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.SetConString(_SQLConnectionMode, <span style="color:blue;">String</span>.Empty)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Saves the objects data and if successful true is returned otherwise false</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> Save() <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span> <span style="color:blue;">Implements</span> ISQLData.Save</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Connection</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Command</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.ConnectionString = <span style="color:blue;">Me</span>.ConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Clean up to ensure that you supply only the required paraments</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> arrParameters <span style="color:blue;">As</span> ArrayList = SaveData()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> arrParameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(arrParameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Open()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Command.ExecuteNonQuery &gt; 0</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Close()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> SaveData() <span style="color:blue;">As</span> ArrayList <span style="color:blue;">Implements</span> ISQLData.SaveData</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Nothing</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Friend</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> SaveCommand() <span style="color:blue;">As</span> SqlCommand <span style="color:blue;">Implements</span> ISQLData.SaveCommand</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Clean up to ensure that you supply only the required paraments</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> arrParameters <span style="color:blue;">As</span> ArrayList = SaveData()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> arrParameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(arrParameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Not</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Command</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Updates the object&#39;s data and returns message telling the number of records updated</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Update() <span style="color:blue;">As</span> <span style="color:blue;">String</span> <span style="color:blue;">Implements</span> ISQLData.Update</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Connection</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Command</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.ConnectionString = <span style="color:blue;">Me</span>.ConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Clean up to ensure that you supply only the required paraments</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> arrParameters <span style="color:blue;">As</span> ArrayList = UpdateData()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> arrParameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(arrParameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Open()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> updateMessage <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Me</span>.Command.ExecuteNonQuery().ToString()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:#a31515;">&quot;Record successfully updated!&quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> SqlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Close()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> UpdateData() <span style="color:blue;">As</span> ArrayList <span style="color:blue;">Implements</span> ISQLData.UpdateData</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Nothing</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Friend</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> UpdateCommand() <span style="color:blue;">As</span> SqlCommand <span style="color:blue;">Implements</span> ISQLData.UpdateCommand</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Clean up to ensure that you supply only the required paraments</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> arrParameters <span style="color:blue;">As</span> ArrayList = UpdateData()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> arrParameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(arrParameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Not</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Command</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Deletes Object data and returns a message telling you the number of records deleted</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Delete() <span style="color:blue;">As</span> <span style="color:blue;">String</span> <span style="color:blue;">Implements</span> ISQLData.Delete</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Connection</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Command</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.ConnectionString = <span style="color:blue;">Me</span>.ConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Clean up to ensure that you supply only the required paraments</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> arrParameters <span style="color:blue;">As</span> ArrayList = DeleteData()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> arrParameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(arrParameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Open()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> deleteMessage <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Me</span>.Command.ExecuteNonQuery().ToString()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:#a31515;">&quot;Record successfully deleted!&quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> SqlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Close()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> DeleteData() <span style="color:blue;">As</span> ArrayList <span style="color:blue;">Implements</span> ISQLData.DeleteData</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Nothing</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Friend</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> DeleteCommand() <span style="color:blue;">As</span> SqlCommand <span style="color:blue;">Implements</span> ISQLData.DeleteCommand</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Clean up to ensure that you supply only the required paraments</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> arrParameters <span style="color:blue;">As</span> ArrayList = DeleteData()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> intPos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> arrParameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(arrParameters(intPos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Not</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Command</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Sub</span> SetCommand(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> ctName <span style="color:blue;">As</span> CommandType) <span style="color:blue;">Implements</span> ISQLData.SetCommand</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command = <span style="color:blue;">New</span> SqlCommand(_SPName, <span style="color:blue;">Me</span>.Connection)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.CommandType = ctName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Sub</span> SetCommand(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>) <span style="color:blue;">Implements</span> ISQLData.SetCommand</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command = <span style="color:blue;">New</span> SqlCommand(_SPName, <span style="color:blue;">Me</span>.Connection)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.CommandType = CommandType.StoredProcedure</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Returns data from the database as a dataset</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_SPName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_tables&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_Parameters&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;ctName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;commTimeout&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Load(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _tables <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _Parameters <span style="color:blue;">As</span> ArrayList, _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">ByVal</span> ctName <span style="color:blue;">As</span> CommandType, <span style="color:blue;">ByVal</span> commTimeout <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>) <span style="color:blue;">As</span> DataSet <span style="color:blue;">Implements</span> ISQLData.Load</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Connection</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.ConnectionString = <span style="color:blue;">MyClass</span>.ConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> tables() <span style="color:blue;">As</span> <span style="color:blue;">String</span> = _tables.Split(<span style="color:blue;">Me</span>.SplitChar)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> tableName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:#a31515;">&quot;Table&quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> daSQL <span style="color:blue;">As</span> SqlDataAdapter = <span style="color:blue;">New</span> SqlDataAdapter(_SPName, <span style="color:blue;">Me</span>.Connection)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> dsSQL <span style="color:blue;">As</span> DataSet = <span style="color:blue;">New</span> DataSet(tables(tables.GetLowerBound(0)))</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; daSQL.SelectCommand.CommandType = ctName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; daSQL.SelectCommand.CommandTimeout = commTimeout</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> IsNothing(_Parameters) = <span style="color:blue;">False</span> <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _Parameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(_Parameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; daSQL.SelectCommand.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dsSQL.EnforceConstraints = <span style="color:blue;">False</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> daSQL</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .MissingMappingAction = MissingMappingAction.Passthrough</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .MissingSchemaAction = MissingSchemaAction.AddWithKey</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = tables.GetLowerBound(0) <span style="color:blue;">To</span> tables.GetUpperBound(0)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> pos = 0 <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .TableMappings.Add(tableName, tables(pos).Trim())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : .TableMappings.Add(tableName &amp; pos, tables(pos).Trim())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Fill(dsSQL)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dsSQL.EnforceConstraints = <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> dsSQL</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> SqlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Close()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Load(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _tables <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _Parameters <span style="color:blue;">As</span> ArrayList, _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp; <span style="color:blue;">ByVal</span> ctName <span style="color:blue;">As</span> CommandType) <span style="color:blue;">As</span> DataSet <span style="color:blue;">Implements</span> ISQLData.Load</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Load(_SPName, _tables, _Parameters, ctName, 0)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Load(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _tables <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _Parameters <span style="color:blue;">As</span> ArrayList) <span style="color:blue;">As</span> DataSet <span style="color:blue;">Implements</span> ISQLData.Load</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Load(_SPName, _tables, _Parameters, CommandType.StoredProcedure, 0)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Load(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _tables <span style="color:blue;">As</span> <span style="color:blue;">String</span>) <span style="color:blue;">As</span> DataSet <span style="color:blue;">Implements</span> ISQLData.Load</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Load(_SPName, _tables, <span style="color:blue;">Nothing</span>, CommandType.StoredProcedure, 0)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; calling this helps to execute DB scripts returning no data such as abackup script</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_SPName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_Parameters&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;ctName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;commTimeout&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Sub</span> Execute(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _Parameters <span style="color:blue;">As</span> ArrayList, _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">ByVal</span> ctName <span style="color:blue;">As</span> CommandType, <span style="color:blue;">ByVal</span> commTimeout <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>) <span style="color:blue;">Implements</span> ISQLData.Execute</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Connection</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Command</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.ConnectionString = <span style="color:blue;">MyClass</span>.ConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command = <span style="color:blue;">New</span> SqlCommand(_SPName, <span style="color:blue;">Me</span>.Connection)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.CommandType = ctName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.CommandTimeout = commTimeout</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> IsNothing(_Parameters) = <span style="color:blue;">False</span> <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _Parameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(_Parameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Open()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.ExecuteNonQuery()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Close()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Sub</span> Execute(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _Parameters <span style="color:blue;">As</span> ArrayList, _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; <span style="color:blue;">ByVal</span> ctName <span style="color:blue;">As</span> CommandType) <span style="color:blue;">Implements</span> ISQLData.Execute</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Execute(_SPName, _Parameters, ctName, 0)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Sub</span> Execute(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _Parameters <span style="color:blue;">As</span> ArrayList) <span style="color:blue;">Implements</span> ISQLData.Execute</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Execute(_SPName, _Parameters, CommandType.StoredProcedure, 0)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Sub</span> Execute(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>) <span style="color:blue;">Implements</span> ISQLData.Execute</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Execute(_SPName, <span style="color:blue;">Nothing</span>, CommandType.StoredProcedure, 0)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Returns data from adata reader as ahashtable</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_SPName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_Parameters&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;ctName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Read(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _Parameters <span style="color:blue;">As</span> ArrayList, _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; <span style="color:blue;">ByVal</span> ctName <span style="color:blue;">As</span> CommandType) <span style="color:blue;">As</span> Hashtable <span style="color:blue;">Implements</span> ISQLData.Read</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> htReadData <span style="color:blue;">As</span> <span style="color:blue;">New</span> Hashtable()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Connection</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Command</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.ConnectionString = <span style="color:blue;">MyClass</span>.ConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command = <span style="color:blue;">New</span> SqlCommand(_SPName, <span style="color:blue;">Me</span>.Connection)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.CommandType = ctName</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> IsNothing(_Parameters) = <span style="color:blue;">False</span> <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _Parameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(_Parameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Select</span> <span style="color:blue;">Case</span> <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Case</span> <span style="color:blue;">Not</span> IsNothing(.Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Case</span> IsNothing(.Value) <span style="color:blue;">And</span> IsNothing(.Length) <span style="color:blue;">OrElse</span> IsNothing(.Value) <span style="color:blue;">And</span> .Length = 0</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .SQLDataType)).Direction = .ParDirection</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Case</span> <span style="color:blue;">Else</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .SQLDataType, .Length)).Direction = .ParDirection</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Select</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Open()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.ExecuteNonQuery()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> IsNothing(_Parameters) = <span style="color:blue;">False</span> <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _Parameters.Count - 1</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(_Parameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Select</span> <span style="color:blue;">Case</span> <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Case</span> .ParDirection = ParameterDirection.Output <span style="color:blue;">OrElse</span> .ParDirection = ParameterDirection.InputOutput</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; htReadData.Add(.Name.ToString(), <span style="color:blue;">Me</span>.Command.Parameters(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString()).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Select</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> htReadData</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> SqlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.DataReader <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.DataReader.Close()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Close()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Nothing</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Read(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _Parameters <span style="color:blue;">As</span> ArrayList) <span style="color:blue;">As</span> Hashtable <span style="color:blue;">Implements</span> ISQLData.Read</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Read(_SPName, _Parameters, CommandType.StoredProcedure)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Read(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>) <span style="color:blue;">As</span> Hashtable <span style="color:blue;">Implements</span> ISQLData.Read</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Read(_SPName, <span style="color:blue;">Nothing</span>, CommandType.StoredProcedure)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Destructor &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Sub</span> Dispose() <span style="color:blue;">Implements</span> ISQLData.Dispose</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; GC.Collect()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Class</span></p> <p style="margin:0px;"><span style="color:blue;"></span></p> <p><strong></strong></p> <p><strong>Using the DAF</strong></p> <p>To use the DAF, define a class such as <em>Customers</em> that inherits <em>DBConnect</em> and overrides <em>SaveData, UpdateData, DeleteData</em> methods. You can include several other methods that call the <em>Load</em> method to retrieve data as a dataset using different select criterion such as <em>GetCustomers</em> Note that if your SP returns multiple tables from the DB, then you need to supply comma separated datatable names to load the returned DB data, or if you just want to execute a certain script, you can just call <em>Execute</em> method. You can also return only one value from the DB by calling the Read method that returns a hashtable.</p> <p style="margin:0px;"><span style="color:blue;">public</span> <span style="color:blue;">class</span> <span style="color:#2b91af;">Customers</span> : <span style="color:#2b91af;">DBConnect</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;"><span style="color:blue;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; #region</span> Fields</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">private</span> <span style="color:blue;">string</span> m_CustID;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">private</span> <span style="color:blue;">string</span> m_FirstName;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">private</span> <span style="color:blue;">string</span> m_LastName;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">private</span> <span style="color:#2b91af;">DateTime</span> m_JoinDate;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">private</span> <span style="color:blue;">string</span> m_Email;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">private</span> <span style="color:blue;">decimal</span> m_CreditLimit;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; #endregion</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; #region</span> Properties</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> <span style="color:blue;">string</span> CustID { <span style="color:blue;">get</span> { <span style="color:blue;">return</span> m_CustID; } <span style="color:blue;">set</span> { m_CustID = <span style="color:blue;">value</span>; } }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> <span style="color:blue;">string</span> FirstName { <span style="color:blue;">get</span> { <span style="color:blue;">return</span> m_FirstName; } <span style="color:blue;">set</span> { m_FirstName = <span style="color:blue;">value</span>; } }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> <span style="color:blue;">string</span> LastName { <span style="color:blue;">get</span> { <span style="color:blue;">return</span> m_LastName; } <span style="color:blue;">set</span> { m_LastName = <span style="color:blue;">value</span>; } }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> <span style="color:#2b91af;">DateTime</span> JoinDate { <span style="color:blue;">get</span> { <span style="color:blue;">return</span> m_JoinDate; } <span style="color:blue;">set</span> { m_JoinDate = <span style="color:blue;">value</span>; } }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> <span style="color:blue;">string</span> Email { <span style="color:blue;">get</span> { <span style="color:blue;">return</span> m_Email; } <span style="color:blue;">set</span> { m_Email = <span style="color:blue;">value</span>; } }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> <span style="color:blue;">decimal</span> CreditLimit { <span style="color:blue;">get</span> { <span style="color:blue;">return</span> m_CreditLimit; } <span style="color:blue;">set</span> { m_CreditLimit = <span style="color:blue;">value</span>; } }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; #endregion</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; #region</span> Constructors</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> Customers() : <span style="color:blue;">base</span>() { }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> Customers(<span style="color:blue;">string</span> serverName, <span style="color:blue;">string</span> databaseName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; : <span style="color:blue;">base</span>()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.ServerName = serverName;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.DatabaseName = databaseName;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; #endregion</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; #region</span> Methods</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">protected</span> <span style="color:blue;">override</span> <span style="color:#2b91af;">ArrayList</span> SaveData()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.SetCommand(<span style="color:#a31515;">&quot;uspInsertCustomers&quot;</span>);</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;CustID&quot;</span>, <span style="color:blue;">this</span>.CustID));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;FirstName&quot;</span>, <span style="color:blue;">this</span>.FirstName));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;LastName&quot;</span>, <span style="color:blue;">this</span>.LastName));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;JoinDate&quot;</span>, <span style="color:blue;">this</span>.JoinDate));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;Email&quot;</span>, <span style="color:blue;">this</span>.Email));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;CreditLimit&quot;</span>, <span style="color:blue;">this</span>.CreditLimit));</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">return</span> Parameters;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">protected</span> <span style="color:blue;">override</span> <span style="color:#2b91af;">ArrayList</span> UpdateData()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.SetCommand(<span style="color:#a31515;">&quot;uspUpdateCustomers&quot;</span>);</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;CustID&quot;</span>, <span style="color:blue;">this</span>.CustID));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;FirstName&quot;</span>, <span style="color:blue;">this</span>.FirstName));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;LastName&quot;</span>, <span style="color:blue;">this</span>.LastName));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;JoinDate&quot;</span>, <span style="color:blue;">this</span>.JoinDate));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;Email&quot;</span>, <span style="color:blue;">this</span>.Email));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;CreditLimit&quot;</span>, <span style="color:blue;">this</span>.CreditLimit));</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">return</span> Parameters;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">protected</span> <span style="color:blue;">override</span> <span style="color:#2b91af;">ArrayList</span> DeleteData()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">string</span> where;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">string</span> errorPart;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; where = <span style="color:#a31515;">&quot;CustID = &#39;&quot;</span> + <span style="color:blue;">this</span>.CustID + <span style="color:#a31515;">&quot;&#39;&quot;</span>;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; errorPart = <span style="color:#a31515;">&quot;Cust No: &quot;</span> + <span style="color:blue;">this</span>.CustID;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.SetCommand(<span style="color:#a31515;">&quot;uspDeleteObject&quot;</span>);</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;ObjectName&quot;</span>, <span style="color:#a31515;">&quot;Customers&quot;</span>));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;Where&quot;</span>, where));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;ErrorPart&quot;</span>, errorPart));</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">return</span> Parameters;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> <span style="color:#2b91af;">DataSet</span> GetCustomers(<span style="color:blue;">string</span> custID)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;CustID&quot;</span>, custID));</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">return</span> <span style="color:blue;">this</span>.Load(<span style="color:#a31515;">&quot;uspGetCustomers&quot;</span>, <span style="color:#a31515;">&quot;Customers&quot;</span>, Parameters);</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; #endregion</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; }</p> <p>&nbsp;Finally create a form that instantiates the <em>Customers</em> object and calls the respective methods, </p> <p><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/8546.Customers.gif" alt="Customers Registration Form" /> </p> <p>&nbsp;<strong>Code under Save button is as follows</strong></p> <p style="margin:0px;"><span style="color:blue;">private</span> <span style="color:blue;">void</span> btnSave_Click(<span style="color:blue;">object</span> sender, <span style="color:#2b91af;">EventArgs</span> e)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">using</span> (DAFSampleData.<span style="color:#2b91af;">Customers</span> oCustomers = <span style="color:blue;">new</span> DAFSampleData.<span style="color:#2b91af;">Customers</span>())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.CustID = <span style="color:blue;">this</span>.txtCustID.Text;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.FirstName = <span style="color:blue;">this</span>.txtFirstName.Text;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.LastName = <span style="color:blue;">this</span>.txtLastName.Text;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.JoinDate = <span style="color:blue;">this</span>.dtpJoinDate.Value;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.Email = <span style="color:blue;">this</span>.txtEmail.Text;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.CreditLimit = <span style="color:#2b91af;">Convert</span>.ToDecimal(<span style="color:blue;">this</span>.txtCreditLimit.Text);</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">////////////////////////////////////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">if</span> (oCustomers.Save()) {<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">&quot;Cust ID: &quot;</span> + oCustomers.CustID + <span style="color:#a31515;">&quot; successfully saved!&quot;</span>);}</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">////////////////////////////////////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">//////////////////////////</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.ResetControls();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">//////////////////////////</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">catch</span> (<span style="color:#2b91af;">Exception</span> ex)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:#2b91af;">MessageBox</span>.Show(ex.Message);</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p><br /><strong>Code under Load button is as follows</strong></p> <p style="margin:0px;"><span style="color:blue;">private</span> <span style="color:blue;">void</span> btnLoad_Click(<span style="color:blue;">object</span> sender, <span style="color:#2b91af;">EventArgs</span> e)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:#2b91af;">DataTable</span> customers = <span style="color:blue;">new</span> <span style="color:#2b91af;">DataTable</span>();</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; DAFSampleData.<span style="color:#2b91af;">Customers</span> oCustomers = <span style="color:blue;">new</span> DAFSampleData.<span style="color:#2b91af;">Customers</span>();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; customers = oCustomers.GetCustomers(<span style="color:blue;">this</span>.txtCustID.Text).Tables[<span style="color:#a31515;">&quot;Customers&quot;</span>];</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">/////////////////////////////////////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.ResetControls();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">/////////////////////////////////////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:#2b91af;">EnumerableRowCollection</span>&lt;<span style="color:#2b91af;">DataRow</span>&gt; cust = customers.AsEnumerable();</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">/////////////////////////////////////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.txtCustID.Text = (<span style="color:blue;">from</span> c <span style="color:blue;">in</span> cust <span style="color:blue;">select</span> c.Field&lt;<span style="color:#2b91af;">String</span>&gt;(<span style="color:#a31515;">&quot;CustID&quot;</span>)).First();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.txtFirstName.Text = (<span style="color:blue;">from</span> c <span style="color:blue;">in</span> cust <span style="color:blue;">select</span> c.Field&lt;<span style="color:#2b91af;">String</span>&gt;(<span style="color:#a31515;">&quot;FirstName&quot;</span>)).First();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.txtLastName.Text = (<span style="color:blue;">from</span> c <span style="color:blue;">in</span> cust <span style="color:blue;">select</span> c.Field&lt;<span style="color:#2b91af;">String</span>&gt;(<span style="color:#a31515;">&quot;LastName&quot;</span>)).First();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.dtpJoinDate.Value = (<span style="color:blue;">from</span> c <span style="color:blue;">in</span> cust <span style="color:blue;">select</span> c.Field&lt;<span style="color:#2b91af;">DateTime</span>&gt;(<span style="color:#a31515;">&quot;JoinDate&quot;</span>)).First();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.txtEmail.Text = (<span style="color:blue;">from</span> c <span style="color:blue;">in</span> cust <span style="color:blue;">select</span> c.Field&lt;<span style="color:#2b91af;">String</span>&gt;(<span style="color:#a31515;">&quot;Email&quot;</span>)).First();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.txtCreditLimit.Text = (<span style="color:blue;">from</span> c <span style="color:blue;">in</span> cust <span style="color:blue;">select</span> c.Field&lt;<span style="color:#2b91af;">Decimal</span>&gt;(<span style="color:#a31515;">&quot;CreditLimit&quot;</span>)).First().ToString();</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">//////////////////////////////////////////////////////////////////////////////////////////////////////&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; </span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">catch</span> (<span style="color:#2b91af;">Exception</span> ex)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:#2b91af;">MessageBox</span>.Show(ex.Message);</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p><br /><strong>Code under Update button is as follows</strong></p> <p style="margin:0px;"><span style="color:blue;">private</span> <span style="color:blue;">void</span> btnUpdate_Click(<span style="color:blue;">object</span> sender, <span style="color:#2b91af;">EventArgs</span> e)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">using</span> (DAFSampleData.<span style="color:#2b91af;">Customers</span> oCustomers = <span style="color:blue;">new</span> DAFSampleData.<span style="color:#2b91af;">Customers</span>())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.CustID = <span style="color:blue;">this</span>.txtCustID.Text;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.FirstName = <span style="color:blue;">this</span>.txtFirstName.Text;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.LastName = <span style="color:blue;">this</span>.txtLastName.Text;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.JoinDate = <span style="color:blue;">this</span>.dtpJoinDate.Value;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.Email = <span style="color:blue;">this</span>.txtEmail.Text;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.CreditLimit = <span style="color:#2b91af;">Convert</span>.ToDecimal(<span style="color:blue;">this</span>.txtCreditLimit.Text);</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">/////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">string</span> updateMSG = oCustomers.Update();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:#2b91af;">MessageBox</span>.Show(updateMSG);</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">/////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">catch</span> (<span style="color:#2b91af;">Exception</span> ex)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:#2b91af;">MessageBox</span>.Show(ex.Message);</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p><br /><strong>Code under Delete button is as follows</strong></p> <p style="margin:0px;"><span style="color:blue;">private</span> <span style="color:blue;">void</span> btnDelete_Click(<span style="color:blue;">object</span> sender, <span style="color:#2b91af;">EventArgs</span> e)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">using</span> (DAFSampleData.<span style="color:#2b91af;">Customers</span> oCustomers = <span style="color:blue;">new</span> DAFSampleData.<span style="color:#2b91af;">Customers</span>())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.CustID = <span style="color:blue;">this</span>.txtCustID.Text;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">/////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">string</span> deleteMSG = oCustomers.Delete();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:#2b91af;">MessageBox</span>.Show(deleteMSG);</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">/////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.ResetControls();&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp; </p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">/////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">catch</span> (<span style="color:#2b91af;">Exception</span> ex)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:#2b91af;">MessageBox</span>.Show(ex.Message);</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p>Finally run the SP that are also provided for in the Stored Procedure folder. No need to write them manually you can use tool such as <a href="http://bloggingabout.net/blogs/wilson/archive/2009/07/27/code-generation-generate-stored-procedure-automatically.aspx">Code Generation; Generate Stored Procedures Automatically</a> from my earlier post.</p> <p><strong>Create&nbsp;Customers Table Script</strong>&nbsp;</p> <p><em>create table Customers <br />(CustID varchar(10) not null constraint pkCustID primary key,<br />FirstName varchar(20),<br />LastName varchar(20),<br />JoinDate smalldatetime,<br />Email varchar(20),<br />CreditLimit money<br />)<br />go</em><br /><br /><strong>Insert Into Customers SP</strong></p> <p><em>create proc uspInsertCustomers(<br />@CustID varchar(10),<br />@FirstName varchar(20),<br />@LastName varchar(20),<br />@JoinDate smalldatetime,<br />@Email varchar(20),<br />@CreditLimit money<br />) as</em></p> <p><em>declare @ErrorMSG varchar(200)</em></p> <p><em>if exists(select CustID from Customers where CustID = @CustID)<br />&nbsp;begin<br />&nbsp;&nbsp;set @ErrorMSG = &#39;The record with %s: %s, you are trying to enter already exists&#39;<br />&nbsp;&nbsp;raiserror(@ErrorMSG, 16, 1, &#39;Cust ID&#39;, @CustID)<br />&nbsp;&nbsp;return 1<br />&nbsp;end</em></p> <p><em>begin<br />insert into Customers<br />(CustID, FirstName, LastName, JoinDate, Email, CreditLimit)<br />values<br />(@CustID, @FirstName, @LastName, @JoinDate, @Email, @CreditLimit)<br />return 0<br />end<br />go</em><br /><br /><strong>Update Customers SP</strong></p> <p><em>create proc uspUpdateCustomers(<br />@CustID varchar(10),<br />@FirstName varchar(20),<br />@LastName varchar(20),<br />@JoinDate smalldatetime,<br />@Email varchar(20),<br />@CreditLimit money<br />) as</em></p> <p><em>declare @ErrorMSG varchar(200)</em></p> <p><em>if not exists(select CustID from Customers where CustID = @CustID)<br />&nbsp;begin<br />&nbsp;&nbsp;set @ErrorMSG = &#39;The record with %s: %s, you are trying to enter does not exist in the registered %s&#39;<br />&nbsp;&nbsp;raiserror(@ErrorMSG, 16, 1, &#39;Cust ID&#39;, @CustID, &#39;Customers&#39;)<br />&nbsp;&nbsp;return 1<br />&nbsp;end</em></p> <p><em>begin<br />update Customers set<br />FirstName = @FirstName, LastName = @LastName, JoinDate = @JoinDate, Email = @Email, CreditLimit = @CreditLimit<br />where CustID = @CustID<br />return 0<br />end<br />go</em></p> <p><strong>Get Customers SP</strong></p> <p><em>create proc uspGetCustomers(<br />@CustID varchar(10)<br />) as</em></p> <p><em>declare @ErrorMSG varchar(200)</em></p> <p><em>if not exists(select CustID from Customers where CustID = @CustID)<br />&nbsp;begin<br />&nbsp;&nbsp;set @ErrorMSG = &#39;The record with %s: %s, you are trying to enter does not exist in the registered %s&#39;<br />&nbsp;&nbsp;raiserror(@ErrorMSG, 16, 1, &#39;Cust ID&#39;, @CustID, &#39;Customers&#39;)<br />&nbsp;&nbsp;return 1<br />&nbsp;end<br />else<br />begin<br />&nbsp;select CustID, FirstName, LastName, JoinDate, Email, CreditLimit<br />&nbsp;from Customers<br />&nbsp;where CustID = @CustID<br />return 0<br />end<br />go</em><br /><br /><strong>Delete SP</strong> </p> <p>&nbsp;<a href="http://bloggingabout.net/blogs/wilson/archive/2009/05/15/create-one-delete-stored-procedure-that-can-be-used-to-delete-data-from-different-tables.aspx">Create one delete stored procedure that can be used to delete data from different tables</a></p> <p><br /><strong>Conclusion</strong></p> <p>If you follow some basic rules and commit them to habit, writing data-access code will be faster, easier, and more reusable, save you trips to the server, and allow you to keep your data separate.</p> <p><strong>Note</strong></p> <ul> <li>Remember to download the complete code from the attached file (Data Access Framework.zip), that &nbsp;shows usage in both VB and C#</li> <li>This post contains a stripped down version of code that is an extract from my framework that I have used for over five years now. One application that uses it can be downloaded from <a href="http://www.clinicmaster.net/Downloads.htm">http://www.clinicmaster.net/Downloads.htm</a></li> <li>Follow me on twitter (@<em>Kutegz</em>) to get information for more posts.</li> </ul> <p>&nbsp;<strong>Next Post (s)</strong></p> <ul> <li>&nbsp;Code Generation; Generate VB/C# Code Automatically</li> </ul> <p>&nbsp;</p> <p>&nbsp;<em>Wilson Kutegeka | Microsoft MVP - VB | C#<br />Developer | Promoter | ClinicMaster Software</em><em><br />Cel: +256 772 609113 | Web: </em><a href="http://www.clinicmaster.net"><em>www.clinicmaster.net</em></a></p> <p><a target="_blank" href="http://twitter.com/kutegz"><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/7183.small_5F00_twitter.gif" alt="follow me on twitter" style="margin-top:0px;margin-bottom:0px;border:0;" /> </a><a target="_blank" href="http://www.facebook.com/Kutegz"><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/5611.small_5F00_facebook.gif" alt="find me on facebook" style="margin-top:0px;margin-bottom:0px;border:0;" /> </a></p> <p>&nbsp;</p><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=483364" width="1" height="1">Kutegzhttp://bloggingabout.net/members/Kutegz/default.aspx/blogs/wilson/archive/2009/09/04/restore-ms-sql-server-database-from-within-your-application-s.aspx2009-09-04T08:10:00Z2009-09-04T08:10:00Z<p><strong>Introduction</strong></p> <p>This post is a follow-up of my previous post; <a target="_blank" href="http://bloggingabout.net/blogs/wilson/archive/2009/08/26/backup-ms-sql-server-database-from-within-your-applications.aspx">Backup MS SQL Server database from within your application(s)</a>. It presents a simple way in which you could incorporate a restore tool from with in your application.</p> <p>Simply download the source code with the restore form that you need to just add into your application</p> <p><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/8053.RestoreDB.jpg" alt="Restore MS SQL Server database from within your application" /> </p> <p><strong>Key Methods include</strong></p> <p><br /><em><strong>LoadServers</strong></em>; this method loads all local servers</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Loads local servers</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> LoadServers()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Cursor = Cursors.WaitCursor</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> servers <span style="color:blue;">As</span> <span style="color:blue;">New</span> DataTable()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; servers = SmoApplication.EnumAvailableSqlServers(<span style="color:blue;">True</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.cboServerName.Items.Clear()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> server <span style="color:blue;">As</span> DataRow <span style="color:blue;">In</span> servers.Rows</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.cboServerName.Items.Add(server.Item(<span style="color:#a31515;">&quot;Name&quot;</span>))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Cursor = Cursors.Default</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> </div> <p><em><strong>LoadDataFiles</strong></em>; this method first checks the validity of the device, and then loads data and log files from the backup device</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; loads data and log files</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;fileName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> LoadDataFiles(<span style="color:blue;">ByVal</span> fileName <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> restoreServer <span style="color:blue;">As</span> <span style="color:blue;">New</span> Server()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> dataRestore <span style="color:blue;">As</span> <span style="color:blue;">New</span> Restore()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> data <span style="color:blue;">As</span> <span style="color:blue;">New</span> DataTable()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> valid <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Cursor = Cursors.WaitCursor</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvRestore.Rows.Clear()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataRestore.Devices.AddDevice(fileName, DeviceType.File)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; valid = dataRestore.SqlVerify(restoreServer)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> valid <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; data = dataRestore.ReadFileList(restoreServer)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> data <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">OrElse</span> data.Rows.Count &lt; 1 <span style="color:blue;">Then</span> <span style="color:blue;">Return</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> data.Rows.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Ensure that you add a new row</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvRestore.Rows.Add()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colLogicalName.Name, pos).Value = data.Rows(pos).Item(<span style="color:#a31515;">&quot;LogicalName&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colPhysicalName.Name, pos).Value = data.Rows(pos).Item(<span style="color:#a31515;">&quot;PhysicalName&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colSize.Name, pos).Value = data.Rows(pos).Item(<span style="color:#a31515;">&quot;Size&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.btnRestore.Enabled = <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.ClearControls()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Invalid backup file!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> exSMO <span style="color:blue;">As</span> SmoException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> exSMO</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> ex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Cursor = Cursors.Default</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> </div> <p>Restore button performs the restoration process</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> btnRestore_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.EventArgs) <span style="color:blue;">Handles</span> btnRestore.Click</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Cursor.Current = Cursors.WaitCursor</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> dataLogicalName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> logLogicalName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> dataPhysicalName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> logPhysicalName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> serverName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Me</span>.cboServerName.Text.ToString()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> dataBaseName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Me</span>.txtDataBaseName.Text.ToString()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> fileName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Me</span>.txtBackupFile.Text.ToString()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(serverName) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Enter server name!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(dataBaseName) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Enter data base name!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(fileName) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Load backup file!&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> restoreServer <span style="color:blue;">As</span> <span style="color:blue;">New</span> Server(serverName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> dataRestore <span style="color:blue;">As</span> <span style="color:blue;">New</span> Restore()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataRestore.Action = RestoreActionType.Database</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataRestore.Database = dataBaseName</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;set the devices: file, tape etc</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataRestore.Devices.AddDevice(fileName, DeviceType.File)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;progress meter stuff</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proRestoreDatabase.Minimum = 0</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proRestoreDatabase.Value = 10</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proRestoreDatabase.Maximum = 100</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;this gives the % complete by handling the event</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;provided by SMO on the percent complete; we will</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;update the progress meter in the event handler</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;set the progress meter to 10% by default</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataRestore.PercentCompleteNotification = 10</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataRestore.ReplaceDatabase = <span style="color:blue;">Me</span>.chkOverwriteDatabase.Checked</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">AddHandler</span> dataRestore.PercentComplete, <span style="color:blue;">AddressOf</span> <span style="color:blue;">Me</span>.RestoreProgressEventHandler</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;use below to relocate ths mdf files</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(<span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colLogicalName.Name, 0).Value)) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataLogicalName = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : dataLogicalName = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colLogicalName.Name, 0).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(<span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colPhysicalName.Name, 0).Value)) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataPhysicalName = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : dataPhysicalName = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colPhysicalName.Name, 0).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(<span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colLogicalName.Name, 1).Value)) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; logLogicalName = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : logLogicalName = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colLogicalName.Name, 1).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(<span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colPhysicalName.Name, 1).Value)) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; logPhysicalName = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : logPhysicalName = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colPhysicalName.Name, 1).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> dataRestore.RelocateFiles</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> RelocateFile(dataLogicalName, dataPhysicalName))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> RelocateFile(logLogicalName, logPhysicalName))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataRestore.SqlRestore(restoreServer)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(<span style="color:#a31515;">&quot;Restore completed successfully!&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> exSMO <span style="color:blue;">As</span> SmoException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proRestoreDatabase.Value = 0</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(exSMO.Message)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proRestoreDatabase.Value = 0</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(ex.Message)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proRestoreDatabase.Value = 0</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Cursor.Current = Cursors.Default</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> RestoreProgressEventHandler(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> PercentCompleteEventArgs)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;increase the progress bar up by the percent</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proRestoreDatabase.Value = e.Percent</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> </div> <p>Download the source code <span id="ctl00_ctl00_OuterTaskRegion_TaskRegion_TaskRegion_CreatePost_ctl03_PostAttachment_ctl00_serverfilename"><em>RestoreDatabase.zip</em></span> attached below</p> <p><em>Wilson Kutegeka | Microsoft MVP - VB<br />Developer | Promoter | ClinicMaster Software<br />Cel: +256 772 609113 | Web: </em><a href="http://www.clinicmaster.net"><em>www.clinicmaster.net</em></a></p><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=482152" width="1" height="1">Kutegzhttp://bloggingabout.net/members/Kutegz/default.aspx/blogs/wilson/archive/2009/08/26/backup-ms-sql-server-database-from-within-your-applications.aspx2009-08-26T15:32:00Z2009-08-26T15:32:00Z<p><br /><strong>Introduction</strong></p> <p>The need to back up databases on a regular basis is a major component of managing any production system. This post presents a simple way in which you could incorporate a backup tool from with in your application.</p> <p><br />Simply download the source code with the backup form that you need to just add into your application</p> <p><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/6683.backup.jpg" alt="Backup MS SQL Server database from within your application" /> </p> <p>&nbsp;<br /><strong>Key Methods include</strong></p> <p><strong><em>LoadServers</em></strong>; this method loads all local servers</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Loads all local servers</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> LoadServers()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Cursor = Cursors.WaitCursor</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> servers <span style="color:blue;">As</span> <span style="color:blue;">New</span> DataTable()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; servers = SmoApplication.EnumAvailableSqlServers(<span style="color:blue;">True</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.cboServerName.Items.Clear()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> server <span style="color:blue;">As</span> DataRow <span style="color:blue;">In</span> servers.Rows</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.cboServerName.Items.Add(server.Item(<span style="color:#a31515;">&quot;Name&quot;</span>))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Cursor = Cursors.Default</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> </div> <p>&nbsp;<em><strong>LoadDatabases</strong></em>; this method loads databases for the selected server</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Loads databases for the selected server</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;serverName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> LoadDatabases(<span style="color:blue;">ByVal</span> serverName <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Cursor = Cursors.WaitCursor</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.cboDataBaseName.Items.Clear()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> server <span style="color:blue;">As</span> <span style="color:blue;">New</span> Server(serverName)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> database <span style="color:blue;">As</span> Database <span style="color:blue;">In</span> server.Databases</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.cboDataBaseName.Items.Add(database.Name)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Cursor = Cursors.Default</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> </div> <p>&nbsp;Backup button performs the backup process</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> btnBackup_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.EventArgs) <span style="color:blue;">Handles</span> btnBackup.Click</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Cursor.Current = Cursors.WaitCursor</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> serverName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Me</span>.cboServerName.Text.ToString()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> fileName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Me</span>.txtBackupFile.Text.ToString()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(serverName) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Enter server name&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(fileName) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Load backup file!&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> backupServer <span style="color:blue;">As</span> <span style="color:blue;">New</span> Server(serverName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> dataBackup <span style="color:blue;">As</span> <span style="color:blue;">New</span> Backup()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataBackup.Action = BackupActionType.Database</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataBackup.Database = <span style="color:blue;">Me</span>.cboDataBaseName.Text.ToString()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;set the devices: file, tape etc</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataBackup.Devices.AddDevice(fileName, DeviceType.File)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;set this if you want to do incremental</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataBackup.Incremental = <span style="color:blue;">Me</span>.chkIncremental.Checked</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;progress meter stuff</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proBackupDatabase.Minimum = 0</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proBackupDatabase.Value = 10</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proBackupDatabase.Maximum = 100</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;this gives the % complete by handling the event</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;provided by SMO on the percent complete; we will</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;update the progress meter in the event handler</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;set the progress meter to 10% by default</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataBackup.PercentCompleteNotification = 10</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">AddHandler</span> dataBackup.PercentComplete, <span style="color:blue;">AddressOf</span> <span style="color:blue;">Me</span>.BackupProgressEventHandler</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataBackup.SqlBackup(backupServer)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(<span style="color:#a31515;">&quot;Backup completed successfully!&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> exSMO <span style="color:blue;">As</span> SmoException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proBackupDatabase.Value = 0</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(exSMO.Message)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proBackupDatabase.Value = 0</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(ex.Message)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proBackupDatabase.Value = 0</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Cursor.Current = Cursors.Default</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> BackupProgressEventHandler(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> PercentCompleteEventArgs)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;increase the progress bar up by the percent</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proBackupDatabase.Value = e.Percent</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> </div> <p><strong>Related Post</strong>:</p> <p><a target="_blank" href="http://bloggingabout.net/blogs/wilson/archive/2009/09/04/restore-ms-sql-server-database-from-within-your-application-s.aspx">Restore MS SQL Server database from within your application(s)</a></p> <p>&nbsp;</p><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=482118" width="1" height="1">Kutegzhttp://bloggingabout.net/members/Kutegz/default.aspx/blogs/wilson/archive/2009/07/27/code-generation-generate-stored-procedure-automatically.aspx2009-07-27T12:46:00Z2009-07-27T12:46:00Z<p><strong>Introduction </strong></p> <p>A couple of times when developing a new application, you&rsquo;ll need to write some stored procedures for the basic CRUD (Create, Read, Update, and Delete) operations for each table in your database. Without at least these four, the software cannot be considered complete. </p> <p>I do consider that you use stored procedures for such database operations because they offer the following benefits among others</p> <ul> <li>Stored procedures encapsulate query code at the server, rather than inside your application. This allows you to make changes to queries without having to recompile your application.</li> <li>Stored procedures can be used for better defined application security. You can deny all rights on the base tables, grant execute only on the procs. This gives you a much smaller security footprint to manage.</li> <li>Stored procedures are compiled code. Though the latest versions of MSSQL does a better job of storing execution plans - so this isn&#39;t as big of an issue as it used to be, but still something to consider.</li> <li>Stored procedures eliminate SQL injection risk ONLY when used correctly. Make sure to use the parameters the right way inside the stored proc - stored procs that are just executing concatenated dynamic SQL inside them aren&#39;t doing anyone any good.</li> <li>Stored procedures allow you to define an application interface for the database, so that the system can be shared between multiple applications without having to duplicate logic in those applications.</li> </ul> <p>Additionally, you may need to script the entire database creation for packaging with the installer, such that the accompanying database of your application is created by the installer at the client machine</p> <p><br />Writing these Stored Procedures can be very repetitive and time consuming. Once you are familiar with how to write then, it can become a chore having to mindlessly type them all out.</p> <p><br />This post presents a simple way of building own code generator, you can build a tool that will automatically generate stored procedures and importantly in a way that you want them to be.</p> <p><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/0028.GenerateSP.jpg" alt="Generate Stored Procedure Automatically" /> </p> <p>Form that generates the stored procedures automatically</p> <p><strong>Key objects/methods in this code generator include:-</strong></p> <p><br /><strong><em>Properties</em>; </strong>This class helps to work with key table design properties that are enough for us to create table or manipulate its data</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;"><span style="color:blue;">Public</span> <span style="color:blue;">Class</span> Properties</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Fields &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_TableName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Name <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Caption <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_DataType <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Key <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_References <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Nullable <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_DefaultValue <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Properties &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> TableName() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_TableName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_TableName = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Name() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Name</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Name = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Caption() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Caption</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Caption = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> DataType() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_DataType</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_DataType = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Key() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Key</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Key = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> References() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_References</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_References = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Nullable() <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Nullable</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Nullable = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> DefaultValue() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_DefaultValue</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_DefaultValue = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Constructors &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">MyBase</span>.New()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>(<span style="color:blue;">ByVal</span> tableName <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">MyClass</span>.New()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.TableName = tableName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">End</span> <span style="color:blue;">Class</span></p> </div> <p><strong><em>PropertiesList</em></strong>; This method returns the table properties list that has been set through the datagridview</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Returns a list of key table properties that have been set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Function</span> PropertiesList() <span style="color:blue;">As</span> List(<span style="color:blue;">Of</span> Properties)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> name <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> caption <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> nullable <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> dataType <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> key <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> references <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> defaultValue <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> lProperties <span style="color:blue;">As</span> <span style="color:blue;">New</span> List(<span style="color:blue;">Of</span> Properties)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(<span style="color:blue;">Me</span>.txtTableName.Text.ToString().Trim()) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.txtTableName.Focus()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Must Enter Table Name!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._TableName = <span style="color:blue;">Me</span>.txtTableName.Text.ToString().Trim()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.dgvProperties.RowCount &lt;= 1 <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Must Register At least one property!&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> row <span style="color:blue;">As</span> DataGridViewRow <span style="color:blue;">In</span> <span style="color:blue;">Me</span>.dgvProperties.Rows</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> row.IsNewRow <span style="color:blue;">Then</span> <span style="color:blue;">Exit</span> <span style="color:blue;">For</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; name = <span style="color:blue;">CStr</span>(row.Cells.Item(<span style="color:blue;">Me</span>.colName.Name).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(name) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;All entries for name must be entered!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataType = <span style="color:blue;">CStr</span>(row.Cells.Item(<span style="color:blue;">Me</span>.colDataType.Name).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(dataType) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;All entries for data type must be entered!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; key = <span style="color:blue;">CStr</span>(row.Cells.Item(<span style="color:blue;">Me</span>.colKey.Name).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(key) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;All entries for key must be selected!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">ElseIf</span> key.ToUpper().Equals(<span style="color:#a31515;">&quot;Foreign&quot;</span>.ToUpper()) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; references = <span style="color:blue;">CStr</span>(row.Cells.Item(<span style="color:blue;">Me</span>.colReferences.Name).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(references) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;References must have a value for every key set as foreign!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> rowNo <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> <span style="color:blue;">Me</span>.dgvProperties.RowCount - 2</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> oProperties <span style="color:blue;">As</span> Properties = <span style="color:blue;">New</span> Properties(<span style="color:blue;">Me</span>._TableName)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; name = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvProperties.Item(<span style="color:blue;">Me</span>.colName.Name, rowNo).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; caption = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvProperties.Item(<span style="color:blue;">Me</span>.colCaption.Name, rowNo).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(caption) <span style="color:blue;">Then</span> caption = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; nullable = <span style="color:blue;">CBool</span>(<span style="color:blue;">Me</span>.dgvProperties.Item(<span style="color:blue;">Me</span>.colNullable.Name, rowNo).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataType = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvProperties.Item(<span style="color:blue;">Me</span>.colDataType.Name, rowNo).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; key = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvProperties.Item(<span style="color:blue;">Me</span>.colKey.Name, rowNo).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; references = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvProperties.Item(<span style="color:blue;">Me</span>.colReferences.Name, rowNo).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(references) <span style="color:blue;">Then</span> references = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; defaultValue = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvProperties.Item(<span style="color:blue;">Me</span>.colDefaultValue.Name, rowNo).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(defaultValue) <span style="color:blue;">Then</span> defaultValue = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> oProperties</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .TableName = <span style="color:blue;">Me</span>._TableName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Name = name</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Caption = caption</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Nullable = nullable</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .DataType = dataType</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Key = key</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .References = references</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .DefaultValue = defaultValue</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; lProperties.Add(oProperties)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> lProperties</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> ex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> </div> <p><strong><em>GenerateCreateTableSP</em></strong>; This method generates the create table stored procedure&nbsp;</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Generates the create table stored procedure</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> GenerateCreateTableSP()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;Header&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.Append(<span style="color:#a31515;">&quot;------------------------------------------------------------------------------------------------------&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.Append(<span style="color:#a31515;">&quot;-------------- Create Table: &quot;</span> &amp; <span style="color:blue;">Me</span>._TableName &amp; <span style="color:#a31515;">&quot; ------------------------------------------------------&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.Append(<span style="color:#a31515;">&quot;------------------------------------------------------------------------------------------------------&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.Append(<span style="color:#a31515;">&quot;if exists (select * from sysobjects where name = &#39;&quot;</span> &amp; <span style="color:blue;">Me</span>._TableName &amp; <span style="color:#a31515;">&quot;&#39;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.Append(<span style="color:#a31515;">&quot;drop table &quot;</span> &amp; <span style="color:blue;">Me</span>._TableName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.Append(<span style="color:#a31515;">&quot;go&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;Body&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> defineColumn <span style="color:blue;">As</span> <span style="color:blue;">New</span> StringBuilder(<span style="color:blue;">String</span>.Empty)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>._PropertiesList <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">OrElse</span> <span style="color:blue;">Me</span>._PropertiesList.Count &lt; 1 <span style="color:blue;">Then</span> <span style="color:blue;">Return</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> <span style="color:blue;">Me</span>._PropertiesList.Count - 1</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">Me</span>._PropertiesList.Item(pos)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; defineColumn.Append(.Name)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; defineColumn.Append(Chr(Keys.Space))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; defineColumn.Append(.DataType)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Not</span> .Nullable <span style="color:blue;">Then</span> defineColumn.Append(<span style="color:#a31515;">&quot; not null&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Not</span> <span style="color:blue;">String</span>.IsNullOrEmpty(.References) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; defineColumn.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; defineColumn.Append(<span style="color:#a31515;">&quot;constraint fk&quot;</span> &amp; .Name &amp; <span style="color:blue;">Me</span>._TableName &amp; <span style="color:#a31515;">&quot; references &quot;</span> &amp; .References &amp; <span style="color:#a31515;">&quot; (&quot;</span> &amp; .Name &amp; <span style="color:#a31515;">&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> .Name.ToUpper().Equals(<span style="color:blue;">Me</span>.LastKeyColumn.ToUpper()) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.CountPrimaryKeys &gt; 1 <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; defineColumn.Append(<span style="color:#a31515;">&quot;,&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; defineColumn.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; defineColumn.Append(GetPrimaryKeyConstraint())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; defineColumn.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; defineColumn.Append(<span style="color:#a31515;">&quot;constraint pk&quot;</span> &amp; .Name &amp; <span style="color:#a31515;">&quot; primary key&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">ElseIf</span> <span style="color:blue;">Not</span> <span style="color:blue;">String</span>.IsNullOrEmpty(.DefaultValue) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; defineColumn.Append(Chr(Keys.Space))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; defineColumn.Append(<span style="color:#a31515;">&quot;constraint df&quot;</span> &amp; .Name &amp; <span style="color:blue;">Me</span>._TableName &amp; <span style="color:#a31515;">&quot; default &quot;</span> &amp; .DefaultValue)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> pos &lt; <span style="color:blue;">Me</span>._PropertiesList.Count - 1 <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; defineColumn.Append(<span style="color:#a31515;">&quot;,&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; defineColumn.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.Append(<span style="color:#a31515;">&quot;create table &quot;</span> &amp; <span style="color:blue;">Me</span>._TableName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.Append(<span style="color:#a31515;">&quot;(&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.Append(defineColumn.ToString())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.Append(<span style="color:#a31515;">&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.Append(<span style="color:#a31515;">&quot;go&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._Scripts.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> ex</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> </div> <p>&nbsp;<strong>SaveXML</strong>; This method saves the set table properties as an XML file</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Saves table colums (Properties) as XML</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;fileName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;data&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> SaveXML(<span style="color:blue;">ByVal</span> fileName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> data <span style="color:blue;">As</span> List(<span style="color:blue;">Of</span> Properties))</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> encoding <span style="color:blue;">As</span> <span style="color:blue;">New</span> UnicodeEncoding()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> XMLWriter <span style="color:blue;">As</span> <span style="color:blue;">New</span> XmlTextWriter(fileName, encoding)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> XMLWriter</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Formatting = Formatting.Indented</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Indentation = 3</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteStartDocument()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteStartElement(<span style="color:blue;">Me</span>._TableName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> oProperties <span style="color:blue;">As</span> Properties <span style="color:blue;">In</span> data</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> XMLWriter</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteStartElement(<span style="color:#a31515;">&quot;Property&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;Name&quot;</span>, oProperties.Name)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;Caption&quot;</span>, oProperties.Caption)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;Nullable&quot;</span>, <span style="color:blue;">CStr</span>(oProperties.Nullable))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;DataType&quot;</span>, oProperties.DataType)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;Key&quot;</span>, oProperties.Key)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;References&quot;</span>, oProperties.References)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;DefaultValue&quot;</span>, oProperties.DefaultValue)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteEndElement()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; XMLWriter.WriteEndElement()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> XMLex <span style="color:blue;">As</span> XmlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> XMLex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> ex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; XMLWriter.Close()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> </div> <p><em><strong>OpenXML</strong></em>; This method opens the saved XML file table properties</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Opens table colums (Properties) from an XML file</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;fileName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> OpenXML(<span style="color:blue;">ByVal</span> fileName <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> xmlDatadoc <span style="color:blue;">As</span> <span style="color:blue;">New</span> XmlDataDocument()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> properties = <span style="color:blue;">New</span> DataTable(<span style="color:blue;">Me</span>._TableName)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.txtTableName.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvProperties.Rows.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; xmlDatadoc.DataSet.ReadXml(fileName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; properties = xmlDatadoc.DataSet.Tables(<span style="color:#a31515;">&quot;Property&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> properties <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">OrElse</span> properties.Rows.Count &lt; 1 <span style="color:blue;">Then</span> <span style="color:blue;">Return</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.txtTableName.Text = xmlDatadoc.FirstChild.Name</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> properties.Rows.Count - 1</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Ensure that you add a new row</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">Me</span>.dgvProperties</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Rows.Add()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Item(<span style="color:blue;">Me</span>.colName.Name, pos).Value = properties.Rows(pos).Item(<span style="color:#a31515;">&quot;Name&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Item(<span style="color:blue;">Me</span>.colCaption.Name, pos).Value = properties.Rows(pos).Item(<span style="color:#a31515;">&quot;Caption&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Item(<span style="color:blue;">Me</span>.colNullable.Name, pos).Value = properties.Rows(pos).Item(<span style="color:#a31515;">&quot;Nullable&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Item(<span style="color:blue;">Me</span>.colDataType.Name, pos).Value = properties.Rows(pos).Item(<span style="color:#a31515;">&quot;DataType&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Item(<span style="color:blue;">Me</span>.colKey.Name, pos).Value = properties.Rows(pos).Item(<span style="color:#a31515;">&quot;Key&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Item(<span style="color:blue;">Me</span>.colReferences.Name, pos).Value = properties.Rows(pos).Item(<span style="color:#a31515;">&quot;References&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Item(<span style="color:blue;">Me</span>.colDefaultValue.Name, pos).Value = properties.Rows(pos).Item(<span style="color:#a31515;">&quot;DefaultValue&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> XMLex <span style="color:blue;">As</span> XmlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> XMLex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> ex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> </div> <p>Find full source code in the attached file</p> <p><strong>Note</strong> </p> <ul> <li>It&rsquo;s important that you test all your stored procedures after generation</li> <li>Delete stored procedure is not included here, read my previous post on <a href="http://bloggingabout.net/blogs/wilson/archive/2009/05/15/create-one-delete-stored-procedure-that-can-be-used-to-delete-data-from-different-tables.aspx">create one delete stored procedure that can be used to delete data from different tables</a></li> </ul> <p>&nbsp;You can download the source code<em><strong> </strong></em><span id="ctl00_ctl00_OuterTaskRegion_TaskRegion_TaskRegion_CreatePost_ctl03_PostAttachment_ctl00_serverfilename"><em><strong>Generate_SP_Automatically.zip</strong></em> attached </span>below</p> <p><em>Wilson Kutegeka | Microsoft MVP - VB<br />Developer | Promoter | ClinicMaster Software<br />Cel: +256 772 609113 | Web: </em><a href="http://www.clinicmaster.net"><em>www.clinicmaster.net</em></a></p> <p>&nbsp;</p><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=481976" width="1" height="1">Kutegzhttp://bloggingabout.net/members/Kutegz/default.aspx/blogs/wilson/archive/2009/06/29/i-m-a-vb.aspx2009-06-29T13:11:00Z2009-06-29T13:11:00Z<p>Who is the &ldquo;typical VB.NET developer&rdquo;? Is there one? There are millions of VB.NET developers in the world, and they each have their own unique story. MS VB Team decided to talk to some of them to find out what kinds of applications they&rsquo;re building, what technologies they&rsquo;re using, and what their favorite features are. Watch the interviews and find out for yourself who today&#39;s VB.NET developers really are!</p> <p>check out: </p> <p><a href="http://msdn.microsoft.com/en-us/vbasic/dd776132.aspx">http://msdn.microsoft.com/en-us/vbasic/dd776132.aspx</a></p> <p>Don&#39;t forget Wilson Kutegeka</p> <p><a href="http://blogs.msdn.com/vbteam/pages/i-m-a-vb-wilson-kutegeka-vb-mvp.aspx">http://blogs.msdn.com/vbteam/pages/i-m-a-vb-wilson-kutegeka-vb-mvp.aspx</a></p> <p>&nbsp;</p><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=481870" width="1" height="1">Kutegzhttp://bloggingabout.net/members/Kutegz/default.aspx/blogs/wilson/archive/2009/06/29/custom-controls-smart-picture-box.aspx2009-06-29T12:07:00Z2009-06-29T12:07:00Z<p><strong>Introduction</strong> </p> <p><br /><em><strong>SmartPictureBox Control</strong></em>: A picture box control is one of the most popular controls to display and received an image from a user. However, most of the time you&rsquo;ll find yourself writing repetitive tasks such as </p> <ul> <li>Load an image from file</li> <li>Save an image from the control onto a file</li> <li>Handle edit operations such as Copy, Cut, Paste, Delete, Undo, etc.</li> </ul> <p>The <em><strong>SmartPictureBox</strong></em> control puts this together trough a context menu as shown below</p> <p><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/3835.SmartPictureBox.jpg" alt="SmartPictureBox Control with its context menu" /> </p> <p>&nbsp;<strong>SmartPictureBox</strong> Control with its context menu</p> <p>Members of interest of <em><strong>SmartPictureBox</strong></em> include the following:-</p> <p><strong>Properties</strong></p> <ul> <li><strong>ReadOnly</strong></li> </ul> <p>If set to true, the pop up menu of the control will be hidden. </p> <ul> <li><strong>ImageSizeLimit</strong></li> </ul> <p>This property sets or gets the Maximum image file size limit.</p> <p>&nbsp;</p> <p><strong>Other Feature(s) Include</strong></p> <ul> <li>Enabling and disabling the menu appropriately depending upon what&rsquo;s on the clipboard etc. </li> </ul> <p>You can download the source code attached below</p><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=481869" width="1" height="1">Kutegzhttp://bloggingabout.net/members/Kutegz/default.aspx/blogs/wilson/archive/2009/05/24/process-database-actions-such-as-save-update-and-delete-on-different-kinds-of-objects-or-object-lists-as-a-transaction-inside-your-data-access-layer-using-generics-and-a-couple-of-helper-objects.aspx2009-05-24T14:45:00Z2009-05-24T14:45:00Z<p>Assuming that you want to save into Payments and PaymentsDetails tables for a Client who has an account and ensuring that the balance in Accounts table is also updated.</p> <p>This example shows how you can save, update and delete different objects of different types (or object lists) as a transaction in your DAL. It&rsquo;s related to my previous post that you can find at. <a href="http://bloggingabout.net/blogs/wilson/archive/2009/04/22/using-list-of-t-generic-in-your-data-access-layer-dal-improved.aspx">Using List(Of T) Generic in your data access layer (DAL)- Improved</a>&nbsp;However, this could only process a list of the same type.</p> <p><strong>Explanation</strong></p> <ul> <li>Create an enumeration (say <em><strong>Action</strong></em>) that you&rsquo;ll use to specify an action to be performed on the list</li> <li>Create an interface (say <em><strong>ISQLData</strong></em>) for objects that are going to participate in a transaction to implement.</li> <li>Create a base class say <em><strong>DBConnect</strong></em> that implements <em><strong>ISQLData</strong></em> for other classes that will participate in the transaction to derive from.</li> <li>Create a helper class (say <em><strong>TransactionList</strong></em>) that will help to store object lists with action to be performed on the list</li> <li>Create a method (say <em><strong>DoTransactions</strong></em>) that processes the transactions</li> <li>Create objects such as <em><strong>Payments</strong></em>, <em><strong>PaymentDetails</strong></em> and <em><strong>Accounts</strong></em> that derives from <em><strong>DBConnect</strong></em> </li> <li>Define a list of the above objects and call <em><strong>DoTransactions</strong></em> to process them as a transaction.</li> </ul> <p><strong>Enumeration</strong></p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Enum</span> Action</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Save</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Update</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Delete</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Enum</span></p> </div> <p><strong>Interface</strong></p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Objects that will participate in transaction</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; must implement this interface</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Interface</span> ISQLData</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Property</span> ConString() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Function</span> SaveCommand() <span style="color:blue;">As</span> SqlCommand</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Function</span> UpdateCommand() <span style="color:blue;">As</span> SqlCommand</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Function</span> DeleteCommand() <span style="color:blue;">As</span> SqlCommand</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Interface</span></p> </div> <p><strong>Helper Objects and Methods</strong></p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Helper class that stores a list of objects</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; that implement ISQLData interface</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;typeparam name=&quot;T&quot;&gt;&lt;/typeparam&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Class</span> TransactionList(<span style="color:blue;">Of</span> T <span style="color:blue;">As</span> ISQLData)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Fields &quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_list <span style="color:blue;">As</span> List(<span style="color:blue;">Of</span> T)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Action <span style="color:blue;">As</span> Action</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Properties &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> List() <span style="color:blue;">As</span> List(<span style="color:blue;">Of</span> T)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_list</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> List(<span style="color:blue;">Of</span> T))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_list = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Action() <span style="color:blue;">As</span> Action</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Action</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> Action)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Action = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Constructors &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">MyBase</span>.New()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>(<span style="color:blue;">ByVal</span> _list <span style="color:blue;">As</span> List(<span style="color:blue;">Of</span> T), <span style="color:blue;">ByVal</span> _Action <span style="color:blue;">As</span> Action)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">MyClass</span>.New()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.List = _list</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Action = _Action</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Methods &quot;</span></p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Class</span></p> </div> <p>&nbsp;</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Base class that implements ISQLData </span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">MustInherit</span> <span style="color:blue;">Class</span> DBConnect : <span style="color:blue;">Implements</span> ISQLData</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Fields &quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Objects that will participate in transactions</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; will use the same connection string, lets define it here</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Shared</span> m_ConString <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Properties &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> ConString() <span style="color:blue;">As</span> <span style="color:blue;">String</span> <span style="color:blue;">Implements</span> ISQLData.ConString</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_ConString</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_ConString = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Methods &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> SaveCommand() <span style="color:blue;">As</span> SqlCommand <span style="color:blue;">Implements</span> ISQLData.SaveCommand</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Nothing</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> UpdateCommand() <span style="color:blue;">As</span> SqlCommand <span style="color:blue;">Implements</span> ISQLData.UpdateCommand</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Nothing</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> DeleteCommand() <span style="color:blue;">As</span> SqlCommand <span style="color:blue;">Implements</span> ISQLData.DeleteCommand</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Nothing</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Class</span></p> </div> <p>&nbsp;</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Performs all specified actions such as Save, </span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Update and Delete on a list of objects of type</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; TransactionList having a list of objects of type </span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; IDBConnect and returns number of records affected. </span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;typeparam name=&quot;T&quot;&gt;&lt;/typeparam&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_List&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Function</span> DoTransactions(<span style="color:blue;">Of</span> T <span style="color:blue;">As</span> ISQLData)(<span style="color:blue;">ByVal</span> _List <span style="color:blue;">As</span> List(<span style="color:blue;">Of</span> TransactionList(<span style="color:blue;">Of</span> T))) <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> records <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> conn <span style="color:blue;">As</span> <span style="color:blue;">New</span> SqlConnection()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> _List <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">OrElse</span> _List.Count &lt; 1 <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;List is not set or empty!&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;exit the loop as soon as an item with set connection string is found</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> items <span style="color:blue;">As</span> TransactionList(<span style="color:blue;">Of</span> T) <span style="color:blue;">In</span> _List</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> list <span style="color:blue;">As</span> T <span style="color:blue;">In</span> items.List</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> list <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conn.ConnectionString = list.ConString()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Exit</span> <span style="color:blue;">For</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Not</span> <span style="color:blue;">String</span>.IsNullOrEmpty(conn.ConnectionString) <span style="color:blue;">Then</span> <span style="color:blue;">Exit</span> <span style="color:blue;">For</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conn.Open()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> tran <span style="color:blue;">As</span> SqlTransaction = conn.BeginTransaction()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> items <span style="color:blue;">As</span> TransactionList(<span style="color:blue;">Of</span> T) <span style="color:blue;">In</span> _List</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Select</span> <span style="color:blue;">Case</span> items.Action</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Case</span> Action.Save</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> list <span style="color:blue;">As</span> T <span style="color:blue;">In</span> items.List</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> comm <span style="color:blue;">As</span> SqlCommand = list.SaveCommand()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; comm.Connection = conn</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; comm.Transaction = tran</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> comm.ExecuteNonQuery &gt; 0 <span style="color:blue;">Then</span> records += 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; tran.Rollback()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Error occured while saving, transaction canceled!&quot;</span> &amp; vbCrLf &amp; ex.Message)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Case</span> Action.Update</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> list <span style="color:blue;">As</span> T <span style="color:blue;">In</span> items.List</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> comm <span style="color:blue;">As</span> SqlCommand = list.UpdateCommand()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; comm.Connection = conn</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; comm.Transaction = tran</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> comm.ExecuteNonQuery &gt; 0 <span style="color:blue;">Then</span> records += 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; tran.Rollback()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Error occured while updating, transaction was canceled!&quot;</span> &amp; vbCrLf &amp; ex.Message)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Case</span> Action.Delete</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> list <span style="color:blue;">As</span> T <span style="color:blue;">In</span> items.List</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> comm <span style="color:blue;">As</span> SqlCommand = list.DeleteCommand()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; comm.Connection = conn</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; comm.Transaction = tran</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> comm.ExecuteNonQuery &gt; 0 <span style="color:blue;">Then</span> records += 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; tran.Rollback()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Error occured while deleting, transaction was canceled!&quot;</span> &amp; vbCrLf &amp; ex.Message)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Select</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; tran.Commit()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> records</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> SqlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conn.Close()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> </div> <p>&nbsp;</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Construct a connection string in a way that eliminates SQL injection</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Function</span> ConString() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> conBuilder <span style="color:blue;">As</span> <span style="color:blue;">New</span> SqlConnectionStringBuilder()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> serverName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:#a31515;">&quot;(local)&quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> databaseName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:#a31515;">&quot;Accounting&quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder(<span style="color:#a31515;">&quot;Server&quot;</span>) = serverName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder.InitialCatalog = databaseName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder(<span style="color:#a31515;">&quot;Integrated Security&quot;</span>) = <span style="color:#a31515;">&quot;SSPI&quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder.PersistSecurityInfo = <span style="color:blue;">False</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> conBuilder.ConnectionString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> </div> <p><strong>Participating Objects (Payments, PaymentDetails, Accounts)</strong></p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Class</span> Payments : <span style="color:blue;">Inherits</span> DBConnect</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Fields &quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_ReceiptNo <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_AccountNo <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_PayDate <span style="color:blue;">As</span> <span style="color:blue;">Date</span></p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Properties &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> ReceiptNo() <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_ReceiptNo</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_ReceiptNo = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> AccountNo() <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_AccountNo</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_AccountNo = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> PayDate() <span style="color:blue;">As</span> <span style="color:blue;">Date</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_PayDate</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">Date</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_PayDate = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Constructors &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">MyBase</span>.New()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>(<span style="color:blue;">ByVal</span> _ConString <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">MyClass</span>.New()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.ConString = _ConString</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Methods &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overrides</span> <span style="color:blue;">Function</span> SaveCommand() <span style="color:blue;">As</span> SqlCommand</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> comm <span style="color:blue;">As</span> SqlCommand = <span style="color:blue;">New</span> SqlCommand(<span style="color:#a31515;">&quot;uspInsertPayments&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; comm.CommandType = CommandType.StoredProcedure</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> comm.Parameters</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .AddWithValue(<span style="color:#a31515;">&quot;@ReceiptNo&quot;</span>, <span style="color:blue;">Me</span>.ReceiptNo)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .AddWithValue(<span style="color:#a31515;">&quot;@AccountNo&quot;</span>, <span style="color:blue;">Me</span>.AccountNo)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .AddWithValue(<span style="color:#a31515;">&quot;@PayDate&quot;</span>, <span style="color:blue;">Me</span>.PayDate)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> comm</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Class</span></p> </div> <p>&nbsp;</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Class</span> PaymentDetails : <span style="color:blue;">Inherits</span> DBConnect</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Fields &quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_ReceiptNo <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_ProductNo <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Price <span style="color:blue;">As</span> <span style="color:blue;">Decimal</span></p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Properties &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> ReceiptNo() <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_ReceiptNo</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_ReceiptNo = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> ProductNo() <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_ProductNo</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_ProductNo = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Price() <span style="color:blue;">As</span> <span style="color:blue;">Decimal</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Price</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">Decimal</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Price = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Constructors &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">MyBase</span>.New()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>(<span style="color:blue;">ByVal</span> _ConString <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">MyClass</span>.New()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.ConString = _ConString</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Methods &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overrides</span> <span style="color:blue;">Function</span> SaveCommand() <span style="color:blue;">As</span> SqlCommand</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> comm <span style="color:blue;">As</span> SqlCommand = <span style="color:blue;">New</span> SqlCommand(<span style="color:#a31515;">&quot;uspInsertPaymentDetails&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; comm.CommandType = CommandType.StoredProcedure</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> comm.Parameters</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .AddWithValue(<span style="color:#a31515;">&quot;@ReceiptNo&quot;</span>, <span style="color:blue;">Me</span>.ReceiptNo)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .AddWithValue(<span style="color:#a31515;">&quot;@ProductNo&quot;</span>, <span style="color:blue;">Me</span>.ProductNo)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .AddWithValue(<span style="color:#a31515;">&quot;@Price&quot;</span>, <span style="color:blue;">Me</span>.Price)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> comm</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Class</span></p> </div> <p>&nbsp;</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Class</span> Accounts : <span style="color:blue;">Inherits</span> DBConnect</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Fields &quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_TranID <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_AccountNo <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Amount <span style="color:blue;">As</span> <span style="color:blue;">Decimal</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Balance <span style="color:blue;">As</span> <span style="color:blue;">Decimal</span></p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Properties &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> TranID() <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_TranID</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_TranID = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> AccountNo() <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_AccountNo</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_AccountNo = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Amount() <span style="color:blue;">As</span> <span style="color:blue;">Decimal</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Amount</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">Decimal</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Amount = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Balance() <span style="color:blue;">As</span> <span style="color:blue;">Decimal</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Balance</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">Decimal</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Balance = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Constructors &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">MyBase</span>.New()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>(<span style="color:blue;">ByVal</span> _ConString <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">MyClass</span>.New()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.ConString = _ConString</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Methods &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overrides</span> <span style="color:blue;">Function</span> UpdateCommand() <span style="color:blue;">As</span> SqlCommand</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> comm <span style="color:blue;">As</span> SqlCommand = <span style="color:blue;">New</span> SqlCommand(<span style="color:#a31515;">&quot;uspUpdateAccounts&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; comm.CommandType = CommandType.StoredProcedure</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> comm.Parameters</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .AddWithValue(<span style="color:#a31515;">&quot;@TranID&quot;</span>, <span style="color:blue;">Me</span>.TranID)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .AddWithValue(<span style="color:#a31515;">&quot;@AccountNo&quot;</span>, <span style="color:blue;">Me</span>.AccountNo)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .AddWithValue(<span style="color:#a31515;">&quot;@Amount&quot;</span>, <span style="color:blue;">Me</span>.Amount)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .AddWithValue(<span style="color:#a31515;">&quot;@Balance&quot;</span>, <span style="color:blue;">Me</span>.Balance)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> comm</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Class</span></p> </div> <p><strong>User Interface Code</strong></p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> btnSave_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.EventArgs) <span style="color:blue;">Handles</span> btnSave.Click</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Cursor = Cursors.WaitCursor</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> transactions <span style="color:blue;">As</span> <span style="color:blue;">New</span> List(<span style="color:blue;">Of</span> TransactionList(<span style="color:blue;">Of</span> DBConnect))</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Make sure that atleast one object(Payments in this case) </span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; sets the connection string</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> oPayments <span style="color:blue;">As</span> <span style="color:blue;">New</span> Payments(ConString)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> lPayments <span style="color:blue;">As</span> <span style="color:blue;">New</span> List(<span style="color:blue;">Of</span> DBConnect)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> oPaymentDetails <span style="color:blue;">As</span> <span style="color:blue;">New</span> PaymentDetails()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> lPaymentDetails <span style="color:blue;">As</span> <span style="color:blue;">New</span> List(<span style="color:blue;">Of</span> DBConnect)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> oAccounts <span style="color:blue;">As</span> <span style="color:blue;">New</span> Accounts()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> lAccounts <span style="color:blue;">As</span> <span style="color:blue;">New</span> List(<span style="color:blue;">Of</span> DBConnect)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Set Payments list to save</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> lPayments</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> Payments() <span style="color:blue;">With</span> {.ReceiptNo = 101, .AccountNo = 1001, .PayDate = Today()})</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Set PaymentDetails list to save</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> lPaymentDetails</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> PaymentDetails() <span style="color:blue;">With</span> {.ReceiptNo = 101, .ProductNo = 1, .Price = 500})</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> PaymentDetails() <span style="color:blue;">With</span> {.ReceiptNo = 101, .ProductNo = 2, .Price = 550})</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> PaymentDetails() <span style="color:blue;">With</span> {.ReceiptNo = 101, .ProductNo = 3, .Price = 200})</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> PaymentDetails() <span style="color:blue;">With</span> {.ReceiptNo = 101, .ProductNo = 4, .Price = 180})</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Set Accounts list to update</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> lAccounts</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> Accounts() <span style="color:blue;">With</span> {.TranID = 2, .AccountNo = 1001, .Amount = 800, .Balance = 8900})</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Populate the transactions list</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> transactions</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> TransactionList(<span style="color:blue;">Of</span> DBConnect)(lPayments, Action.Save))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> TransactionList(<span style="color:blue;">Of</span> DBConnect)(lPaymentDetails, Action.Save))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> TransactionList(<span style="color:blue;">Of</span> DBConnect)(lAccounts, Action.Update))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Process transactions</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> records <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = Common.DoTransactions(transactions)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(<span style="color:blue;">String</span>.Format(<span style="color:#a31515;">&quot;{0} record(s) processed!&quot;</span>, records))</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(ex.Message)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Cursor = Cursors.Default</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> </div> <p><em>&nbsp;</em>Source Code (<span id="ctl00_ctl00_OuterTaskRegion_TaskRegion_TaskRegion_CreatePost_ctl03_PostAttachment_ctl00_serverfilename">DoTransactions.zip</span>) attached</p> <p><em>Wilson Kutegeka | Microsoft MVP - VB<br />Developer | Promoter | ClinicMaster Software<br />Cel: +256 772 609113 | Web: </em><a href="http://www.clinicmaster.net"><em>www.clinicmaster.net</em></a></p> <p>&nbsp;</p><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=481692" width="1" height="1">Kutegzhttp://bloggingabout.net/members/Kutegz/default.aspx/blogs/wilson/archive/2009/05/15/create-one-delete-stored-procedure-that-can-be-used-to-delete-data-from-different-tables.aspx2009-05-15T11:00:00Z2009-05-15T11:00:00Z<p>Stored procedures offer powerful security control over the database and importantly, provide an abstraction layer between the physical structure of the database and the logical way in which it&rsquo;s used. </p> <p>Thus, whenever possible, database access should be performed through the use of stored procedures. If this is the case, you&rsquo;ll quickly realize that delete stored procedure is identical for most delete operations with an exception of table name to delete from and the where clause.</p> <p>Below is an example of a delete stored procedure that you can use to delete data from different tables</p> <p><em>if exists (select * from sysobjects where name = &#39;uspDeleteObject&#39;)<br />&nbsp;drop proc uspDeleteObject<br />go</em></p> <p><em>create proc uspDeleteObject(<br />@ObjectName varchar(40) ,<br />@Where varchar(200) ,<br />@ErrorPart varchar(100) = null<br />)&nbsp; as</em></p> <p><em>exec(&#39;declare @Records int declare @errorMSG varchar(200)<br />select&nbsp; @Records&nbsp; =&nbsp; count(*) from &#39; + @ObjectName + &#39; where &#39; + @Where + &#39;<br />if @Records &lt;= 0 <br />begin<br />&nbsp;set @errorMSG = &#39;&#39;The record &#39; + @ErrorPart + &#39;, you are trying to delete does not exist in the registered &#39; + @ObjectName + &#39;.&#39;&#39;<br />&nbsp;raiserror(@errorMSG,16, 1)&nbsp;<br />&nbsp;return <br />end<br />delete from&nbsp; &#39; + @ObjectName + &#39; where &#39; + @Where + &#39;&#39;)</em></p> <p><em>go</em></p> <p><em>-- exec uspDeleteObject &#39;Logins&#39;, &#39;LoginID = &#39;&#39;Admin&#39;&#39;&#39;, &#39;Login ID: Admin&#39;</em></p> <p>You can now call such a stored procedure from your VB code as follows</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Use uspDeleteObject stored procedure to delete data</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; from different tables. This deletes from Clients table </span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; whose primary key is ClientID</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Function</span> Delete() <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> where <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:#a31515;">&quot;ClientID = &#39;&quot;</span> &amp; <span style="color:blue;">Me</span>.ClientID &amp; <span style="color:#a31515;">&quot;&#39;&quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> errorPart <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:#a31515;">&quot;Client ID: &quot;</span> &amp; <span style="color:blue;">Me</span>.ClientID</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Assuming Clients table had a composite key (ClientID and Version),</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; the where and errorPart would be as follows</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; where = &quot;ClientID = &#39;&quot; &amp; Me.ClientID &amp; &quot;&#39; and Version = &#39;&quot; &amp; Me.Version &amp; &quot;&#39;&quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; errorPart = &quot;ClientID: &quot; &amp; Me.ClientID &amp; &quot; and Version: &quot; &amp; Me.Version</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> conn <span style="color:blue;">As</span> <span style="color:blue;">New</span> SqlConnection()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conn.ConnectionString = ConString()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> comm <span style="color:blue;">As</span> SqlCommand = <span style="color:blue;">New</span> SqlCommand(<span style="color:#a31515;">&quot;uspDeleteObject&quot;</span>, conn)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; comm.CommandType = CommandType.StoredProcedure</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> comm.Parameters</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .AddWithValue(<span style="color:#a31515;">&quot;@ObjectName&quot;</span>, <span style="color:#a31515;">&quot;Clients&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .AddWithValue(<span style="color:#a31515;">&quot;@Where&quot;</span>, where)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .AddWithValue(<span style="color:#a31515;">&quot;@ErrorPart&quot;</span>, errorPart)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conn.Open()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> comm.ExecuteNonQuery() &gt; 0</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> SqlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conn.Close()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <br /></div> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"><br /> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; This construct&nbsp;of connection string&nbsp;eliminates SQL injection</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_ConString&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Function</span> ConString() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> conBuilder <span style="color:blue;">As</span> <span style="color:blue;">New</span> SqlConnectionStringBuilder()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> serverName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:#a31515;">&quot;(local)&quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> databaseName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:#a31515;">&quot;Accounting&quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;conBuilder.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;conBuilder(<span style="color:#a31515;">&quot;Server&quot;</span>) = serverName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;conBuilder.InitialCatalog = databaseName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;conBuilder(<span style="color:#a31515;">&quot;Integrated Security&quot;</span>) = <span style="color:#a31515;">&quot;SSPI&quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;conBuilder.PersistSecurityInfo = <span style="color:blue;">False</span></p> <p style="margin:0px;"><span style="color:blue;"></span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Return</span> conBuilder.ConnectionString&nbsp;<span style="color:blue;"></span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> </div> <p><strong>Note</strong>: <br />You can modify the delete function such that the <em><strong>errorPart</strong></em>, <strong><em>where</em></strong> clause and <em><strong>tableName</strong></em> are supplied as its parameters.</p> <p>&nbsp;</p><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=481643" width="1" height="1">Kutegzhttp://bloggingabout.net/members/Kutegz/default.aspx/blogs/wilson/archive/2009/05/12/operator-equal-to-overloading-example.aspx2009-05-12T09:58:00Z2009-05-12T09:58:00Z<p>Well I&rsquo;ve not encountered many scenarios where I really needed to overload an operator. However operator overloading can save you a lot of coding time like in the double data entered application example I worked on and applied the concept.</p> <p><strong>This is how it goes.</strong></p> <p>Two users (first and second entry user) will enter two entries of the same record, it doesn&rsquo;t matter who enters the first though. If both users enter correctly, the two entries will be merged into a final verified entry. Otherwise both entries will be saved and compared for error(s) before merging them.</p> <p>This case needed retrieving a previously saved entry by the first user, compare it with one about to be saved, and if they&rsquo;re the same, update the saved copy to verified otherwise display fields that are different for both&nbsp; users for editing.</p> <p>Operator equal to (=) Overloading was used as a short cut to this implementation, a simplified code sample is as follows</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;"><span style="color:blue;">Public</span> <span style="color:blue;">Class</span> Customer</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Fields &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_CustID <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_FirstName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_LastName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Address <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Telephone <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Email <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Properties &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> CustID() <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_CustID</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_CustID = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> FirstName() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_FirstName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_FirstName = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> LastName() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_LastName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_LastName = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Address() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Address</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Address = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Telephone() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Telephone</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Telephone = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Email() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Email</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Email = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Constructors &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">MyBase</span>.New()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Operator = Overloading &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Overloading&nbsp; = operator is as simple as creating a method. </span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; In fact, operator overloads are really just methods created with the Operator keyword</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Note that the comaprison excludes CustID field, which is the primary key </span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;lhs&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;rhs&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Shared</span> <span style="color:blue;">Operator</span> =(<span style="color:blue;">ByVal</span> lhs <span style="color:blue;">As</span> Customer, <span style="color:blue;">ByVal</span> rhs <span style="color:blue;">As</span> Customer) <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> lhs <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">OrElse</span> rhs <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Return</span> <span style="color:blue;">False</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> lhs.FirstName.ToUpper() &lt;&gt; rhs.FirstName.ToUpper() <span style="color:blue;">Then</span> <span style="color:blue;">Return</span> <span style="color:blue;">False</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> lhs.LastName.ToUpper() &lt;&gt; rhs.LastName.ToUpper() <span style="color:blue;">Then</span> <span style="color:blue;">Return</span> <span style="color:blue;">False</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> lhs.Address.ToUpper() &lt;&gt; rhs.Address.ToUpper() <span style="color:blue;">Then</span> <span style="color:blue;">Return</span> <span style="color:blue;">False</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> lhs.Telephone &lt;&gt; rhs.Telephone <span style="color:blue;">Then</span> <span style="color:blue;">Return</span> <span style="color:blue;">False</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> lhs.Email &lt;&gt; rhs.Email <span style="color:blue;">Then</span> <span style="color:blue;">Return</span> <span style="color:blue;">False</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Operator</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; When you define = operator, VB requires that you also </span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; define the operator for the inverse operation (not equal to) operator.</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Simply reverse the = operand and use the not equal to&nbsp; operator</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;lhs&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;rhs&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Shared</span> <span style="color:blue;">Operator</span> &lt;&gt;(<span style="color:blue;">ByVal</span> lhs <span style="color:blue;">As</span> Customer, <span style="color:blue;">ByVal</span> rhs <span style="color:blue;">As</span> Customer) <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Not</span> lhs = rhs</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Operator</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Methods &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">End</span> <span style="color:blue;">Class</span></p> </div> <p>You can now use equal to (=) as shown in the following code</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;"><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> btnSave_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.EventArgs) <span style="color:blue;">Handles</span> btnSave.Click</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;Get the previously saved customer 101, by user one. </span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;For simplicity, we will just assign this customer as follows</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> oCustByUser1 <span style="color:blue;">As</span> <span style="color:blue;">New</span> Customer() _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> {.CustID = 101, .FirstName = <span style="color:#a31515;">&quot;Wilson&quot;</span>, .LastName = <span style="color:#a31515;">&quot;Kutegeka&quot;</span>, _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Address = <span style="color:#a31515;">&quot;Kampala&quot;</span>, .Telephone = <span style="color:#a31515;">&quot;+256 772 609113&quot;</span>}</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;Pick the new customer record 101, by user two from your interface. </span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;For simplicity, we will assign this customer as well</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> oCustByUser2 <span style="color:blue;">As</span> <span style="color:blue;">New</span> Customer() _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> {.CustID = 101, .FirstName = <span style="color:#a31515;">&quot;Wilson&quot;</span>, .LastName = <span style="color:#a31515;">&quot;Kutegeka&quot;</span>, _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Address = <span style="color:#a31515;">&quot;Kampala-Uganda&quot;</span>, .Telephone = <span style="color:#a31515;">&quot;+256 772 609113&quot;</span>}</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;This will not verify because adress is not the same</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> oCustByUser1 = oCustByUser2 <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;Update the first entry to verified</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(<span style="color:#a31515;">&quot;Verified!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;Check to see which fields are not the same and report to user</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(<span style="color:#a31515;">&quot;Some Fields are not the same!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;"><span style="color:blue;"></span></p> </div><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=481631" width="1" height="1">Kutegzhttp://bloggingabout.net/members/Kutegz/default.aspx/blogs/wilson/archive/2009/05/08/how-to-prevent-a-form-with-topmost-property-set-to-true-from-being-on-top-of-windows-that-didn-t-create-it.aspx2009-05-08T16:03:00Z2009-05-08T16:03:00Z<p>When you set a form&rsquo;s TopMost property to true, that form will be on top of all windows on your desktop including those that are not part of you application</p> <p><br />The code below prevents that.</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;"><span style="color:blue;">Public</span> <span style="color:blue;">Class</span> frmTopMostSetTrue</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Fields &quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Const</span> WM_ACTIVATEAPP <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = &amp;H1C</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overrides</span> <span style="color:blue;">Sub</span> WndProc(<span style="color:blue;">ByRef</span> m <span style="color:blue;">As</span> Message)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Select</span> <span style="color:blue;">Case</span> m.Msg</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;The WM_ACTIVATEAPP message occurs when the application</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;becomes the active application or becomes inactive</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Case</span> WM_ACTIVATEAPP</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;The WParam value identifies what is occurring.</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> active <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span> = m.WParam.ToInt32 &lt;&gt; 0</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Not</span> active <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Hide() <span style="color:blue;">Else</span> <span style="color:blue;">Me</span>.Show()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Select</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;We call base.WndProc to make sure that the message is processed by Windows</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">MyBase</span>.WndProc(m)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">End</span> <span style="color:blue;">Class</span></p> </div><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=481619" width="1" height="1">Kutegzhttp://bloggingabout.net/members/Kutegz/default.aspx/blogs/wilson/archive/2009/05/07/export-to-excel-from-any-data-source.aspx2009-05-07T09:27:00Z2009-05-07T09:27:00Z<p><strong>Introduction</strong></p> <p>This code will allow you to Export data from different data sources such as DataTable, DataGridView, and ListView. to Excel. One key thing about it is that it will not convert strings with leading zero to numeric. i.e. 0747 will export as is and not as 747 as it&rsquo;s usually the case when you send data to excel.</p> <p>It will also not export data from columns of DataGridView that are not visible.</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Exports the supplied data to excel, displaying supplied caption for caption</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Allows mainly DataTable, DataGridView, and ListView</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;data&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;caption&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> ExportToExcel(<span style="color:blue;">ByVal</span> data <span style="color:blue;">As</span> <span style="color:blue;">Object</span>, <span style="color:blue;">ByVal</span> caption <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> excelApp <span style="color:blue;">As</span> <span style="color:blue;">New</span> Excel.Application</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> excelBook <span style="color:blue;">As</span> Excel.Workbook = excelApp.Workbooks.Add</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> excelWorksheet <span style="color:blue;">As</span> Excel.Worksheet = <span style="color:blue;">CType</span>(excelBook.Worksheets(1), Excel.Worksheet)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> excelRange <span style="color:blue;">As</span> Excel.Range</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> cellColumnIndex <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> data <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Return</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(caption) <span style="color:blue;">Then</span> caption = <span style="color:#a31515;">&quot;Data&quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Start Excel and get application object</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelApp.Visible = <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelApp.Caption = caption</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelWorksheet.Name = caption</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelApp.Cursor = Excel.XlMousePointer.xlWait</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;excelApp.WindowState = Excel.XlWindowState.xlMinimized</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">TypeOf</span> data <span style="color:blue;">Is</span> DataTable <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> _data <span style="color:blue;">As</span> DataTable = <span style="color:blue;">CType</span>(data, DataTable)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> _data.Columns.Count &lt; 1 <span style="color:blue;">Then</span> <span style="color:blue;">Return</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Set the table headers from the column names</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> columnIndex <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _data.Columns.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelWorksheet.Cells(1, (columnIndex + 1)) = _data.Columns(columnIndex).ColumnName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Assign the headers as bold</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelRange = excelWorksheet.Range(excelWorksheet.Cells(1, 1), excelWorksheet.Cells(1, _data.Columns.Count))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelRange.Font.Bold = <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> rowIndex <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _data.Rows.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> columnIndex <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _data.Columns.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> IsDBNull(_data.Rows(rowIndex).Item(columnIndex)) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelWorksheet.Cells(rowIndex + 2, columnIndex + 1) = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">ElseIf</span> _data.Columns(columnIndex).DataType.FullName.Equals(<span style="color:blue;">GetType</span>(<span style="color:blue;">String</span>).FullName) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelWorksheet.Cells(rowIndex + 2, cellColumnIndex) = <span style="color:#a31515;">&quot;&#39;&quot;</span> &amp; <span style="color:blue;">CStr</span>(_data.Rows(rowIndex).Item(columnIndex))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : excelWorksheet.Cells(rowIndex + 2, columnIndex + 1) = _data.Rows(rowIndex).Item(columnIndex)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Autofit the columns</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelRange.EntireColumn.AutoFit()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">ElseIf</span> <span style="color:blue;">TypeOf</span> data <span style="color:blue;">Is</span> DataGridView <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> _data <span style="color:blue;">As</span> DataGridView = <span style="color:blue;">CType</span>(data, DataGridView)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> _data.Columns.Count &lt; 1 <span style="color:blue;">Then</span> <span style="color:blue;">Return</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Set the table headers from the column names</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; cellColumnIndex = 0</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> columnIndex <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _data.Columns.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> _data.Columns(columnIndex).Visible = <span style="color:blue;">False</span> <span style="color:blue;">Then</span> <span style="color:blue;">Continue</span> <span style="color:blue;">For</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; cellColumnIndex += 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelWorksheet.Cells(1, (cellColumnIndex)) = _data.Columns(columnIndex).HeaderText</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; set the header row bold</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelRange = excelWorksheet.Range(excelWorksheet.Cells(1, 1), excelWorksheet.Cells(1, _data.Columns.Count))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelRange.Font.Bold = <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;Export the base data</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> rowIndex <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _data.Rows.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; cellColumnIndex = 0</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> columnIndex <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _data.Columns.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> _data.Columns(columnIndex).Visible = <span style="color:blue;">False</span> <span style="color:blue;">Then</span> <span style="color:blue;">Continue</span> <span style="color:blue;">For</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; cellColumnIndex += 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> IsDBNull(_data.Item(columnIndex, rowIndex).Value) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelWorksheet.Cells(rowIndex + 2, cellColumnIndex) = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">ElseIf</span> <span style="color:blue;">Not</span> _data.Columns(columnIndex).ValueType <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">AndAlso</span> _data.Columns(columnIndex).ValueType.FullName.Equals(<span style="color:blue;">GetType</span>(<span style="color:blue;">String</span>).FullName) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelWorksheet.Cells(rowIndex + 2, cellColumnIndex) = <span style="color:#a31515;">&quot;&#39;&quot;</span> &amp; <span style="color:blue;">CStr</span>(_data.Item(columnIndex, rowIndex).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : excelWorksheet.Cells(rowIndex + 2, cellColumnIndex) = _data.Item(columnIndex, rowIndex).Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Autofit the columns</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelRange.EntireColumn.AutoFit()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">ElseIf</span> <span style="color:blue;">TypeOf</span> data <span style="color:blue;">Is</span> ListView <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> _data <span style="color:blue;">As</span> ListView = <span style="color:blue;">CType</span>(data, ListView)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> _data.Columns.Count &lt; 1 <span style="color:blue;">Then</span> <span style="color:blue;">Return</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Set the table headers from the column names</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> columnIndex <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _data.Columns.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelWorksheet.Cells(1, (columnIndex + 1)) = _data.Columns(columnIndex).Text</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Assign the headers as bold</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelRange = excelWorksheet.Range(excelWorksheet.Cells(1, 1), excelWorksheet.Cells(1, _data.Columns.Count))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelRange.Font.Bold = <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> rowIndex <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _data.Items.Count - 1</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> IsDBNull(_data.Items(rowIndex).Text) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelWorksheet.Cells(rowIndex + 2, 1) = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : excelWorksheet.Cells(rowIndex + 2, 1) = <span style="color:#a31515;">&quot;&#39;&quot;</span> &amp; _data.Items(rowIndex).Text</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> columnIndex <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _data.Columns.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> IsDBNull(_data.Items(rowIndex).SubItems(columnIndex).Text) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelWorksheet.Cells(rowIndex + 2, columnIndex + 1) = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : excelWorksheet.Cells(rowIndex + 2, columnIndex + 1) = <span style="color:#a31515;">&quot;&#39;&quot;</span> &amp; _data.Items(rowIndex).SubItems(columnIndex).Text</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Autofit the columns</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelRange.EntireColumn.AutoFit()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">ElseIf</span> <span style="color:blue;">TypeOf</span> data <span style="color:blue;">Is</span> DataGrid <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> _data <span style="color:blue;">As</span> DataGrid = <span style="color:blue;">CType</span>(data, DataGrid)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; add other data sources</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Make sure Excel is visible and give the user control</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelApp.Visible = <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelApp.UserControl = <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> ex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; excelApp.Cursor = Excel.XlMousePointer.xlDefault</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> </div> <p><em>Wilson Kutegeka | Microsoft MVP - VB<br />Developer | Promoter | ClinicMaster Software<br />Cel: +256 772 609113 | Web: </em><a href="http://www.clinicmaster.net"><em>www.clinicmaster.net</em></a></p> <p><a href="http://blogs.msdn.com/mvpawardprogram/"><img src="http://l0swuw.blu.livefilestore.com/y1pt6Lco3iH8XdtvDUHFalx3j8n4691sRxtI0a413f-SSVPepnAJVlx9vFXYH8VOXAWJPwFuOeFpm9_nE8DMlGcUg/badge.jpg" alt="MVP Blog Badge." style="display:block;margin:0px auto;" /></a></p><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=481613" width="1" height="1">Kutegzhttp://bloggingabout.net/members/Kutegz/default.aspx/blogs/wilson/archive/2009/04/25/custom-controls-numericbox.aspx2009-04-25T14:28:00Z2009-04-25T14:28:00Z<p><strong>Introduction</strong> </p> <p><br /><em><strong>NumericBox Control</strong></em>: This is one of the many custom controls in VB from my tool box that I intend to share with you. It&rsquo;s actually a text box control that receives only numeric keys from the keyboard and only numeric data from the clipboard.</p> <p><br />Well there are many numeric controls that you can find out there, but this particular one has some special features such as controlling the numeric data type you enter, denying the pasting of data that can&rsquo;t convert to a specified data type and of course it&rsquo;s in VB. You can as well set visual styles, data formats, minimum and maximum values etc. </p> <p><br />Members of interest of <strong><em>NumericBox</em></strong> include the following:-</p> <p><strong>Properties</strong> </p> <ul> <li><em><strong>ControlCaption</strong></em> </li> </ul> <p>This property sets or gets the text message that will be part of error message if control has invalid entry. E.g. if this value is set as Age and <em><strong>MaxValue</strong></em> property of the control is set to 100 and <em><strong>MinValue</strong></em> property set to 0, if you enter a value such as 200, you get a message that reads &ldquo;Age must be between 0 and 100&rdquo; a typical value for <em><strong>ControlCaption</strong></em> include the label text besides this control. </p> <ul> <li><strong><em>DataFormat</em></strong> </li> </ul> <p>This property sets or gets the data format of controls&rsquo; value possible values include <em>General, Standard, Currency</em> and <em>Percent</em>. <em><strong>DataFormat</strong></em> is only applicable if <em><strong>DataType</strong></em> is set to <em>Single</em>, <em>Double</em> or <em>Decimal</em>.</p> <ul> <li><strong><em>DataType</em></strong> </li> </ul> <p>This property sets or gets the data type of controls&rsquo; value. Possible values include <em>Short (Int16), Integer (Int32), Long (Int64),</em> <em>Single</em>, <em>Double</em> and <em>Decimal</em>. The exact data type is returned by method <strong><em>Get[DataType</em></strong>].</p> <ul> <li><em><strong>DecimalPlaces</strong></em> </li> </ul> <p>This property sets or gets the number of decimal places for the entered value. This property is only applicable to data types such as <em>Single, Double, Decimal</em> and to specific Data formats.</p> <ul> <li><em><strong>MustEnterNumeric</strong></em> </li> </ul> <p>Some times the user may want to work with none numeric values such as percentages and/or null values. Thus <em><strong>MustEnterNumeric</strong></em> property allows you to work with such values.</p> <ul> <li><em><strong>Value</strong></em> </li> </ul> <p>This property Mimics the <em><strong>Text</strong></em> property of a textbox. However, it will not allow you to enter non-numeric.&nbsp; </p> <p><strong>Note</strong>&nbsp;<br />1. &nbsp;Text property is not visible in the properties window. <br />2. <em><strong>Value</strong></em> Property returns a string value. It&rsquo;s made so in order to support null values and others such as percentages otherwise, you must use <em><strong>Get[DataType]</strong></em> method to receive the exact data type </p> <ul> <li><strong><em>VisualStyle</em></strong> </li> </ul> <p>This property sets or gets the Visual style of the control possible values include None, Standard, OfficeXP, Office2003. <em><strong>VisualStyle</strong></em> is not yet at the level I&rsquo;d want it to be, I will be releasing an enhanced version later.</p> <ul> <li><strong><em>MinValue</em></strong> </li> </ul> <p>This property sets or gets the Minimum value allowed in control. Applicable only if <em><strong>MaxValue</strong></em> is set greater than <em><strong>MinValue</strong></em></p> <ul> <li><em><strong>MaxValue</strong></em> </li> </ul> <p>This property sets or gets the Maximum value allowed in control. Applicable only if <em><strong>MaxValue</strong></em> is set greater than <em><strong>MinValue</strong></em></p> <p><strong>Methods</strong>&nbsp;&nbsp;&nbsp;</p> <ul> <li><strong><em>GetValue</em></strong>()</li> </ul> <p>This method returns the controls&rsquo; value, and as an object data type, however this value will successfully convert to the data type specified in the <em><strong>DataType</strong></em> property and, if <em><strong>MustEnterNumeric</strong></em> is set to false, this method will return that value as string.</p> <p>The following methods will return the numeric control&rsquo;s value as datatype as is in the method&rsquo;s name</p> <ul> <li><strong><em>GetShort()</em></strong></li> <li><strong><em>GetInteger()</em></strong></li> <li><strong><em>GetLong()</em></strong></li> <li><strong><em>GetSingle()</em></strong></li> <li><strong><em>GetDouble()</em></strong></li> <li><strong><em>GetDecimal()</em></strong></li> </ul> <p><strong>Note</strong> <br />Remember to always wrap these methods in the try catch block. They throw exceptions if the entered data can&rsquo;t be converted to a specified data type. </p> <p><strong>Other Feature(s) Include</strong> </p> <ul> <li>Denial of pasting of value that can&rsquo;t convert to the specified data type </li> <li>Allowing data only from numeric keys<br />etc&nbsp;</li> </ul> <p>You can download the source code below <br />(Usage example in both VB and C# is included)</p><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=481572" width="1" height="1">Kutegzhttp://bloggingabout.net/members/Kutegz/default.aspx/blogs/wilson/archive/2009/04/23/visual-basic-quickstarts-and-how-to-topics-for-the-composite-application-guidance-for-wpf-and-silverlight.aspx2009-04-23T07:44:00Z2009-04-23T07:44:00Z<h4>Overview</h4> <div class="downloadInfo"><a name="Description"></a><span>The Composite Application Guidance for WPF and Silverlight is designed to help you more easily build enterprise-level Windows Presentation Foundation (WPF) and Silverlight client applications. It will help you design and build enterprise-level composite WPF client applications&mdash;composite applications use loosely coupled, independently evolvable pieces that work together in the overall application. <br /><br />This download includes QuickStarts, the Composite Application Library (only provided in C#), and documentation. This download is provided to help the Visual Basic developer use the Composite Application Library. The documentation includes: <br /></span></div> <div class="downloadInfo"> <ul> <li>Visual Basic Content for Composite Application Guidance for WPF and Silverlight - February 2009.chm: The QuickStarts, Hands-On Labs, and How-to Topics in Visual Basic. </li> <li>Composite Application Guidance for WPF and Silverlight - February 2009.chm: Complete documentation in C#. </li> <li>Composite Application Library Reference February 2009.chm: Library reference API.</li> </ul> </div> <p>follow the link below</p> <p><a href="http://www.microsoft.com/downloads/details.aspx?displaylang=en&amp;FamilyID=537da1cd-43e1-4799-88e7-a1da9166fb46">http://www.microsoft.com/downloads/details.aspx?displaylang=en&amp;FamilyID=537da1cd-43e1-4799-88e7-a1da9166fb46</a></p> <p>&nbsp;</p><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=481556" width="1" height="1">Kutegzhttp://bloggingabout.net/members/Kutegz/default.aspx/blogs/wilson/archive/2009/04/22/using-list-of-t-generic-in-your-data-access-layer-dal-improved.aspx2009-04-22T08:07:00Z2009-04-22T08:07:00Z<p>Using List(of T) Generic in your data layer</p> <p>List(of T) is basically a better ArrayList. It is optimized for speed, size, and power. Use it for majority of internal implementations whenever you need to store items in a container.</p> <p>This example shows you how you can use a List(of T) generic in Visual Basic&nbsp;to Save data into the database wrapped in a transaction in your Data access Layer</p> <p><strong>Explanation</strong></p> <ul> <li>Create a base object say DBConnect that other object to save, update, delete dataetc. to the database will derive from</li> <li>Create a SaveAll method that allow an object of type DBConnect to save data in an optional transactional manner</li> <li>&nbsp;Create an object such as Clients that derives from DBConnect</li> <li>&nbsp;Define a list of Clients objects and call SaveAll to process them as a transaction</li> </ul> <p>The code behind the form is shown below</p> <p><span style="color:blue;">Imports</span> System.Data</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;"><span style="color:blue;">Imports</span> System.Data.SqlClient</p> <p style="margin:0px;"><span style="color:blue;">Imports</span> System.Collections.Generic</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">Public</span> <span style="color:blue;">Class</span> frmClients</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Fields &quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> clients <span style="color:blue;">As</span> <span style="color:blue;">New</span> DataTable()</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> frmClients_Load(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.EventArgs) <span style="color:blue;">Handles</span> <span style="color:blue;">MyBase</span>.Load</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> clients.Columns</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:#a31515;">&quot;ClientID&quot;</span>, <span style="color:blue;">GetType</span>(<span style="color:blue;">String</span>))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:#a31515;">&quot;FirstName&quot;</span>, <span style="color:blue;">GetType</span>(<span style="color:blue;">String</span>))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:#a31515;">&quot;LastName&quot;</span>, <span style="color:blue;">GetType</span>(<span style="color:blue;">String</span>))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> clients.Rows</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> <span style="color:blue;">Object</span>() {<span style="color:#a31515;">&quot;001&quot;</span>, <span style="color:#a31515;">&quot;Wilson&quot;</span>, <span style="color:#a31515;">&quot;Kutegeka&quot;</span>})</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> <span style="color:blue;">Object</span>() {<span style="color:#a31515;">&quot;002&quot;</span>, <span style="color:#a31515;">&quot;John&quot;</span>, <span style="color:#a31515;">&quot;Magezi&quot;</span>})</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> <span style="color:blue;">Object</span>() {<span style="color:#a31515;">&quot;003&quot;</span>, <span style="color:#a31515;">&quot;Peter&quot;</span>, <span style="color:#a31515;">&quot;Okello&quot;</span>})</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> <span style="color:blue;">Object</span>() {<span style="color:#a31515;">&quot;004&quot;</span>, <span style="color:#a31515;">&quot;Jane&quot;</span>, <span style="color:#a31515;">&quot;Miranda&quot;</span>})</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvClients.DataSource = clients</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> btnSaveAll_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.EventArgs) <span style="color:blue;">Handles</span> btnSaveAll.Click</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> records <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> oClients <span style="color:blue;">As</span> <span style="color:blue;">New</span> Clients()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> lClients <span style="color:blue;">As</span> <span style="color:blue;">New</span> List(<span style="color:blue;">Of</span> Clients)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Cursor = Cursors.WaitCursor</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> clients.Rows.Count - 1</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oClients = <span style="color:blue;">New</span> Clients()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> clients.Rows(pos)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> IsDBNull(.Item(<span style="color:#a31515;">&quot;ClientID&quot;</span>)) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oClients.ClientID = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : oClients.ClientID = <span style="color:blue;">CStr</span>(.Item(<span style="color:#a31515;">&quot;ClientID&quot;</span>))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> IsDBNull(.Item(<span style="color:#a31515;">&quot;FirstName&quot;</span>)) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oClients.FirstName = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : oClients.FirstName = <span style="color:blue;">CStr</span>(.Item(<span style="color:#a31515;">&quot;FirstName&quot;</span>))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> IsDBNull(.Item(<span style="color:#a31515;">&quot;LastName&quot;</span>)) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oClients.LastName = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : oClients.LastName = <span style="color:blue;">CStr</span>(.Item(<span style="color:#a31515;">&quot;LastName&quot;</span>))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; lClients.Add(oClients)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; records = SaveAll(lClients, <span style="color:blue;">True</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(records &amp; <span style="color:#a31515;">&quot; records inserted!&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(ex.Message)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Cursor = Cursors.Default</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> btnClose_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.EventArgs) <span style="color:blue;">Handles</span> btnClose.Click</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Close()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">End</span> <span style="color:blue;">Class</span></p> </div> <p>The code below wil be in your Data Access Layer</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Inside your DAL &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">Public</span> <span style="color:blue;">MustInherit</span> <span style="color:blue;">Class</span> DBConnect</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Fields &quot;</span></p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Properties &quot;</span></p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Methods &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> SaveCommand() <span style="color:blue;">As</span> SqlCommand</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Nothing</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> UpdateCommand() <span style="color:blue;">As</span> SqlCommand</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Nothing</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> DeleteCommand() <span style="color:blue;">As</span> SqlCommand</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Nothing</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">End</span> <span style="color:blue;">Class</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">Public</span> <span style="color:blue;">Class</span> Clients : <span style="color:blue;">Inherits</span> DBConnect</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Fields &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_ClientID <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_FirstName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_LastName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Properties &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> ClientID() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_ClientID</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_ClientID = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> FirstName() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_FirstName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_FirstName = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> LastName() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_LastName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_LastName = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Methods &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overrides</span> <span style="color:blue;">Function</span> SaveCommand() <span style="color:blue;">As</span> SqlCommand</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> comm <span style="color:blue;">As</span> SqlCommand = <span style="color:blue;">New</span> SqlCommand(<span style="color:#a31515;">&quot;uspInsertClients&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; comm.CommandType = CommandType.StoredProcedure</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> comm.Parameters</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .AddWithValue(<span style="color:#a31515;">&quot;@ClientID&quot;</span>, <span style="color:blue;">Me</span>.ClientID)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .AddWithValue(<span style="color:#a31515;">&quot;@FirstName&quot;</span>, <span style="color:blue;">Me</span>.FirstName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .AddWithValue(<span style="color:#a31515;">&quot;@LastName&quot;</span>, <span style="color:blue;">Me</span>.LastName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> comm</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">End</span> <span style="color:blue;">Class</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">Public</span> <span style="color:blue;">Module</span> Program</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Construct a connection string in a way that eliminates SQL injection</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_ConString&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Function</span> ConString(<span style="color:blue;">ByVal</span> _ConString <span style="color:blue;">As</span> <span style="color:blue;">String</span>) <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> conBuilder <span style="color:blue;">As</span> <span style="color:blue;">New</span> SqlConnectionStringBuilder()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> serverName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:#a31515;">&quot;(local)&quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> databaseName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:#a31515;">&quot;Accounting&quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(_ConString) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder(<span style="color:#a31515;">&quot;Server&quot;</span>) = serverName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder.InitialCatalog = databaseName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder(<span style="color:#a31515;">&quot;Integrated Security&quot;</span>) = <span style="color:#a31515;">&quot;SSPI&quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder.PersistSecurityInfo = <span style="color:blue;">False</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> conBuilder.ConnectionString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : <span style="color:blue;">Return</span> _ConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Construct a connection string in a way that eliminates SQL injection</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; and uses the default connection string</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Function</span> ConString() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> ConString(<span style="color:blue;">String</span>.Empty)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Saves all objects of type DBConnect in the supplied list and returns number of records saved. </span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; If IsTransaction is true, all data will save or all will fail. Otherwise only data with no error(s) will save.</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;typeparam name=&quot;T&quot;&gt;&lt;/typeparam&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_List&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;IsTransaction&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Function</span> SaveAll(<span style="color:blue;">Of</span> T <span style="color:blue;">As</span> DBConnect)(<span style="color:blue;">ByVal</span> _List <span style="color:blue;">As</span> List(<span style="color:blue;">Of</span> T), <span style="color:blue;">ByVal</span> IsTransaction <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span>) <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> records <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> conn <span style="color:blue;">As</span> <span style="color:blue;">New</span> SqlConnection()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> _List <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">OrElse</span> _List.Count &lt; 1 <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;List is not set or it&rsquo;s empty!&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conn.ConnectionString = ConString()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conn.Open()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> IsTransaction = <span style="color:blue;">True</span> <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> tran <span style="color:blue;">As</span> SqlTransaction = conn.BeginTransaction()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> list <span style="color:blue;">As</span> T <span style="color:blue;">In</span> _List</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> comm <span style="color:blue;">As</span> SqlCommand = list.SaveCommand()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; comm.Connection = conn</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; comm.Transaction = tran</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> comm.ExecuteNonQuery &gt; 0 <span style="color:blue;">Then</span> records += 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; tran.Rollback()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Error occured while saving, transaction canceled!&quot;</span> &amp; vbCrLf &amp; ex.Message)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; tran.Commit()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">ElseIf</span> IsTransaction = <span style="color:blue;">False</span> <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> list <span style="color:blue;">As</span> T <span style="color:blue;">In</span> _List</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> comm <span style="color:blue;">As</span> SqlCommand = list.SaveCommand()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; comm.Connection = conn</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> comm.ExecuteNonQuery &gt; 0 <span style="color:blue;">Then</span> records += 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(ex.Message)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> records</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> SqlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conn.Close()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Saves all objects of type DBConnect in the supplied list and returns number of records saved. </span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Only data with no error(s) will save.</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;typeparam name=&quot;T&quot;&gt;&lt;/typeparam&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_List&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Function</span> SaveAll(<span style="color:blue;">Of</span> T <span style="color:blue;">As</span> DBConnect)(<span style="color:blue;">ByVal</span> _List <span style="color:blue;">As</span> List(<span style="color:blue;">Of</span> T)) <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> SaveAll(_List, <span style="color:blue;">False</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Function used to fade out a closing form using a user defined number of steps</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_Form&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;NumberOfSteps&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> FadeClosingForm(<span style="color:blue;">ByVal</span> _form <span style="color:blue;">As</span> Form, <span style="color:blue;">ByVal</span> numberOfSteps <span style="color:blue;">As</span> <span style="color:blue;">Byte</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> stepValue <span style="color:blue;">As</span> <span style="color:blue;">Double</span> = Convert.ToDouble(100.0F / numberOfSteps)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> dOpacity <span style="color:blue;">As</span> <span style="color:blue;">Double</span> = 100.0F</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> b <span style="color:blue;">As</span> <span style="color:blue;">Byte</span> = 0 <span style="color:blue;">To</span> numberOfSteps</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; _form.Opacity = dOpacity / 100</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; _form.Refresh()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dOpacity -= stepValue</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">End</span> <span style="color:blue;">Module</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> </div> <p>Hopefully it helps</p> <p><strong>Note</strong>: Source code attached (<span id="ctl00_ctl00_OuterTaskRegion_TaskRegion_TaskRegion_CreatePost_ctl03_PostAttachment_ctl00_serverfilename">WindowsApplication1.zip</span>)</p> <p>&nbsp;</p><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=481551" width="1" height="1">Kutegzhttp://bloggingabout.net/members/Kutegz/default.aspx