تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله معاذ_ابراهيم 4 114 18-05-19, 11:53 PM
آخر رد: elgokr
  عمل استعلام بدلالة الصفوف المختارة من الداتا جريد makky 2 143 09-05-19, 05:11 PM
آخر رد: makky
  كيفية تشغيل برنامج exe باستخدام الفيجوال Emam emam 5 175 29-04-19, 03:04 PM
آخر رد: alsouf
  تشغيل ازاز لوحة المفاتيح في الالة الحاسبة atefkhalf2004 11 166 24-04-19, 02:01 PM
آخر رد: elgokr
  [VB.NET] تشغيل السكانر من داخل فيجوال بيسك khairallah 5 194 20-04-19, 07:35 AM
آخر رد: elgokr
  [نقاش] طلب بيسط وهو تشغيل البرنامج خاصتي اسامه الهرماوي 2 105 18-04-19, 02:58 AM
آخر رد: اسامه الهرماوي
  تم الحل : استعلام من 3 جداول العيدروس 8 157 13-04-19, 12:50 AM
آخر رد: العيدروس
  [سؤال] تشغيل برنامجى بى الماك ادرس Mohamed Magdy 5 115 12-04-19, 10:13 PM
آخر رد: elgokr
  [VB.NET] استعلام للبحث عن عدد تكرار كلمة في بيانات حقل واحد في سجل واحد tarek 0 90 24-03-19, 09:09 PM
آخر رد: tarek
  [سؤال] استعلام من جريد فيو mmali127 6 229 27-02-19, 07:31 PM
آخر رد: elgokr

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


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