منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مشكلة عند تحويل البرنامج الى exe - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة عند تحويل البرنامج الى exe (/showthread.php?tid=28357)

مشكلة عند تحويل البرنامج الى 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"