(13-12-21, 04:12 AM)haithammoftah كتب : السلام عليكم ورحمة الله وبركاته 

ارجو المساعدة في الوصول الي الخطأ حيث قمت بكتابة الاوامر اكثر من مرة وراجعت الخطوات دون الوقوف على الخطأ , جزيل الشكر لكم مقدماً 

لدي كود لتعديل سجل بقاعدة بيانات SQL Server وقمت بعمل هذه الداله ومن ثم قمت باستدعائها في زر امر ولكن وجدت الخطأ التالي 

'('.'System.Data.SqlClient.SqlException: 'An expression of non-boolean type specified in a context where a condition is expected, near 

 الخطأ يظهر عند Cmd.ExecuteNonQuery

وهذا كود الدالة  وفي الاخير كود الاستدعاء 

كود :

Public Sub Update_Transmittals(ByVal ID AS Double,ByVal Reference AS String,ByVal T_From AS String,ByVal T_To AS String,ByVal Transmittal_Date AS DateTime,ByVal Senton AS Date,ByVal RecivedOn AS Date,ByVal Subject AS String,ByVal Remarks AS String,ByVal Attachments AS String,ByVal Hard_Copy_File_No AS String,ByVal Status AS String,ByVal ProjectNo AS String,ByVal Reply_to AS String,ByVal Need_reply AS String,ByVal Need_followup AS String,ByVal Required_Action AS String,ByVal Trans_Type AS String,ByVal Category AS String)
Dim Cmd As New SqlCommand
With Cmd
.Connection = Con
.CommandType = CommandType.Text
           .CommandText = "Update Transmittals Set ID = @ID,Reference = @Reference,T_From = @T_From,T_To = @T_To,Transmittal_Date = @Transmittal_Date,Senton = @Senton,RecivedOn = @RecivedOn,Subject = @Subject,Remarks = @Remarks,Attachments = @Attachments,Hard_Copy_File_No = @Hard_Copy_File_No,Status = @Status,ProjectNo = @ProjectNo,Reply_to = @Reply_to,Need_reply = @Need_reply,Need_followup = @Need_followup,Required_Action = @Required_Action,Trans_Type = @Trans_Type,Category = @Category Where.Parameters.Clear()"
           .Parameters.AddWithValue("@ID", SqlDbType.Decimal ).Value = ID
.Parameters.AddWithValue("@Reference", SqlDbType.varchar ).Value = Reference
.Parameters.AddWithValue("@T_From", SqlDbType.varchar ).Value = T_From
.Parameters.AddWithValue("@T_To", SqlDbType.varchar ).Value = T_To
.Parameters.AddWithValue("@Transmittal_Date", SqlDbType.Date ).Value = Transmittal_Date
.Parameters.AddWithValue("@Senton", SqlDbType.Date ).Value = Senton
.Parameters.AddWithValue("@RecivedOn", SqlDbType.Date ).Value = RecivedOn
.Parameters.AddWithValue("@Subject", SqlDbType.varchar ).Value = Subject
.Parameters.AddWithValue("@Remarks", SqlDbType.varchar ).Value = Remarks
.Parameters.AddWithValue("@Attachments", SqlDbType.varchar ).Value = Attachments
.Parameters.AddWithValue("@Hard_Copy_File_No", SqlDbType.varchar ).Value = Hard_Copy_File_No
.Parameters.AddWithValue("@Status", SqlDbType.varchar ).Value = Status
.Parameters.AddWithValue("@ProjectNo", SqlDbType.varchar ).Value = ProjectNo
.Parameters.AddWithValue("@Reply_to", SqlDbType.varchar ).Value = Reply_to
.Parameters.AddWithValue("@Need_reply", SqlDbType.varchar ).Value = Need_reply
.Parameters.AddWithValue("@Need_followup", SqlDbType.varchar ).Value = Need_followup
.Parameters.AddWithValue("@Required_Action", SqlDbType.varchar ).Value = Required_Action
.Parameters.AddWithValue("@Trans_Type", SqlDbType.varchar ).Value = Trans_Type
.Parameters.AddWithValue("@Category", SqlDbType.varchar ).Value = Category
End With
If Con.State = 1 Then Con.Close()
Con.Open()
Cmd.ExecuteNonQuery()
Con.Close()
MsgBox("تم تعديل السجل بنجاح", MsgBoxStyle.Information, "تعديل")
Cmd = Nothing
End Sub

كود :

       Update_Transmittals(ID.Text, Reference.Text, T_From.Text, T_To.Text, Transmittal_Date.Value, Senton.Value, RecivedOn.Value, Subject.Text, Remarks.Text, Attachments.Text, Hard_Copy_File_No.Text, Status.Text, ProjectNo.Text, Reply_to.Text, Need_reply.Text, Need_followup.Text, Required_Action.Text, Trans_Type.Text, Category.Text)