تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[SQL] مشكلة في كود الحذف ولا اغلم ما هو السبب
#1
السلام عليكم ورحمة الله و بركاته


أخواني أنا اشتغل على برنامج فجوال ستديو 2013

عملة جدول و كتبت كود الاتصال على طريقة sql و كل شي تمام 

كود الاضافة تمام
كود البحث تمام

و لكن المشكلة بكود الحذف و أرجوو من لديه الخبرة و المعرفة لا يبخل علينا بحل مشكلتي 


نسخة من الاكواد و ننتظر الحل منكم و جزاكم الله خير الجزاء

كود :
Imports System.Data.OleDb

Public Class Form1

   'أكواد الاتصال و التعريف المتغيرات

   Public connAcess2007 As New OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\DATABASE\DATA.accdb")

   Dim alfaisal As New DataTable

   Public Sub alfaisal_load()

       alfaisal.Clear()

       Dim cmd As New OleDbCommand("select * from alfaisal ", connAcess2007)
       connAcess2007.Open()
       alfaisal.Load(cmd.ExecuteReader)
       DataGridView1.DataSource = alfaisal
       connAcess2007.Close()


   End Sub


   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       alfaisal_load()


   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       'أكواد البحث

       alfaisal.Clear()
       Dim cmd As New OleDbCommand("select * from alfaisal where Articlefood like @Articlefood ", connAcess2007)
       cmd.Parameters.Add("@Articlefood", OleDbType.VarChar).Value = "%" & TextBox1.Text.Trim & "%"

       connAcess2007.Open()
       alfaisal.Load(cmd.ExecuteReader)
       DataGridView1.DataSource = alfaisal
       connAcess2007.Close()


   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click


       'أكواد الاضافة

       Dim cmd As New OleDbCommand("insert into alfaisal (ArticleFood,TradeName,country,PackageType,PackageWeight,TheResult,Comments)values(@ArticleFood,@TradeName,@country,@PackageType,@PackageWeight,@TheResult,@Comments)", connAcess2007)
       cmd.Parameters.Add("@Articlefood", OleDbType.VarChar).Value = TextBox2.Text.Trim
       cmd.Parameters.Add("@TradeName", OleDbType.VarChar).Value = TextBox3.Text.Trim
       cmd.Parameters.Add("@country", OleDbType.VarChar).Value = TextBox4.Text.Trim
       cmd.Parameters.Add("@PackageType", OleDbType.VarChar).Value = TextBox5.Text.Trim
       cmd.Parameters.Add("@PackageWeight", OleDbType.VarChar).Value = TextBox6.Text.Trim
       cmd.Parameters.Add("@TheResult", OleDbType.VarChar).Value = TextBox7.Text.Trim
       cmd.Parameters.Add("@Comments", OleDbType.VarChar).Value = TextBox8.Text.Trim

       connAcess2007.Open()
       cmd.ExecuteNonQuery()
       connAcess2007.Close()

       alfaisal_load()

   End Sub

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click


       'اكواد الحذف

       Dim postion As Integer = DataGridView1.CurrentRow.Index
       Dim id_postion = DataGridView1.Rows(postion).Cells("id").Value

       Dim cmd As New OleDbCommand("delete feom alfaisal where id = " & id_postion, connAcess2007)


       connAcess2007.Open()
       cmd.ExecuteNonQuery()
       connAcess2007.Close()

       alfaisal_load()

   End Sub
End Class
الرد }}}}
تم الشكر بواسطة:
#2
ما رسالة الخطأ التي تظهر عند الحذف؟
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود
#3
هلا اخوي العزيز هذه رسالة الخطاء


http://store2.up-00.com/2015-09/1441291213461.jpg
الرد }}}}
تم الشكر بواسطة:
#4
لا يوجد عمود اسمه id
الافضل تستخدم
cell(0).value
او الاندكس اللي فيه القيمة
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود
#5
انا ابي احذف نص وليس رقم

ممكن توضح اكثر
الرد }}}}
تم الشكر بواسطة:
#6
تم حل المشكلة
الرد }}}}
تم الشكر بواسطة:
#7
:-)
ممتاز !!!
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب مساعدة عندي مشكلة عند الربط بقاعدة البيانات لا يعرف المستحيل 7 1,095 04-02-15, 02:02 PM
آخر رد: مصطفى مجيد
  [عنوان معدل]مشكلة في برنامج دليل الهاتف لا يعرف المستحيل 3 905 23-06-13, 03:18 AM
آخر رد: محمود اكرم
  مشكلة بتحويل اكسس الى sql the viper 1 800 23-04-13, 06:45 PM
آخر رد: smss
  مشكلة في قاعدة البيانات؟ lلمبرمج 2 643 19-04-13, 12:51 AM
آخر رد: حريف برمجة
  طلب مساعدة عندي مشكلة عند الربط بقاعدة البيانات 0 83 منذ اقل من1 دقيقه مضت
آخر رد:

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


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