تقييم الموضوع :
  • 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()
الله عليك بارك الله فيك
الرد
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] زر او فورم يظهر و يختفي بشكل اوتوماتيكي على اساس الزمن SEDMED 0 45 منذ 11 ساعة مضت
آخر رد: SEDMED
Exclamation [VB.NET] كود عندما يتم تحميل الصفحة كاملة في WebBrowser يكمل تنفيذ الكود SnTnt 4 137 أمس, 01:25 AM
آخر رد: SnTnt
  [VB.NET] تنفيذ الكود حينما لا يجد له اسم او Attribute ابو روضة 7 207 10-09-19, 06:08 PM
آخر رد: mohamedahmed1
  اخوانى الكود ينفذ الامر خطا خالد كامل1 6 168 02-09-19, 02:22 AM
آخر رد: AAAAAAAAA
  [سؤال] لدي جدول به اسعار اريد السعر من خلال رقم الكلاس مرفق الكود dametucorazon 5 187 01-09-19, 03:44 PM
آخر رد: dametucorazon
  مساعدة في تعديل الكود mohamedahmed1 2 103 25-08-19, 07:40 PM
آخر رد: mohamedahmed1
Sad [سؤال] لدي مشكلة في الكود الاتصال tridz 13 335 24-08-19, 05:09 PM
آخر رد: سعود
  مساعدة ففي اصلاح هذا الكود mohamedahmed1 2 115 24-08-19, 03:24 AM
آخر رد: mohamedahmed1
Thumbs Up [VB.NET] هل ممكن تغيير رقم الهارد عن طريق الكود رمضان محمد 1 312 16-08-19, 11:08 PM
آخر رد: عماني939
  [VB.NET] هذا الخطأ في هذا الكود mac9 2 117 13-08-19, 01:33 AM
آخر رد: الرائد

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


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