Validation

hi,

I am Validating through VB.net,but the validation hasn't taking the condition which comes out of the condition and not satisfying.The textbox(txtfilepath.text) which i have took is being enabled false.How to validate this.Please let me know about this?
This is how i am doing this validation and also going to modify the values.

Private Sub Modify()

If txtorderno.Text = "" Then

MsgBox("Enter The Order No")

txtorderno.Focus()

ElseIf txtcn.Text = "" Then

MsgBox("Enter The Customer Name")

txtcn.Focus()

ElseIf txtmobileno.Text = "" Then

MsgBox("Enter The Mobile No")

txtmobileno.Focus()

ElseIf dtp.Value > Date.Today Then

MessageBox.Show("Select The Date Of Birth!", "", MessageBoxButtons.OK, MessageBoxIcon.Error)

dtp.Focus()

ElseIf cbozodsign.Text = "---Select Zodaic Sign---" Then

MsgBox("Select The Zodaic Sign")

cbozodsign.Focus()

ElseIf txtmobileno.Text = "" Then

MsgBox("Enter The Mobile No")

txtmobileno.Focus()

ElseIf txtdescription.Text = "" Then

MsgBox("Enter The Description")

txtdescription.Focus()

ElseIf txttotal.Text = "" Then

MsgBox("Enter The Total Amount")

txttotal.Focus()

ElseIf txtadvpaid.Text = "" Then

MsgBox("Enter The Advance Paid Amount")

txtadvpaid.Focus()

ElseIf dtpodate.Value < Date.Today Then

MsgBox("Select Order Date")

dtpodate.Focus()

ElseIf dtpocdate.Value < Date.Today Then

MsgBox("Select Order Completion Date")

dtpocdate.Focus()

ElseIf dtpdelidate.Value < Date.Today Then

MsgBox("Select Order Delivery Date")

dtpdelidate.Focus()

ElseIf dtpactualdelidate.Value < Date.Today Then

MsgBox("Select Actual Order Delivery Date")

dtpactualdelidate.Focus()

ElseIf RadioButton1.Checked = False And RadioButton2.Checked = False Then

MessageBox.Show("Select The Delivery Status")

ElseIf txtfilepath.Text = Not String.Empty Then

MsgBox("Select The File Path")

Button1.Focus()

Else

If RadioButton1.Checked = True Then

r1 = "Y"

ElseIf RadioButton2.Checked = True Then

r1 = "N"

End If

conn = New SqlConnection(cnString)

conn.Open()

Dim res = MessageBox.Show("Would You Like To Update Gift Details Record ?", "Update", MessageBoxButtons.YesNo)

If res = Windows.Forms.DialogResult.Yes Then

Dim cmd As SqlCommand = conn.CreateCommand

cmd.CommandText = "tbl_giftdetails_spupdate"

cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.AddWithValue("@slno", Label36.Text.Trim)

cmd.Parameters.AddWithValue("@orderno", txtorderno.Text.Trim)

cmd.Parameters.AddWithValue("@nameofcust", txtcn.Text.Trim)

cmd.Parameters.AddWithValue("@mobileno", txtmobileno.Text.Trim)

cmd.Parameters.AddWithValue("@Address", txtadd.Text.Trim)

cmd.Parameters.AddWithValue("@dob", dtp.Value.ToString("dd-MM-yyyy"))

cmd.Parameters.AddWithValue("@ZodaicSign", cbozodsign.Text.Trim)

cmd.Parameters.AddWithValue("@orderdescription", txtdescription.Text.Trim)

cmd.Parameters.AddWithValue("@ptotal", txttotal.Text.Trim)

cmd.Parameters.AddWithValue("@advpaid", txtadvpaid.Text.Trim)

cmd.Parameters.AddWithValue("@balanceamt", txtbalamt.Text.Trim)

cmd.Parameters.AddWithValue("@orderdate", dtpodate.Value.ToString("dd-MM-yyyy"))

