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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  المساعدة في كود بحث وفلتر khaled12345 6 127 14-10-17, 05:36 AM
آخر رد: khaled12345
  [VB.NET] ارجو المساعده اخواني ابوبكر العربي 2 55 07-10-17, 02:01 AM
آخر رد: ابوبكر العربي
  [سؤال] ارجو مساعدتي في الكريستال ريبورت :( كود برمجي 0 53 03-10-17, 10:45 AM
آخر رد: كود برمجي
  [VB.NET] السلام عليكم ارجو المساعدة يااعضاء ومشرفي المنتدي الكرام بشكل عاجل MOHAMED.2030 0 67 27-09-17, 05:46 PM
آخر رد: MOHAMED.2030
  [VB.NET] السلام عليكم ارجوا المساعدة في التكست بوكس محمد بوقزاحة 2 97 26-09-17, 11:31 AM
آخر رد: محمد بوقزاحة
  ارجو المساعده للانتهاء من مرحله كبيره فى البرنامج نبيل كونكت 1 137 25-09-17, 05:56 PM
آخر رد: محمود صالح
  يرجى المساعدة طلب كود hikmat 1 80 23-09-17, 07:35 PM
آخر رد: khodor1985
  [VB.NET] لكل خبير ارجو الحل Engmtamous 8 182 21-09-17, 07:52 PM
آخر رد: alsouf
  برجاء المساعدة في سورس كود اله حاسبة scientific calculator khaled12345 3 140 20-09-17, 12:11 AM
آخر رد: ابوثامر الحربي
  [VB.NET] المساعدة - في اظهار تقرير بناء على سطور يتم تحديدها امل عوض 6 111 19-09-17, 01:49 PM
آخر رد: أبو نوره

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


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