تقييم الموضوع :
  • 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 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 90 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 83 25-02-24, 02:31 PM
آخر رد: h2551996
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 1 309 21-02-24, 11:44 PM
آخر رد: AHMED213
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil

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


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