[_M.Nasser]

  Meals.rar (الحجم : 3.68 م ب / التحميلات : 12) لقد قمت بعمل مشروع علي الفيجوال بيسك وربطه بالاكسس ولكن بعدما انتهيت من عمل اكواد الاضافة والتعديل والحذف وعند القيام بتحويلة لصيغة ل exe تظهر لي رسالة عند الاضافة او الحذف او التعديل انني لا يمكني الحفظ رغم ان الاضافة او التعديل يظهر علي الداتا جريد ولكن لا يتم حفظها

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

PHP كود :

Module Connectin
    Public connAccess2003 As New OleDbConnection("provider=microsoft.jet.OLEDB.4.0;" & "Data source=" & Application.StartupPath & "/meals.mdb")
    Public dalogin_table As New OleDbDataAdapter
    Public login_table As New DataTable
    Public daPermation As New OleDbDataAdapter
    Public Permation As New DataTable
    Public daMenu As New OleDbDataAdapter
    Public Menu As New DataTable
    Public daReport_Meals As New OleDbDataAdapter
    Public Report_Meals As New DataTable
    Public daMenu_Date As New OleDbDataAdapter
    Public Menu_Date As New DataTable
    Public daemployees As New OleDbDataAdapter
    Public employees As New DataTable




    Public P_Authorization As String
    Public Sub load_employees()
        employees.Clear()
        daemployees = New OleDbDataAdapter("Select*from employees", connAccess2003)
        daemployees.Fill(employees)
    End Sub
    Public Sub Save_employees()
        Dim Save_employees As OleDbCommandBuilder
        Save_employees = New OleDbCommandBuilder(daemployees)
        daemployees.Update(employees)
        employees.AcceptChanges()

    End Sub


    Public Sub load_Report_Meals()
        Report_Meals.Clear()
        daReport_Meals = New OleDbDataAdapter("Select*from Report_Meals", connAccess2003)
        daReport_Meals.Fill(Report_Meals)
    End Sub
    Public Sub load_Menu_Date()
        Menu_Date.Clear()
        daMenu_Date = New OleDbDataAdapter("Select*from Menu_Date", connAccess2003)
        daMenu_Date.Fill(Menu_Date)
    End Sub
    Public Sub load_Permation()
        Permation.Clear()
        daPermation = New OleDbDataAdapter("Select*from Permation", connAccess2003)
        daPermation.Fill(Permation)
    End Sub
    Public Sub load_Menu()
        Menu.Clear()
        daMenu = New OleDbDataAdapter("Select*from Menu", connAccess2003)
        daMenu.Fill(Menu)
    End Sub


    Public Sub load_login_table()
        login_table.Clear()
        dalogin_table = New OleDbDataAdapter("Select*from login_table", connAccess2003)
        dalogin_table.Fill(login_table)
    End Sub 


 وهذا في الفورم الرئيسي

PHP كود :

Public state As String
    Public postion As Integer
    Private Sub Employees_Show_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        load_employees()
        DataGridView1.DataSource = employees
    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        state = "add"
        Add_Edit_Employee.Show()

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        postion = BindingContext(employees).Position
        state = "edit"
        Add_Edit_Employee.Show()
    End Sub

    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
        postion = BindingContext(employees).Position
        employees.Rows(postion).Delete()
        Save_employees()
        load_employees()
    End Sub

    Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
        Save_employees()
    End Sub 


وهذا في الفورم للتعديل والاضافة

PHP كود :

Public Sub load_employees()
        employees.Clear()
        daemployees = New OleDbDataAdapter("Select*from employees", connAccess2003)
        daemployees.Fill(employees)
    End Sub

    Private Sub Add_Edit_Employee_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Employees_Show.state = "edit" Then
            TextBox1.Text = employees.Rows(Employees_Show.postion).Item("Emp_Code")
            TextBox2.Text = employees.Rows(Employees_Show.postion).Item("Emp_ID")
            TextBox3.Text = employees.Rows(Employees_Show.postion).Item("Emp_Name")
            TextBox4.Text = employees.Rows(Employees_Show.postion).Item("Emp_Section")
            TextBox5.Text = employees.Rows(Employees_Show.postion).Item("Emp_Job")

        End If
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
      
        If Employees_Show.state = "add" Then

            load_employees()
            employees.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text)

        End If

        Save_employees()

        If Employees_Show.state = "edit" Then
            load_employees()
            employees.Rows(Employees_Show.postion).Item("Emp_Code") = TextBox1.Text
            employees.Rows(Employees_Show.postion).Item("Emp_ID") = TextBox2.Text
            employees.Rows(Employees_Show.postion).Item("Emp_Name") = TextBox3.Text
            employees.Rows(Employees_Show.postion).Item("Emp_Section") = TextBox4.Text
            employees.Rows(Employees_Show.postion).Item("Emp_Job") = TextBox5.Text

        End If
        Save_employees()
    End Sub 


ارجوكم ساعدوني لاني معرض لموقف محرج وقد اطرد من العمل بسبب عدم عمل هذا المشروع اللي اعتدنا عليه وتحملة المسئولية ولم يعمل كما اريد عند تحويلة ل exe

وهذا ملف المشروع للاطلاع والافادة بحل