Sub Submit_Click
ProgressDialogShow2("Uploading to Server...", False)
passtxt.Text = a.Query("SELECT id FROM fs5 where fsid ="& Login.Text &"")
If passtxt.Text = pass.Text Then
a.Query ("UPDATE fs SET [ALTPHONE] = '"& latext.Text &"', [ALTMOBILE] = '" & lotext.Text & "', [studate] = getdate() where id = '" & Login.Text & "' ")
RemoveView
Activity.LoadLayout("Master")
Else
Msgbox ("User Name Or Pass Word Not Correct", "Login Failed")
End If
ProgressDialogHide
End Sub
In the above mentioned code progressdialog is not showing - Please help me - Thanks in advance
ProgressDialogShow2("Uploading to Server...", False)
passtxt.Text = a.Query("SELECT id FROM fs5 where fsid ="& Login.Text &"")
If passtxt.Text = pass.Text Then
a.Query ("UPDATE fs SET [ALTPHONE] = '"& latext.Text &"', [ALTMOBILE] = '" & lotext.Text & "', [studate] = getdate() where id = '" & Login.Text & "' ")
RemoveView
Activity.LoadLayout("Master")
Else
Msgbox ("User Name Or Pass Word Not Correct", "Login Failed")
End If
ProgressDialogHide
End Sub
In the above mentioned code progressdialog is not showing - Please help me - Thanks in advance