تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة عند تحويل البرنامج الى exe
#1

.rar   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.ObjectByVal e As System.EventArgsHandles MyBase.Load
        load_employees
()
 
       DataGridView1.DataSource employees
    End Sub

    Private Sub PictureBox2_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles PictureBox2.Click
        state 
"add"
 
       Add_Edit_Employee.Show()

 
   End Sub

    Private Sub PictureBox1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles PictureBox1.Click
        postion 
BindingContext(employees).Position
        state 
"edit"
 
       Add_Edit_Employee.Show()
 
   End Sub

    Private Sub PictureBox3_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles PictureBox3.Click
        postion 
BindingContext(employees).Position
        employees
.Rows(postion).Delete()
 
       Save_employees()
 
       load_employees()
 
   End Sub

    Private Sub PictureBox4_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles PictureBox1.Click
      
        If Employees_Show
.state "add" Then

            load_employees
()
 
           employees.Rows.Add(TextBox1.TextTextBox2.TextTextBox3.TextTextBox4.TextTextBox5.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


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


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله 

قم بارفاق ملف المشروع للتعديل عليه
المشكلة مبهمة حتى الان 
( احنا ما بنفتح بالمندل )
اعرض المشكلة بشكل كامل
و ما حد يقصر معاك ان شاء الله  
شيء ثاني ما في داعي تكتب عنوان خارج اطار المشكلة ( قانون منتدى )
رجاء احترام ضوابط المنتدى 
الرد
#3
(24-01-19, 11:27 PM) pid=\135922' كتب :الاستاذ الفاضل Amir_Alzubidy

السلام عليكم و رحمة الله 

اسف جدا لم اقصد

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


الملفات المرفقة
.rar   Meals.rar (الحجم : 3.68 م ب / التحميلات : 14)
الرد
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

أخي الفاضل أول ملاحظة على المشروع 
لا تقم بعمل 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

ونصيحة مني أخي
يفضل أن تجعل للجدول حقل ترقيم تلقائي
وأن تجعل كود الموظف أو الاي دي الخاص به ايهما اتوماتيك وليس يدويا لانه بهذة الطريقة متعب جدا لمن يدخل البيانات


تمنياتي لك بالتوفيق والنجاح
لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي 

الرد
تم الشكر بواسطة: _M.Nasser , ابراهيم ايبو , ابراهيم ايبو
#5
[quote pid='135926' dateline='1548373609']
اخي العزيز 
اشكرك عل اهتمامك
قمت بما نصحتني به ولكن لا تزال المشكلة قائمة ؟؟؟

[/quote]


الملفات المرفقة صورة/صور
       

.rar   meal.rar (الحجم : 4.46 م ب / التحميلات : 8)
الرد
تم الشكر بواسطة:
#6
بالرغم من اتفاقي مع الاخ [b]princelovelorn[/b] في وجود العديد من الملاحظات

لكن البرنامج يعمل بصورة طبيعية سواء النسخة الأصلية او النسخة بعد التركيب

افحص جهازك وحاول تركيب البرنامج على جهاز آخر
Don't Be The Perfect one
be the right one
الرد
تم الشكر بواسطة: Mohamed Abdel Nasser
#7
السلام عليكم

جرب ان تشغل البرنامج كمسؤول

او نفل البرنامج وقاعدة البينات الى قرص غير "C"
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تحويل كود من #c الي vb.net الماجيك مسعد 3 52 منذ 4 ساعة مضت
آخر رد: معاند الحظ
  احتاج كود لأنشاء امر الدفع و ربط جهاز الدفع الإلكتروني او الشبكي مع البرنامج mohamedgadain61 3 234 , 08:31 PM
آخر رد: mohamedgadain61
  مشكلة في listview crazykinko 0 51 , 01:54 PM
آخر رد: crazykinko
  لماذا تختفي القيم المسندة للاعدادات عند نقل البرنامج ابو انس 3 144 20-09-21, 10:21 PM
آخر رد: alfaiz678
  مشكلة في نقل البرنامج الى جهاز اخر سيف الشمال 8 626 19-09-21, 03:13 PM
آخر رد: سيف الشمال
Lightbulb [سؤال] عندي مشكلة في تحزيم مشروع zeyimerg 3 222 10-09-21, 08:53 PM
آخر رد: asemshahen5
Lightbulb [سؤال] عندي مشكلة في تحزيم مشروع zeyimerg 1 166 09-09-21, 04:17 PM
آخر رد: aftfm
  [VB.NET] كيفية اضافة ال public key token في البرنامج Codack 0 152 07-09-21, 07:30 PM
آخر رد: Codack
  [VB.NET] مشكلة في الحفظ علي بوبكر ابراهيم 2 313 04-09-21, 02:40 PM
آخر رد: علي بوبكر ابراهيم
Exclamation [VB.NET] سؤال حول مشكلة كتابة التاريخ في جملة update ali bajmmal 4 441 01-09-21, 06:35 PM
آخر رد: Anas Mahmoud

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم