تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
خطأ في تشغيل استعلام
#1
السلام عليكم ورحمة الله وبركاتة
يظهر لدي خطأ اثناء تشغيل استعلام تحديث
ولا أعرف سببه
الصورة التالية تبين الخطأ



كود :
   Dim cmd As New SqlCommand
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       cmd = New SqlCommand("‘UPDATE INTO TblAccounts SET AccName= @AccName,StartBal= @StartBal where AccID=@AccID", conn)
       With cmd.Parameters
           .AddWithValue("@AccID", txtAccID.Text).DbType = DbType.Int32
           .AddWithValue("@AccName", txtAccName.Text).DbType = DbType.String
           .AddWithValue("@StartBal", txtStartBal.Text).DbType = DbType.Double
       End With
       If conn.State = ConnectionState.Open Then
           conn.Close()
       End If
       conn.Open()
       cmd.ExecuteNonQuery()

       conn.Close()
       frmAcc_Load(Nothing, Nothing)
   End Sub
End Class
الرد
تم الشكر بواسطة:
#2
السّلام عليكم و رحمة الله و بركاته
قم بحذف الإشارة ( ' ) أخي الكريم
تحياتي
الرد
تم الشكر بواسطة: Rabeea Qbaha , Rabeea Qbaha , elgokr
#3
شكرا لاستجابتك اخي الكريم
قمت بحذفها ومازالت المشكلة قائمة 
ايضا قمت باعادة ترتيب الجملة التالية
ومازالت المشكلة وهذه ا الرسالة تظهر في استعلام الحذف ايضا

كود :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       cmd = New SqlCommand("UPDATE INTO TblAccounts SET AccName= @AccName,StartBal= @StartBal where AccID=@AccID", conn)
       With cmd.Parameters

           .AddWithValue("@AccName", txtAccName.Text).DbType = DbType.String
           .AddWithValue("@StartBal", txtStartBal.Text).DbType = DbType.Double
           .AddWithValue("@AccID", txtAccID.Text).DbType = DbType.Int32
       End With
       If conn.State = ConnectionState.Open Then
           conn.Close()
       End If
       conn.Open()
       cmd.ExecuteNonQuery()

       conn.Close()
       frmAcc_Load(Nothing, Nothing)
   End Sub
الرد
تم الشكر بواسطة: elgokr
#4
عفوا أخي الكريم.. لا يمكن كتابة INTO و UPDATE .. إحذف كلمة INTO
الرد
تم الشكر بواسطة: Rabeea Qbaha , Rabeea Qbaha , elgokr , elgokr
#5
شكر لك تم تنفيذ استعلام التحديث بنجاح
الان المشكلة مازالت قائمة مع استعلام الحذف
كود :
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       If MsgBox("هل انت متأكد من حذف الحساب", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
           cmd = New SqlCommand("DELET FROM TblAccounts  where AccID=txtAccID.Text", conn)
           With cmd.Parameters

           End With
           If conn.State = ConnectionState.Open Then
               conn.Close()
           End If
           conn.Open()
           cmd.ExecuteNonQuery()

           conn.Close()
           frmAcc_Load(Nothing, Nothing)
       End If
   End Sub
الرد
تم الشكر بواسطة: elgokr
#6
(23-11-18, 05:24 PM)alsihran كتب : شكر لك تم تنفيذ استعلام التحديث بنجاح
الان المشكلة مازالت قائمة مع استعلام الحذف
كود :
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       If MsgBox("هل انت متأكد من حذف الحساب", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
           cmd = New SqlCommand("DELET FROM TblAccounts  where AccID=txtAccID.Text", conn)
           With cmd.Parameters

           End With
           If conn.State = ConnectionState.Open Then
               conn.Close()
           End If
           conn.Open()
           cmd.ExecuteNonQuery()

           conn.Close()
           frmAcc_Load(Nothing, Nothing)
       End If
   End Sub
الإستعلام صحيح أخي الكريم فقط قم بتصحيح كلمة DELET لتصبح هكذا DELETE
الرد
تم الشكر بواسطة: alsihran , Rabeea Qbaha , elgokr
#7
الف شكر والف تحية اخي الكريم
تم تنفيذ المطلوب
الرد
تم الشكر بواسطة: عبد العزيز البسكري , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 9 273 30-01-19, 06:42 AM
آخر رد: حريف برمجة
  [سؤال] مساعدة من فظلكم تشغيل قنوات بمشغل silverlight sambro 2 506 26-01-19, 02:55 PM
آخر رد: حاتمي
  طلب تعديل كود استعلام new_programer 2 98 25-01-19, 11:44 PM
آخر رد: حريف برمجة
  تشغيل progress bar مع تحميل الداتا %Eman% 9 370 22-01-19, 03:22 PM
آخر رد: %Eman%
  [SQL] اعادة تشغيل قاعدة بيانات SonBasel 0 107 01-01-19, 10:36 AM
آخر رد: SonBasel
  مشكلة في تشغيل برنامج تمت صناعته بالفيجوال بيسك 2012 و فيجوال بيسك 2017 naderahly 3 177 30-12-18, 02:59 AM
آخر رد: a.wagdi
  تشغيل ملف صوت او فيديو من الريسورس cvcvcv 15 4,042 26-12-18, 10:21 AM
آخر رد: سيف الله الشريف
Question [نقاش] كيف اصنع قائمة تشغيل playlist لأداة Windows Media Player ؟ وما هي الأكواد ؟ Abdelrahman ElNawawy 6 219 20-12-18, 02:49 AM
آخر رد: elgokr
Rainbow [سؤال] تشغيل البرنامج ببرنامج اسامه الهرماوي 6 289 02-12-18, 09:33 PM
آخر رد: اسامه الهرماوي
  [VB.NET] بحاجة لمساعدة فى اتمام كود عملية حسابية وايضاً كود استعلام لاكثر من جدول السعيدي 14 591 01-12-18, 11:31 PM
آخر رد: السعيدي

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


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