[raoe-041]

كود الحفظ اخي الكريم

PHP كود :

Public Sub User_Table_Save()
        Dim User_Table_Save As OleDbCommandBuilder
        User_Table_Save = New OleDbCommandBuilder(daUsertable)
        daUsertable.Update(User_Table)
        User_Table.AcceptChanges()
    End Sub 


كود البحث .......

PHP كود :

 'daUsertable = New OleDbDataAdapter(" select * from User_Table where User_Name  like '%" & Textbox1.Text & "%'and  pass ='" & TextBox2.Text & "'", connAccess2010) 


كود الحذف ...

PHP كود :

       Dim psation As Integer = BindingContext(User_Show).Position

        If MsgBox("هل تريد فعلا حذف المستخدم", MsgBoxStyle.YesNo, "حذف المستخدم") = MsgBoxResult.Yes Then

            User_Table.Rows(psation).Delete()