[alfeysal2]

السلام عليكم ورحمة الله و بركاته


أخواني أنا اشتغل على برنامج فجوال ستديو 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