[alsihran]

السلام عليكم ورحمة الله وبركاتة
يظهر لدي خطأ اثناء تشغيل استعلام تحديث
ولا أعرف سببه
الصورة التالية تبين الخطأ

كود :

   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

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

قم بحذف الإشارة ( ' ) أخي الكريم

تحياتي

[alsihran]

شكرا لاستجابتك اخي الكريم
قمت بحذفها ومازالت المشكلة قائمة 
ايضا قمت باعادة ترتيب الجملة التالية
ومازالت المشكلة وهذه ا الرسالة تظهر في استعلام الحذف ايضا

كود :

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

[عبد العزيز البسكري]

عفوا أخي الكريم.. لا يمكن كتابة INTO و UPDATE .. إحذف كلمة INTO

[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

[عبد العزيز البسكري]

(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]

الف شكر والف تحية اخي الكريم
تم تنفيذ المطلوب