24-01-19, 11:14 PM
(آخر تعديل لهذه المشاركة : 25-01-19, 12:47 AM {2} بواسطة _M.Nasser.
تعديل السبب: تعديل العنوان
)
Meals.rar (الحجم : 3.68 م ب / التحميلات : 5) لقد قمت بعمل مشروع علي الفيجوال بيسك وربطه بالاكسس ولكن بعدما انتهيت من عمل اكواد الاضافة والتعديل والحذف وعند القيام بتحويلة لصيغة ل 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
وهذا ملف المشروع للاطلاع والافادة بحل