How to find the error field in vb2010

[Anburose]

Dear Sir

i try to insert record in sql 2008 table using vb2010 . sometimes i got error message "Conversion failed when converting date and/or time from character string." i use many date/time fields. how can i identified the particular field name .

Private Sub CmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSave.Click
Call Sqlconn.Main()
Dim objcn As New SqlConnection(cnn)
Dim objcmd = New SqlCommand
objcmd.Connection = objcn
Dim str As String

str = ""

str = "insert into " & ucode & "employee(UnitCode,Empcode,empname,gender,fathname,lifepartner,dob,curadd,curarea,curcity,curpin,"
str = str & "peradd,perarea,percity,perpin,perstate,percountry,pan,aadharid,attenunit,idcardno,doj,category,department,designation,"
str = str & "grade,esino,pfmode,pfno,paymode,bankname,banklocation,ifsc,acno,batch,fixsalary,pay1,pay2,pay3,pay4,pay5,"
str = str & "pay6,pay7,pay8,pay9,pay10,pay11,pay12,pay13,pay14,pay15,wages,uan) values"
str = str & "(@UnitCode,@Empcode,@empname,@gender,@fathname,@lifepartner,@dob,@curadd,@curarea,@curcity,@curpin,"
str = str & "@peradd,@perarea,@percity,@perpin,@perstate,@percountry,@pan,@aadharid,@attenunit,@idcardno,@doj,@category,@department,@designation,"
str = str & "@grade,@esino,@pfmode,@pfno,@paymode,@bankname,@banklocation,@ifsc,@acno,@batch,@fixsalary,@pay1,@pay2,@pay3,@pay4,@pay5,"
str = str & "@pay6,@pay7,@pay8,@pay9,@pay10,@pay11,@pay12,@pay13,@pay14,@pay15,@wages,@uan)"


Try
objcn.Open()

objcmd.CommandText = str

objcmd.Parameters.AddWithValue("@UnitCode", Trim(ucode)).ToString()
objcmd.Parameters.AddWithValue("@empcode", Trim(TxtEmpCode.Text))
objcmd.Parameters.AddWithValue("@empname", Trim(TxtEmpName.Text))
..............................................

.............................................

.............................................

objcmd.ExecuteNonQuery()
objcn.Close()

MsgBox("1 Record Added Successfully", vbInformation, vbOKOnly)


Catch ex As Exception

MsgBox(ex.message)

End Try
End Sub

Regards

Anburose

Continue reading...