Dim objWait As New frmWaitupdate Dim strReply As String Dim ischange As Boolean Dim obj1 As New MyBO.UpdateSchemaBO() ischange = obj1.CheckSchemaChanges(Application.ProductVersion.ToString()) If ischange = True Then lblMsg.Text = "Schema changes found please wait Please wait." obj1.AddVersionTable(Application.ProductVersion.ToString()) Me.Visible = True strReply = obj1.UpdateSchema(Me) If strReply <> "" Then MessageBox.Show(strReply, "abc") Else MessageBox.Show("Schema updated successfully", "abc") End If 'objWait.Hide() ElseIf ischange = False Then MessageBox.Show("No schema changes found", "abc") End If End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)