تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة: ابراهيم ايبو , سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] السلام عليكم كيفيه انشاء تقرير بالديف اكسبريس دون الاتصال بقاعدة البيانات بالمعالج حسن الجلب 0 91 11-01-22, 01:00 AM
آخر رد: حسن الجلب
  اريد عمل استعلام الكود يعمل على SQL server اريد يعمل على vb.net new_programer 17 744 17-12-21, 04:41 AM
آخر رد: new_programer
Photo [VB.NET] سؤال بخصوص حفظ الصور بقاعدة بيانات sql moftah70 7 395 11-12-21, 06:03 AM
آخر رد: سعود
  [سؤال] قاعدة بيانات برنامج البصمة thabit 1 417 09-12-21, 03:52 AM
آخر رد: new_programer
  [سؤال] كود حفظ بيانات vb.net في جدول في قاعدة البيان access 2007 حسب اول حرف من اسم الموظف Hassan.syria 6 435 06-12-21, 09:49 AM
آخر رد: Hassan.syria
  السلام عليكم عندي جدولين جدول به التاريخ والكود وجدول به بيانات بنفس الكود ahmedhhh2 6 421 25-11-21, 12:54 AM
آخر رد: ahmedhhh2
  [SQL] مشكلة بطئ سرعة البرنامج المتصل بقاعدة بيانات على النت mmaalmesry 4 552 24-11-21, 12:23 PM
آخر رد: mmaalmesry
  اين اجد قاعدة بيانات الافتراضية باسم Northwind التي في شروحات microsoft غدير الصليحي 2 356 24-11-21, 06:43 AM
آخر رد: غدير الصليحي
  [VB.NET] مشكلة عند تصدير بيانات الداتا جريد فيو الي ملف وورد moftah70 0 314 21-11-21, 01:44 AM
آخر رد: moftah70
  كود الاتصال بقاعدة بيانات access محمية vb.net hammadi 0 223 13-11-21, 03:31 PM
آخر رد: hammadi

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


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