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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  خطأ فى اتصال بقاعدة بيانات 2007 فى عمل كريستال ريبوت ارجو التفسير خالد كامل1 1 48 09-07-18, 03:39 AM
آخر رد: boudyonline
  [سؤال] المساعدة بتقرير ReportViewer maram2423 1 69 02-07-18, 03:51 PM
آخر رد: Amir_Alzubidy
  ارجو تصحيح الكود التالي bidaya 1 38 30-06-18, 09:24 PM
آخر رد: elgokr
Heart [سؤال] المرجو المساعدة من طرف خبراء برنامج visual basic studio shem3a 1 73 28-06-18, 07:52 AM
آخر رد: elgokr
  [سؤال] المساعدة - في مرحلة استعراض الفواتير فراس الغزي 9 187 13-06-18, 06:47 PM
آخر رد: elgokr
Smile [سؤال] مميزات الـ SQL Server واي اصدار استخدم رجاء المساعدة Mahmoud Nasser 8 156 08-06-18, 06:39 PM
آخر رد: Mahmoud Nasser
  ارجو المساعدة في هذا الخطاء ibrahimmakhool 1 85 05-06-18, 02:07 AM
آخر رد: mrnooo2000
Exclamation [كود] المساعدة - حول فكرة الاصدارات YousefOkasha 7 298 04-06-18, 03:44 AM
آخر رد: YousefOkasha
  ارجو المساعدة فى حل بعض الاخطاء atef_020 15 329 11-05-18, 11:19 AM
آخر رد: atef_020
  [VB.NET] أرجو المساعدة khaaleed2006 2 84 10-05-18, 06:02 PM
آخر رد: khaaleed2006

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


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