تقييم الموضوع :
  • 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 & ""
نفذ هذه الجملة بعد التعديلات اللازمة ويعمل معك
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ياشباب ارجو المساعده رنامج لا جلب اي قاعده بيانات في الجهاز اكسس او اكسل وعرضها ammaraliali 5 92 أمس, 06:11 PM
آخر رد: khodor1985
  ياشباب ارجو منكم المساعده لدي مشاكل في اضافه الصورة الى قاعده البيانات وعمل بحث ammar ali 3 146 13-01-17, 11:15 PM
آخر رد: ammaraliali
  ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 محمد بوقزاحة 4 92 13-01-17, 12:56 AM
آخر رد: مساعدة
  [VB.NET] المساعدة في الاكواد لبرنامج انتي فايرس 0theghost0 6 101 11-01-17, 11:08 PM
آخر رد: 0theghost0
  [VB.NET] الرجاء المساعدة noway 2 80 10-01-17, 09:28 AM
آخر رد: thevirus
  [VB.NET] لدي فكرة مشروع لمن يريد المساعدة فاليتفضل 0theghost0 10 261 05-01-17, 05:15 PM
آخر رد: 0theghost0
  طباعة صورة PictureBox1 بعرض الصفحة .. أرجو المساعدة ahmed_elwerfalli 3 134 24-12-16, 05:59 PM
آخر رد: ahmed_elwerfalli
  ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator الماجيك مسعد 16 374 13-12-16, 01:21 AM
آخر رد: الماجيك مسعد
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 46 1,802 11-12-16, 12:57 AM
آخر رد: tryold
  ارجو المساعدة في كود VB.NET 7 150 16-11-16, 03:20 AM
آخر رد: أبو عمر

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


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