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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [سؤال] تشغيل البرنامج ببرنامج اسامه الهرماوي 6 166 02-12-18, 09:33 PM
آخر رد: اسامه الهرماوي
  [VB.NET] بحاجة لمساعدة فى اتمام كود عملية حسابية وايضاً كود استعلام لاكثر من جدول السعيدي 14 409 01-12-18, 11:31 PM
آخر رد: السعيدي
  واجهتني مشكلة عند تشغيل sqlserver nooralcown 1 60 07-11-18, 11:56 AM
آخر رد: Amir_alzubidy
  يرجى المساعدة لحل مشكلة عند تشغيل نفس الفورم اكثر من مرة vb.net ahmadpal 5 166 04-11-18, 10:17 PM
آخر رد: ahmadpal
  [سؤال] تشغيل فيديو من ComboBox hamadz 11 283 03-11-18, 01:37 PM
آخر رد: elgokr
  يرجى المساعدة لحل مشكلة عند تشغيل نفس الفورم اكثر من مرة vb.net ahmadpal 0 72 26-10-18, 11:38 PM
آخر رد: ahmadpal
  [VB.NET] عند استدعاء استعلام اكسيس تعطى قيمة مختلفة على vb.net فما الحل ؟ omarmiga 2 104 25-10-18, 10:03 PM
آخر رد: ahmedmansour
  ماهو الكود المُستخدم في تشغيل البرنامج برقم الهارديسك؟ Hazem1 9 271 21-10-18, 01:56 PM
آخر رد: عبد العزيز البسكري
Information ظهور هذه الرساله عند تشغيل برنامجي...؟ Ahmed-IT 2 149 17-10-18, 03:25 AM
آخر رد: عبد العزيز البسكري
  مشكلة فى تشغيل قارئ من بين جميع القراء ابو روضة 10 326 10-10-18, 12:00 AM
آخر رد: AymanRamadanSaad

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


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