منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
خطاْ في الإستعلام - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم برمجة وتطوير المواقع (http://vb4arb.com/vb/forumdisplay.php?fid=51)
+--- قسم : قسم ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=52)
+--- الموضوع : خطاْ في الإستعلام (/showthread.php?tid=34247)

خطاْ في الإستعلام - أمجد وضاح - 09-04-20

خطاْ في الإستعلام
عملت هذا
 
كود :
Protected Sub InsertNew()
      Try
          Dim conn As New SqlConnection
      conn.ConnectionString = ConfigurationManager.ConnectionStrings("ConnectionStringCompanyAwaedo").ConnectionString
      conn.Open()
      Dim Sql As String = "INSERT INTO TContent(FIDContent, ContentDaTi, ContentTitle, ContentSummary, ContentImage, ContentText) Values (@ContentText, @ContentDaTi, @ContentTitle, @ContentSummary, @ContentImage, @ContentText)"
      Dim cmd As SqlCommand = New SqlCommand(Sql, conn)
      cmd.Parameters.AddWithValue("@FIDContent", TxTCategory.SelectedValue)
      cmd.Parameters.AddWithValue("@ContentTitle", TxTTitle.Text.Trim)
      cmd.Parameters.AddWithValue("@ContentDaTi", Date.Now.ToString("yyyy/MM/dd"))
      cmd.Parameters.AddWithValue("@ContentSummary", TxTSumm.Text.Trim)
      cmd.Parameters.AddWithValue("@ContentImage", TxTImage.Text.Trim)
      cmd.Parameters.AddWithValue("@ContentText", TxTMore.Text.Trim)
          cmd.ExecuteScalar()
      conn.Close()
      Lbmsg.BackColor = Drawing.Color.Green
      Lbmsg.ForeColor = Drawing.Color.White
      Lbmsg.Text = "تم إضافة المحتوى بنجاح"
      Catch ex As Exception
          Lbmsg.BackColor = Drawing.Color.Red
          Lbmsg.ForeColor = Drawing.Color.White
          Lbmsg.Text = "لم يتم إضافة المحتوى" + ex.ToString
      End Try
  End Sub

ويظهرلي خطأ  في هذا السطر

كود :
  cmd.ExecuteScalar()

ولما احذفه يقولي تمام ولايضاف شي
ماهو الحل

RE: خطاْ في الإستعلام - ابو ليلى - 09-04-20

السلام عليكم و رحمة الله و بركاته
الاخ امجد ,
ExecuteScalar  تستتخدم للقيم العائدة من الاستعلام و تعيد اول صف في اول عمود من ناتج الاستعلام و يتم تجاهل بقية الاعمدة.
جملة الاستعلام لديك لا تحتاج الى استعمالها.
اما بالنسبة للخطأ فانت لم تعرض رسالة الخطأ .
حاول تتبع البارمترات و القيم بداخلها قد يكون هناك خطأ ناتج عن عملية تحويل او ماشابه.

RE: خطاْ في الإستعلام - أمجد وضاح - 09-04-20

أخي انظر فقط إلى رسالة الخطأ

RE: خطاْ في الإستعلام - ابو ليلى - 09-04-20

حسب الرسالة الظاهرة خطأ في تحويل قيمة نصية الى قيمة رقمية
مرة اخرى تتيع البارمترات اثناء العمل و انظر لما تحتويه قيبل ارسالها الى السيرفر.

RE: خطاْ في الإستعلام - أمجد وضاح - 09-04-20

لاإعرف المهم تحتوي قاعدة البيانات على الحقول
IDContent قيمته int
FIDContent   قيمته int
ContentTitle قيمته nvatchar(50)
ContentTitle قيمته nvatchar(250)
ContentSummary قيمته nvarchar(300)
ContentDaTi قيمته nvarchar(50)
 ContentImage قيمتهnvarchar(50)
ContentText قيمته  nvarchar(MAX)

ما الخطأ

كود :
cmd.Parameters.AddWithValue("@ContentText", TxTMode.Text)
عدلت هذا الجزء إلى

كود :
cmd.Parameters.AddWithValue("@ContentText", TxTMode.TextMore)
مكان هذا الجزء حفظ رقم 1

RE: خطاْ في الإستعلام - ابو ليلى - 09-04-20

ارفع معلومات اوفى عن هذا العنصر الظاهر في الكود
PHP كود :
cmd.Parameters.AddWithValue("@FIDContent", TxTCategory.SelectedValue) 
هل هو ComboBox حاول ان تتاكد من القيمة المرسلة منه و ان تكون رقيمة.

RE: خطاْ في الإستعلام - أمجد وضاح - 09-04-20

نعم إنه ComboBox

RE: خطاْ في الإستعلام - أمجد وضاح - 10-04-20

أين حلولكم