تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] خطأ في كود التعديل بقاعدة بيانات SQL SErver
#1
السلام عليكم ورحمة الله وبركاته 

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

لدي كود لتعديل سجل بقاعدة بيانات 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)
الرد }}
تم الشكر بواسطة:
#2
(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)

الحمد لله وجدت الحل 
نسيت وضع شرط الUpdate
الرد }}
تم الشكر بواسطة: ابراهيم ايبو , سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] لسلام عليكم ورحمه الله وبركاته ازاي افعل خاصيه امكانيه التعديل علي الكود أثناء تشغيل حسن الجلب 1 139 06-08-22, 07:39 PM
آخر رد: asmarsou
Brick كيفية الإغلاق التام لـقاعدة بيانات SQL أبو خالد الشكري 18 548 03-08-22, 02:11 PM
آخر رد: أبو خالد الشكري
  [كود] هدية قيمة و طلب: مشروع متكامل لشجرة و مطلوب التعديل عليه dr.programming 0 143 02-08-22, 02:28 AM
آخر رد: dr.programming
  [سؤال] كيفيه اضافه ملف نصي الي قاعده بيانات اكسس حسن الجلب 1 171 02-08-22, 01:57 AM
آخر رد: سعود
  مش قادر اعمل استيراد لقتعدة بيانات عندى حماده ممدوح البحيرى 2 145 01-08-22, 03:59 PM
آخر رد: aljzazy
  كود التاكد من الحقل موجود داخل الجدول فب قاعدة بيانات sql server vb.net عبدالكريم برشدان 4 275 30-07-22, 01:02 AM
آخر رد: سعود
  كود البحث عن اكبر تاريخ في قاعدة بيانات اكسس hatem555 3 200 25-07-22, 12:11 PM
آخر رد: سعود
  التعامل مع قاعدة بيانات sql عن بعد عبدالكريم برشدان 3 186 25-07-22, 03:49 AM
آخر رد: asemshahen5
Exclamation قراءة بيانات الصورة من قاعدة بيانات أكسس إلى أداة PictureBox أبو خالد الشكري 15 517 20-07-22, 05:40 PM
آخر رد: أبو خالد الشكري
  [VB.NET] ربط اكثرمن قاعدة بيانات sher 3 209 10-07-22, 07:37 PM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم