السلام عليكم ورحمة الله و بركاته
أخواني أنا اشتغل على برنامج فجوال ستديو 2013
عملة جدول و كتبت كود الاتصال على طريقة sql و كل شي تمام
كود الاضافة تمام
كود البحث تمام
و لكن المشكلة بكود الحذف و أرجوو من لديه الخبرة و المعرفة لا يبخل علينا بحل مشكلتي
نسخة من الاكواد و ننتظر الحل منكم و جزاكم الله خير الجزاء
أخواني أنا اشتغل على برنامج فجوال ستديو 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