مشكلة عند تحويل البرنامج الى exe - _M.Nasser - 24-01-19
[attachment=20689]لقد قمت بعمل مشروع علي الفيجوال بيسك وربطه بالاكسس ولكن بعدما انتهيت من عمل اكواد الاضافة والتعديل والحذف وعند القيام بتحويلة لصيغة ل 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
وهذا ملف المشروع للاطلاع والافادة بحل
RE: مشكلة عند تحويل البرنامج الى exe - Amir_Alzubidy - 24-01-19
السلام عليكم و رحمة الله
قم بارفاق ملف المشروع للتعديل عليه
المشكلة مبهمة حتى الان
( احنا ما بنفتح بالمندل )
اعرض المشكلة بشكل كامل
و ما حد يقصر معاك ان شاء الله
شيء ثاني ما في داعي تكتب عنوان خارج اطار المشكلة ( قانون منتدى )
رجاء احترام ضوابط المنتدى
RE: مشكلة عند تحويل البرنامج الى exe - _M.Nasser - 25-01-19
(24-01-19, 11:27 PM) pid=\135922' كتب :الاستاذ الفاضل Amir_Alzubidy
السلام عليكم و رحمة الله
اسف جدا لم اقصد
شكرا علي اهتمامك هذا هو ملف المشروع المصغر لان المشروع كامل لا يمكنني رفعة لكبر حجة ولكن المشكلة لا تزال موجوده أني عند تحويل الملف لصيغة exe لا يقبل التعديل والاضافة والحذف
واسف علي الايطالة
RE: مشكلة عند تحويل البرنامج الى exe - princelovelorn - 25-01-19
السلام عليكم ورحمة الله وبركاته
أخي الفاضل أول ملاحظة على المشروع
لا تقم بعمل me.hide للشاشة الرئيسية Form1 لانك لن تستطيع اغلاق البرنامج
ممكن تعمل form2 هي الرئيسية وتستدعي Form1 عن طريق showdailog
وبالتالى لن تقابل اي مشكلة في اغلاق البرنامج او فتحه مرة أخرى
ثانيا بالنسبة لمشكلتك فهي بسيطة وهي إنك قمت بتطبيق أمر الحفظ مرتين متتاليتين ولتصحيح الخطأ أنظر الكود التالي
كود :
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)
Save_employees()
End If
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
Save_employees()
End If
End Sub
ونصيحة مني أخي
يفضل أن تجعل للجدول حقل ترقيم تلقائي
وأن تجعل كود الموظف أو الاي دي الخاص به ايهما اتوماتيك وليس يدويا لانه بهذة الطريقة متعب جدا لمن يدخل البيانات
تمنياتي لك بالتوفيق والنجاح
مشكلة عند تحويل البرنامج الى exe - _M.Nasser - 25-01-19
[quote pid='135926' dateline='1548373609']
اخي العزيز
اشكرك عل اهتمامك
قمت بما نصحتني به ولكن لا تزال المشكلة قائمة ؟؟؟
[/quote]
RE: مشكلة عند تحويل البرنامج الى exe - boudyonline - 26-01-19
بالرغم من اتفاقي مع الاخ [b]princelovelorn[/b] في وجود العديد من الملاحظات
لكن البرنامج يعمل بصورة طبيعية سواء النسخة الأصلية او النسخة بعد التركيب
افحص جهازك وحاول تركيب البرنامج على جهاز آخر
RE: مشكلة عند تحويل البرنامج الى exe - sendbad100 - 26-01-19
السلام عليكم
جرب ان تشغل البرنامج كمسؤول
او نفل البرنامج وقاعدة البينات الى قرص غير "C"
|