I'm trying to submit my form into the database but I'm getting this error on the cmd.ExecuteNonQuery() section:
Conversion failed when converting datetime from character string.
I have three date fields (in bold below) and in the database they are set up as datetime (8).
What am I missing:
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As Data.SqlClient.SqlConnection = New Data.SqlClient.SqlConnection("Data Source=cmssolutions.db.9373013.hostedresource.com; Initial Catalog=cmssolutions; User ID=CMSSolutions; Password=CMSMedical1")
If BMItxt.Text = "" Then
BMItxt.Text = "01/01/1900"
End If
If nuttxt.Text = "" Then
weighttxt.Text = "01/01/1900"
End If
If nuttxt.Text = "" Then
Phydte.Text = "01/01/1900"
End If
Dim cmd As New Data.SqlClient.SqlCommand
With cmd
.Connection = conn
.CommandType = Data.CommandType.StoredProcedure
.CommandText = "AddWeightAssessment"
.Parameters.AddWithValue("@lName", lname.Text)
.Parameters.AddWithValue("@fName", fname.Text)
.Parameters.AddWithValue("@dob", dob.Text)
.Parameters.AddWithValue("@OutVisit", OutVisit.Text)
.Parameters.AddWithValue("@BMIRbn", BMIRbn.Text)
.Parameters.AddWithValue("@BMItxt", BMItxt.Text)
.Parameters.AddWithValue("@BMIPerc", BMIPerc.Text)
.Parameters.AddWithValue("@BMIVal", BMIVal.Text)
.Parameters.AddWithValue("@CouncelRbn", CouncelRbn.Text)
.Parameters.AddWithValue("@nuttxt", nuttxt.Text)
.Parameters.AddWithValue("@weighttxt", weighttxt.Text)
.Parameters.AddWithValue("@PhyRbn", PhyRbn.Text)
.Parameters.AddWithValue("@Phydte", Phydte.Text)
.Parameters.AddWithValue("@Commtxt", Commtxt.Text)
.Parameters.AddWithValue("@Titlelbl", Titlelbl.Text)
End With
conn.Open()
cmd.ExecuteNonQuery()
conn.Dispose()
Label1.Text = "Your information was submitted"
