تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ارجو المساعدة Syntax error in FROM clause
#1
هذا هو الكود

كود :
Try

           Using conn As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath() & "\Data.accdb" & ";Persist Security Info=True;Jet OLEDB:Database Password=123")

               ' الحذف '
               Dim sql As String = _
                   " DELETE FROM [Student]  " & _
                   " SET [Student_Name]=@Student_Name " & _
                   "   , [Student_CPR]=@Student_CPR " & _
                   "   , [Student_Birth]= @Student_Birth " & _
                   "   , [Student_Join]=@Student_Join " & _
                   "   , [Student_Nation]=@Student_Nation " & _
                   "   , [Student_Sex]=@Student_Sex " & _
                   "   , [Student_D]=@Student_D " & _
                   "   , [Student_Place]=@Student_Place " & _
                   "   , [Student_Address]=@Student_Address " & _
                   "   , [Student_Sick]=@Student_Sick " & _
                   "   , [Student_Vairus]=@Student_Vairus " & _
                   "   , [Student_phone]=@Student_phone " & _
                   "   , [Student_Dad]=@Student_Dad " & _
                   "   , [Student_mom]=@Student_mom " & _
                   "   , [Student_Angel]=@Student_Angel " & _
                   "   , [Student_jobmom]=@Student_jobmom " & _
                   "   , [Student_jobdad]=@Student_jobdad " & _
                   "   , [Student_Famaly]=@Student_Famaly " & _
                   "   , [Student_Pic]=@Student_Pic " & _
                   " WHERE [id]=@id "

               Using cmd As New OleDb.OleDbCommand(sql, conn)
                   cmd.Parameters.AddWithValue("@Student_Name", ComboBox15.Text)
                   cmd.Parameters.AddWithValue("@Student_CPR", TextBox16.Text)
                   cmd.Parameters.AddWithValue("@Student_Birth", DateTimePicker6.Value.Date)
                   cmd.Parameters.AddWithValue("@Student_Join", DateTimePicker5.Value.Date)
                   cmd.Parameters.AddWithValue("@Student_Nation", ComboBox14.Text)
                   cmd.Parameters.AddWithValue("@Student_Sex", ComboBox9.Text)
                   cmd.Parameters.AddWithValue("@Student_D", ComboBox10.Text)
                   cmd.Parameters.AddWithValue("@Student_Place", ComboBox13.Text)
                   cmd.Parameters.AddWithValue("@Student_Address", TextBox24.Text)
                   cmd.Parameters.AddWithValue("@Student_Sick", ComboBox12.Text)
                   cmd.Parameters.AddWithValue("@Student_Vairus", TextBox19.Text)
                   cmd.Parameters.AddWithValue("@Student_phone", TextBox23.Text)
                   cmd.Parameters.AddWithValue("@Student_Dad", TextBox22.Text)
                   cmd.Parameters.AddWithValue("@Student_mom", TextBox21.Text)
                   cmd.Parameters.AddWithValue("@Student_Angel", TextBox20.Text)
                   cmd.Parameters.AddWithValue("@Student_jobmom", TextBox18.Text)
                   cmd.Parameters.AddWithValue("@Student_jobdad", TextBox17.Text)
                   cmd.Parameters.AddWithValue("@Student_Famaly", ComboBox11.Text)

                   Using ms As New IO.MemoryStream
                       Me.PictureBox2.Image.Save(ms, Imaging.ImageFormat.Png)
                       cmd.Parameters.AddWithValue("@Student_Pic", ms.ToArray())
                   End Using

                   conn.Open()
                   Dim result As Integer = cmd.ExecuteNonQuery()
                   conn.Close()

                   If result > 0 Then
                       MessageBox.Show("تمت الحذف بنجاح", "مبروك", MessageBoxButtons.OK, MessageBoxIcon.Information)
                   Else
                       MessageBox.Show("لم أجد الرقم", "حذف", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                   End If

               End Using
           End Using

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

يظهر لي اثناء عملية الحذف 
Syntax error in FROM clause

ما الخطأ في الكود ؟

استخدم 2013
الرد
تم الشكر بواسطة:
#2
نعم فيه خطا وهو انك استخدمت امر حذف وهو لا يتطلب كل ماكتبت ايضا الحذف لا يحتاج امر set
حاول تراجع المطلوب من الكود هل تريد حذف ام تحديث؟
الرد
تم الشكر بواسطة:
#3
اريد الحذف حاليا

ما الخطأ اخي ؟
الرد
تم الشكر بواسطة:
#4
مادام تريد حذف فاكتب كود بهذا الشكل
كود :
"delete from tb where tid=" & tid.text & ""
نفذ هذه الجملة بعد التعديلات اللازمة ويعمل معك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال حول TextBox مرتبط ب WebBrowser ارجو رد من الاخ DK-x وشكرا للاخ بدري حاتمي 4 113 09-04-19, 06:16 PM
آخر رد: حاتمي
  ارجو المساعده فى ظهور هذا الخطأ فى اضافه اصناف للفاتوره خالد كامل1 4 142 09-04-19, 03:22 AM
آخر رد: elgokr
  ارجو التعديل على كودالاستعلام Group By new_programer 3 107 03-04-19, 12:23 AM
آخر رد: elgokr
Thumbs Up سؤال بسيط حول مشغل لايعمل ارجو رد حاتمي 0 109 22-03-19, 12:04 AM
آخر رد: حاتمي
  طريقة تكرار الامر تلقائيا | حل مشكلة script error في webbrowser عند فتح صفحة ما soloxocf1 6 363 18-03-19, 09:16 AM
آخر رد: 5000
  المساعدة بعمل ريستور abdulla2 1 103 05-03-19, 01:18 AM
آخر رد: حريف برمجة
  رجاء المساعدة حول الكريستل ربورت محمد خيري 2 153 03-03-19, 10:29 PM
آخر رد: محمد خيري
  مشكله فى البارميترات ارجو المساعده خالد كامل1 9 322 21-02-19, 02:52 PM
آخر رد: elgokr
  ارجو المساعدة مشروع عن الوزن المثالي Rodi001 7 7,643 13-02-19, 01:08 AM
آخر رد: مها القويفلي
  ما هو حل مشكلة هذا ال Error The connection was not closed. The connection's current mostafa nada 3 209 12-02-19, 06:58 PM
آخر رد: asemshahen5

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


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