تقييم الموضوع :
  • 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
ما رسالة الخطأ التي تظهر عند الحذف؟
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود
#3
هلا اخوي العزيز هذه رسالة الخطاء


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

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



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


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