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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سورس كود الارسال الى الواتس -يعمل يرجي التعاون للتطوير new_programer 5 228 03-03-24, 08:45 PM
آخر رد: new_programer
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
Heart اقدم لكم هدية تصفح منتدى vb4arb.com بشكل أفضل من قبل مع ( vb4arb Code Highlighter ) عبدالله الدوسري 5 1,718 24-01-24, 10:31 PM
آخر رد: annagui
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  كيف يتم تعبئة قريد فيو بدون قاعدة بيانات بشكل مباشر؟ nowiglah 1 375 01-12-23, 10:57 PM
آخر رد: Taha Okla
Exclamation [VB.NET] من يقدر يعمل لي استعلام يحقق طلبي ؟ أبو خالد الشكري 5 417 09-11-23, 02:25 PM
آخر رد: أبو خالد الشكري

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


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