تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
خطاْ في الإستعلام
#1
خطاْ في الإستعلام
عملت هذا
 
كود :
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()

ولما احذفه يقولي تمام ولايضاف شي
ماهو الحل
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله و بركاته
الاخ امجد ,
ExecuteScalar  تستتخدم للقيم العائدة من الاستعلام و تعيد اول صف في اول عمود من ناتج الاستعلام و يتم تجاهل بقية الاعمدة.
جملة الاستعلام لديك لا تحتاج الى استعمالها.
اما بالنسبة للخطأ فانت لم تعرض رسالة الخطأ .
حاول تتبع البارمترات و القيم بداخلها قد يكون هناك خطأ ناتج عن عملية تحويل او ماشابه.
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#3
أخي انظر فقط إلى رسالة الخطأ


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#4
حسب الرسالة الظاهرة خطأ في تحويل قيمة نصية الى قيمة رقمية
مرة اخرى تتيع البارمترات اثناء العمل و انظر لما تحتويه قيبل ارسالها الى السيرفر.
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#5
لاإعرف المهم تحتوي قاعدة البيانات على الحقول
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
الرد }}}
تم الشكر بواسطة:
#6
ارفع معلومات اوفى عن هذا العنصر الظاهر في الكود
PHP كود :
cmd.Parameters.AddWithValue("@FIDContent"TxTCategory.SelectedValue
هل هو ComboBox حاول ان تتاكد من القيمة المرسلة منه و ان تكون رقيمة.
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة:
#7
نعم إنه ComboBox
الرد }}}
تم الشكر بواسطة:
#8
أين حلولكم
الرد }}}
تم الشكر بواسطة:


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


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