cmd.Parameters.AddWithValue("@ordercompetiondate", dtpocdate.Value.ToString("dd-MM-yyyy"))

cmd.Parameters.AddWithValue("@deliverydate", dtpdelidate.Value.ToString("dd-MM-yyyy"))

cmd.Parameters.AddWithValue("@actdeliverydate", dtpactualdelidate.Value.ToString("dd-MM-yyyy"))

cmd.Parameters.AddWithValue("@deliveryrystu", r1)

cmd.Parameters.AddWithValue("@filepath", txtfilepath.Text.Trim)

cmd.Connection = conn

cmd.ExecuteNonQuery()

Dim f As New FileInfo(txtfilepath.Text)

Dim filename As String

filename = f.Name

'File.Copy(sSource, path.Combine(sFolder, path.GetFileName(sSource)), True)

If System.IO.Directory.Exists(Application.StartupPath & "\Files") Then

'System.IO.Directory.CreateDirectory(Application.StartupPath & "\Files\" & txtorderno.Text)

System.IO.File.Copy(txtfilepath.Text, Application.StartupPath & "\Files\" & txtorderno.Text & "\" & f.Name)

End If

MsgBox("Record Updated successfully")

conn.Close()

clear()

display()

'System.IO.Directory.CreateDirectory("path")

'System.IO.File.Copy(txtorderno.Text, Application.StartupPath & "\path\" & txtfilepath.Text & "")

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim fbrs As New OpenFileDialog

With fbrs

.CheckFileExists = True

.ShowReadOnly = False

.Filter = "All Files|*.*"

.FilterIndex = 2

Try

If .ShowDialog = DialogResult.OK Then

txtfilepath.Text = fbrs.FileName

End If

Catch ex As Exception

End Try

End With

3 Replies

Know the answer? Post it — somebody with the same question will find it here.

Jignesh Trivedi12y ago
hi,

I think we can perform the validation on readonly textbox. so make your txtfilepath text box readonly instead of disable.
0
Sathya Narayan12y ago
hi,

I am Validating through VB.net,but the validation hasn't taking the condition which comes out of the condition and not satisfying.The textbox(txtfilepath.text) which i have took is being enabled false.How to validate this.Please let me know about this?
This is how i am doing this validation and also going to modify the values.

Private Sub Modify()
If txtorderno.Text = "" Then
MsgBox("Enter The Order No")
txtorderno.Focus()
ElseIf txtcn.Text = "" Then
MsgBox("Enter The Customer Name")
txtcn.Focus()
ElseIf txtmobileno.Text = "" Then
MsgBox("Enter The Mobile No")
txtmobileno.Focus()
ElseIf dtp.Value > Date.Today Then
MessageBox.Show("Select The Date Of Birth!", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
dtp.Focus()
ElseIf cbozodsign.Text = "---Select Zodaic Sign---" Then
MsgBox("Select The Zodaic Sign")
cbozodsign.Focus()
ElseIf txtmobileno.Text = "" Then
MsgBox("Enter The Mobile No")
txtmobileno.Focus()
ElseIf txtdescription.Text = "" Then
MsgBox("Enter The Description")
txtdescription.Focus()

ElseIf txttotal.Text = "" Then
MsgBox("Enter The Total Amount")
txttotal.Focus()
ElseIf txtadvpaid.Text = "" Then
MsgBox("Enter The Advance Paid Amount")
txtadvpaid.Focus()
ElseIf dtpodate.Value < Date.Today Then
MsgBox("Select Order Date")
dtpodate.Focus()
ElseIf dtpocdate.Value < Date.Today Then
MsgBox("Select Order Completion Date")
dtpocdate.Focus()
ElseIf dtpdelidate.Value < Date.Today Then
MsgBox("Select Order Delivery Date")
dtpdelidate.Focus()
ElseIf dtpactualdelidate.Value < Date.Today Then
MsgBox("Select Actual Order Delivery Date")
dtpactualdelidate.Focus()
ElseIf RadioButton1.Checked = False And RadioButton2.Checked = False Then
MessageBox.Show("Select The Delivery Status")
ElseIf txtfilepath.Text = Not String.Empty Then
MsgBox("Select The File Path")
Button1.Focus()
Else
If RadioButton1.Checked = True Then
r1 = "Y"
ElseIf RadioButton2.Checked = True Then
r1 = "N"
End If
conn = New SqlConnection(cnString)
conn.Open()

Dim res = MessageBox.Show("Would You Like To Update Gift Details Record ?", "Update", MessageBoxButtons.YesNo)
If res = Windows.Forms.DialogResult.Yes Then
Dim cmd As SqlCommand = conn.CreateCommand
cmd.CommandText = "tbl_giftdetails_spupdate"
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@slno", Label36.Text.Trim)
cmd.Parameters.AddWithValue("@orderno", txtorderno.Text.Trim)
cmd.Parameters.AddWithValue("@nameofcust", txtcn.Text.Trim)
cmd.Parameters.AddWithValue("@mobileno", txtmobileno.Text.Trim)
cmd.Parameters.AddWithValue("@Address", txtadd.Text.Trim)
cmd.Parameters.AddWithValue("@dob", dtp.Value.ToString("dd-MM-yyyy"))
cmd.Parameters.AddWithValue("@ZodaicSign", cbozodsign.Text.Trim)
cmd.Parameters.AddWithValue("@orderdescription", txtdescription.Text.Trim)
cmd.Parameters.AddWithValue("@ptotal", txttotal.Text.Trim)
cmd.Parameters.AddWithValue("@advpaid", txtadvpaid.Text.Trim)
cmd.Parameters.AddWithValue("@balanceamt", txtbalamt.Text.Trim)
cmd.Parameters.AddWithValue("@orderdate", dtpodate.Value.ToString("dd-MM-yyyy"))
cmd.Parameters.AddWithValue("@ordercompetiondate", dtpocdate.Value.ToString("dd-MM-yyyy"))
cmd.Parameters.AddWithValue("@deliverydate", dtpdelidate.Value.ToString("dd-MM-yyyy"))
cmd.Parameters.AddWithValue("@actdeliverydate", dtpactualdelidate.Value.ToString("dd-MM-yyyy"))
cmd.Parameters.AddWithValue("@deliveryrystu", r1)
cmd.Parameters.AddWithValue("@filepath", txtfilepath.Text.Trim)
cmd.Connection = conn
cmd.ExecuteNonQuery()
Dim f As New FileInfo(txtfilepath.Text)
Dim filename As String
filename = f.Name
'File.Copy(sSource, path.Combine(sFolder, path.GetFileName(sSource)), True)
If System.IO.Directory.Exists(Application.StartupPath & "\Files") Then
'System.IO.Directory.CreateDirectory(Application.StartupPath & "\Files\" & txtorderno.Text)
System.IO.File.Copy(txtfilepath.Text, Application.StartupPath & "\Files\" & txtorderno.Text & "\" & f.Name)
End If
MsgBox("Record Updated successfully")
conn.Close()
clear()
display()
'System.IO.Directory.CreateDirectory("path")
'System.IO.File.Copy(txtorderno.Text, Application.StartupPath & "\path\" & txtfilepath.Text & "")
End If
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fbrs As New OpenFileDialog
With fbrs
.CheckFileExists = True
.ShowReadOnly = False
.Filter = "All Files|*.*"
.FilterIndex = 2
Try
If .ShowDialog = DialogResult.OK Then
txtfilepath.Text = fbrs.FileName
End If
Catch ex As Exception
End Try
End With
0
Gopi Chand12y ago
Just tell me through which language you are validating your textboxes.If you are wishing to validate through javascript or PHP tehn follow these links.
http://www.c-sharpcorner.com/UploadFile/9a9e6f/form-validation-through-php/

http://www.c-sharpcorner.com/UploadFile/9a9e6f/validation-in-javascript/
0