الحذف والبحث

        : السلام عليكم هذا كود يوضح عملية الحذف

Dim conn As New SqlClient.SqlConnection("connection string")
Dim cmd As New SqlClient.SqlCommand()  
Dim DS As New Dataset()
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
'رسالة تنبيه قبل  عملية الحذف
                                                                                                                                                                                                                                            If MsgBox("هل انت متأكد من حذف السجل الحالي", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "بحث") = MsgBoxResult.Cancel Then
            Exit Sub
        End If
        ' هنا تتم عملية الحذف
        Try
            With cmd
                .Connection = conn
                .CommandType = CommandType.Text
                .CommandText = "delete from books where id_book = '" & Lab_id.Text & "'"
                If conn.State = ConnectionState.Open Then conn.Close()
                conn.Open()
                .ExecuteNonQuery()
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            conn.Close()
        End Try 
End sub

وهذا كود يمثل بشكل مبسط عملية البحث

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        DataGridView.DataBindings.Clear()
        Dim Sqlselect As String = "select * from View1 where Customer LIKE '%" & txtsearch.Text & "%'"
        Dim da As New SqlClient.SqlDataAdapter(Sqlselect, conn)
        If da.Fill(DS, "View1") > 0 Then
            DataGridView.DataSource = DS
            DataGridView.DataMember = "View1"
            DataGridView.Columns(1).HeaderText = "Customer Name"
            DataGridView.Columns(1).Width = 190
            DataGridView.Columns(2).HeaderText = "Book Name"
            DataGridView.Columns(2).Width = 200
            DataGridView.Columns(3).HeaderText = "Customer Tel"
            DataGridView.Columns(3).Width = 173
            DataGridView.Columns(4).HeaderText = "Customer Address"
            DataGridView.Columns(4).Width = 173
            DataGridView.Columns(5).HeaderText = "Date"
            DataGridView.Columns(5).Width = 173
        Else
            MsgBox("No data found", MsgBoxStyle.Exclamation + MsgBoxStyle.OkCancel, "Message")
        End If
    End Sub

يا اخي هذه باستخدام sql server ولايفرق كثير عن استخدام الاكسيس سوا تبديل اوامر  sql باوامر oleb

شكرا لك  ساقوم بتجربة الكود    واذ في اي غلط  سأقول لك

بس  تبقت   اول مشكلة وهي الانتقال الى التكست الاخر      

كيف احلها وما هو الكود

ارجووو المساعدة

السلام عليكم

هذا كود بسيط قمت بعمله ان شاء الله يفي بغرضك.....  الكود بال sql كما ذكرت سابقاً يمكنك استبدال اوامر ال sql بأوامر ال olebDb وهذا الكود مجرد اعطاء فكرة

طبعاً بأمكانك تطوير الفكرة الموجودة في الكود.

الكود مرفق في ملف

مجلد جديد ‫‬.rar

شكرا لك يا اخي على تفاعلك             بس هذا الكود بالخصوص        كود   التحقق من التعديل  اريده  في  صفحة  webpage  وليس  windowpage

لانه  لا يتعرف على me.bindingcontext

سامحني يا اخي

لااعرف كيف اضع  الكود

شكرا