تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الكود يعمل بشكل صحيح ولكن
#1
السلام عليكم احبتى فى الله
اعلم باننى كثير الاسئله فاعزرونى واقدر لكم كل مجهوداتكم معى
اتمنى من الله ان تكونوا باتم الصحه والخير 

هذا الكود الموضح يعمل معى تمام فى استعاده النسخه الاحتياطيه ولكن به مشكله 
عند استعاده النسخه 
يستعيدها بعمليه صحيحيه جدا 
ولكن بعد الاستعاده لو قمت باى اجراء على البرنامج يعطينى انه لا يوجد قاعده البيانات التى مسارها 
الغريب بنها تاخذ المسار الئى اخذت منه النسخه الاحتياطيه 
ولولا ان اقفل البرنامج واعاود فتحه حتى يعود كل شئ كما كان ويعمل البرنامج بشكل صحيح
فهل هناك خطأ فى الكود وماهى الطريقه التى يجعل البرنامج ياخذ نفس مسار قاعده البيانات بدون غلقه
وشكرا 
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Try


           Dim scrpath, destpath, compdestpath As String
           Dim OFD As New OpenFileDialog
           destpath = Application.StartupPath & " "
           compdestpath = Path.Combine(destpath, "SADANY.accdb")
           OFD.Filter = "Microsost Access 2007|*.Accdb"
           If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
               scrpath = OFD.FileName

           End If
           If My.Computer.FileSystem.FileExists(compdestpath) = True Then
               If MessageBox.Show(" هل تريد فعلا الاستعاده ", "تنبيه", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No Then
                   Exit Sub
               Else



                   My.Computer.FileSystem.DeleteFile(compdestpath)
                   My.Computer.FileSystem.CopyFile(OFD.FileName, compdestpath)
                   con.Open()
                   MsgBox("تم ستعاده النسخه بنجاح")

               End If
           End If

       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try


   End Sub
الرد
تم الشكر بواسطة: Emam emam
#2
ارجو الاجابه
الرد
تم الشكر بواسطة:
#3
(18-08-19, 12:14 AM)خالد كامل1 كتب : السلام عليكم احبتى فى الله
اعلم باننى كثير الاسئله فاعزرونى واقدر لكم كل مجهوداتكم معى
اتمنى من الله ان تكونوا باتم الصحه والخير 

هذا الكود الموضح يعمل معى تمام فى استعاده النسخه الاحتياطيه ولكن به مشكله 
عند استعاده النسخه 
يستعيدها بعمليه صحيحيه جدا 
ولكن بعد الاستعاده لو قمت باى اجراء على البرنامج يعطينى انه لا يوجد قاعده البيانات التى مسارها 
الغريب بنها تاخذ المسار الئى اخذت منه النسخه الاحتياطيه 
ولولا ان اقفل البرنامج واعاود فتحه حتى يعود كل شئ كما كان ويعمل البرنامج بشكل صحيح
فهل هناك خطأ فى الكود وماهى الطريقه التى يجعل البرنامج ياخذ نفس مسار قاعده البيانات بدون غلقه
وشكرا 
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Try


           Dim scrpath, destpath, compdestpath As String
           Dim OFD As New OpenFileDialog
           destpath = Application.StartupPath & " "
           compdestpath = Path.Combine(destpath, "SADANY.accdb")
           OFD.Filter = "Microsost Access 2007|*.Accdb"
           If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
               scrpath = OFD.FileName

           End If
           If My.Computer.FileSystem.FileExists(compdestpath) = True Then
               If MessageBox.Show(" هل تريد فعلا الاستعاده ", "تنبيه", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No Then
                   Exit Sub
               Else



                   My.Computer.FileSystem.DeleteFile(compdestpath)
                   My.Computer.FileSystem.CopyFile(OFD.FileName, compdestpath)
                   con.Open()
                   MsgBox("تم ستعاده النسخه بنجاح")

               End If
           End If

       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try


   End Sub
وعليكم السلام ورحمة الله وبركاته
جرب الكود بعد التعديل وان شاء الله يعمل معك بشكل صحيح
PHP كود :
 Dim scrpathdestpathcompdestpath As String
            destpath 
Application.StartupPath
            compdestpath 
Path.Combine(destpath"SADANY.accdb")
 
           OpenFileDialog1.Filter "Access DB | *.accdb | All Files | *"
 
           If OpenFileDialog1.ShowDialog DialogResult.OK Then
                scrpath 
OpenFileDialog1.FileName
            End 
If

 
           If My.Computer.FileSystem.FileExists(compdestpath) = True Then

                If connSQL
.State 1 Then connSQL.Close()
 
               connSQL.Open()
 
               connSQL.Close()
 
               My.Computer.FileSystem.DeleteFile(compdestpath)
 
               My.Computer.FileSystem.CopyFile(OpenFileDialog1.FileNamecompdestpathTrue)
 
               MsgBox("تم استرجاع البيانات بنجاح")
 
           Else
                MsgBox
("قاعدة البيانات مفقوده")
 
           End If 
الرد
تم الشكر بواسطة: خالد كامل1
#4
(18-08-19, 02:55 AM)Emam emam كتب :
(18-08-19, 12:14 AM)خالد كامل1 كتب : السلام عليكم احبتى فى الله
اعلم باننى كثير الاسئله فاعزرونى واقدر لكم كل مجهوداتكم معى
اتمنى من الله ان تكونوا باتم الصحه والخير 

هذا الكود الموضح يعمل معى تمام فى استعاده النسخه الاحتياطيه ولكن به مشكله 
عند استعاده النسخه 
يستعيدها بعمليه صحيحيه جدا 
ولكن بعد الاستعاده لو قمت باى اجراء على البرنامج يعطينى انه لا يوجد قاعده البيانات التى مسارها 
الغريب بنها تاخذ المسار الئى اخذت منه النسخه الاحتياطيه 
ولولا ان اقفل البرنامج واعاود فتحه حتى يعود كل شئ كما كان ويعمل البرنامج بشكل صحيح
فهل هناك خطأ فى الكود وماهى الطريقه التى يجعل البرنامج ياخذ نفس مسار قاعده البيانات بدون غلقه
وشكرا 
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Try


           Dim scrpath, destpath, compdestpath As String
           Dim OFD As New OpenFileDialog
           destpath = Application.StartupPath & " "
           compdestpath = Path.Combine(destpath, "SADANY.accdb")
           OFD.Filter = "Microsost Access 2007|*.Accdb"
           If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
               scrpath = OFD.FileName

           End If
           If My.Computer.FileSystem.FileExists(compdestpath) = True Then
               If MessageBox.Show(" هل تريد فعلا الاستعاده ", "تنبيه", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No Then
                   Exit Sub
               Else



                   My.Computer.FileSystem.DeleteFile(compdestpath)
                   My.Computer.FileSystem.CopyFile(OFD.FileName, compdestpath)
                   con.Open()
                   MsgBox("تم ستعاده النسخه بنجاح")

               End If
           End If

       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try


   End Sub
وعليكم السلام ورحمة الله وبركاته
جرب الكود بعد التعديل وان شاء الله يعمل معك بشكل صحيح
PHP كود :
 Dim scrpathdestpathcompdestpath As String
            destpath 
Application.StartupPath
            compdestpath 
Path.Combine(destpath"SADANY.accdb")
 
           OpenFileDialog1.Filter "Access DB | *.accdb | All Files | *"
 
           If OpenFileDialog1.ShowDialog DialogResult.OK Then
                scrpath 
OpenFileDialog1.FileName
            End 
If

 
           If My.Computer.FileSystem.FileExists(compdestpath) = True Then

                If connSQL
.State 1 Then connSQL.Close()
 
               connSQL.Open()
 
               connSQL.Close()
 
               My.Computer.FileSystem.DeleteFile(compdestpath)
 
               My.Computer.FileSystem.CopyFile(OpenFileDialog1.FileNamecompdestpathTrue)
 
               MsgBox("تم استرجاع البيانات بنجاح")
 
           Else
                MsgBox
("قاعدة البيانات مفقوده")
 
           End If 
لم تفلح الطريقه يعطينى نفس الخطأ
الرد
تم الشكر بواسطة:
#5
السلام عليكم اخي خالد
الامر الذي تتحدث عنه طبيعي يجب اعادة تشغيل البرنامج بعد اعادة قاعدة البيانات ليتم الاتصال مع القاعدة الجديدة حتى ولو كانت بنفس الاسم
يمكنك كتابة السطر التالي في نهاية كود Restore ليتم عمل Restart للبرنامج

كود :
Application.Restart()
الرد
#6
(18-08-19, 04:21 AM)ابراهيم ايبو كتب :
السلام عليكم اخي خالد
الامر الذي تتحدث عنه طبيعي يجب اعادة تشغيل البرنامج بعد اعادة قاعدة البيانات ليتم الاتصال مع القاعدة الجديدة حتى ولو كانت بنفس الاسم
يمكنك كتابة السطر التالي في نهاية كود Restore ليتم عمل Restart للبرنامج

كود :
Application.Restart()
الله عليك بارك الله فيك
الرد
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من اضافة الترليون لهذا الكود seif mohamed 0 153 27-01-20, 11:12 PM
آخر رد: seif mohamed
  ممكن تحويل هذا الكود ال .net mohamedahmed1 2 48 24-01-20, 12:44 PM
آخر رد: mohamedahmed1
  عدم إشتغال هذا الكود في معظم الحالات ahmedfa71 6 148 22-01-20, 05:16 PM
آخر رد: asemshahen5
  [سؤال] طرب الويندوز ومحتاج اجداد الكود سحاب روابط قائيمة تشغيل من اليتيوب Ali Edal 7 245 21-01-20, 07:57 PM
آخر رد: abubasilIraq
Exclamation [VB.NET] هل يوجد ويب بروزر غير الويب البروزر الموجود على الفجوال بيسك ويعمل بشكل صحيح SnTnt 9 311 21-01-20, 07:45 PM
آخر رد: abubasilIraq
  اريد معرفه شئ صعب شويه ولكن لم يصعب عليكم اتمني مشاركه الاخ ابوروضه اليوم السابع 4 160 21-01-20, 05:26 PM
آخر رد: ابو روضة
  سؤال بعد اذنكم مش عارف استخدم الكود ده اليوم السابع 5 172 20-01-20, 05:43 PM
آخر رد: عبد العزيز البسكري
  [سؤال] ما الخطأ في هذا الكود sawsan 2 101 17-01-20, 09:51 PM
آخر رد: sawsan
  مشكلة في الكود اسامه الهرماوي 3 155 10-01-20, 03:27 AM
آخر رد: اسامه الهرماوي
  [سؤال] اين الخطأ في هذا الكود اليوم السابع 21 494 06-01-20, 11:40 AM
آخر رد: جميل

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


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