13-12-21, 04:12 AM
السلام عليكم ورحمة الله وبركاته
ارجو المساعدة في الوصول الي الخطأ حيث قمت بكتابة الاوامر اكثر من مرة وراجعت الخطوات دون الوقوف على الخطأ , جزيل الشكر لكم مقدماً
لدي كود لتعديل سجل بقاعدة بيانات SQL Server وقمت بعمل هذه الداله ومن ثم قمت باستدعائها في زر امر ولكن وجدت الخطأ التالي
ارجو المساعدة في الوصول الي الخطأ حيث قمت بكتابة الاوامر اكثر من مرة وراجعت الخطوات دون الوقوف على الخطأ , جزيل الشكر لكم مقدماً
لدي كود لتعديل سجل بقاعدة بيانات 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)