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

الرد
تم الشكر بواسطة:
#2
اتمنى من الاخوان ان يساعدونى فى حل تلك المشكله
الرد
تم الشكر بواسطة:
#3
PHP كود :
Dim OpenAccess As New OpenFileDialog With {.Filter "Microsost Access 1997-2003|*.mdb|All File|*.*", .ShowHelp True}
If 
OpenAccess.ShowDialog DialogResult.OK Then
    FileName 
OpenAccess.FileName
    Label11
.Text OpenAccess.SafeFileName
End 
if 
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#4
(17-08-19, 04:21 PM)asemshahen5 كتب :
PHP كود :
Dim OpenAccess As New OpenFileDialog With {.Filter "Microsost Access 1997-2003|*.mdb|All File|*.*", .ShowHelp True}
If 
OpenAccess.ShowDialog DialogResult.OK Then
    FileName 
OpenAccess.FileName
    Label11
.Text OpenAccess.SafeFileName
End 
if 

بس ده اكسس 2007
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#5
PHP كود :
Dim OpenAccess As New OpenFileDialog With {.Filter "Microsost Access 2007-2016|*.Accdb|All File|*.*", .ShowHelp True}
If 
OpenAccess.ShowDialog DialogResult.OK Then
    FileName 
OpenAccess.FileName
    Label11
.Text OpenAccess.SafeFileName
End 
if 
الرد
#6
(17-08-19, 06:04 PM)asemshahen5 كتب :
PHP كود :
Dim OpenAccess As New OpenFileDialog With {.Filter "Microsost Access 2007-2016|*.Accdb|All File|*.*", .ShowHelp True}
If 
OpenAccess.ShowDialog DialogResult.OK Then
    FileName 
OpenAccess.FileName
    Label11
.Text OpenAccess.SafeFileName
End 
if 
فى الكود     FileName = OpenAccess.FileName
   FileName اعوض عنها بايه لان بيديى ITEM غير معروف
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#7
حط الاداه او الي انت عايزه .

Textbox1.text
الرد
تم الشكر بواسطة: خالد كامل1 , ابراهيم ايبو
#8
(17-08-19, 06:40 PM)asemshahen5 كتب : حط الاداه او الي انت عايزه
انا بكلم عن الجزء ده فى الكود
 FileName = OpenAccess.FileName
FILENAME دى اعوض عنها بايه 
اما LABLE1.TEXT دى فاهمها
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#9
بص يامعلم :

PHP كود :
       Dim SaveAccess As New SaveFileDialog With {.Filter "Microsost Access 2007-2016|*.Accdb|All File|*.*", .ShowHelp True}
 
       If SaveAccess.ShowDialog DialogResult.OK Then
''
 
           TextBox1.Text SaveAccess.FileName
'و الباقي من عندك من الكود الي تحت ده مش شيفه بسبب رسالة الخطأ'
 
       End If 
الرد
#10
(17-08-19, 06:55 PM)asemshahen5 كتب : بص يامعلم :

PHP كود :
       Dim SaveAccess As New SaveFileDialog With {.Filter "Microsost Access 2007-2016|*.Accdb|All File|*.*", .ShowHelp True}
 
       If SaveAccess.ShowDialog DialogResult.OK Then
''
 
           TextBox1.Text SaveAccess.FileName
'و الباقي من عندك من الكود الي تحت ده مش شيفه بسبب رسالة الخطأ'
 
       End If 
اخى انا استعملت هذا الكود ويعمل بشكل صحيح ولكن بعد استعاده النسخه لا يقبل اى عمل على البرنامج ويخرج خطأ بانه لا يجد قاعده البيانات فى المسار وياخذ المسار الذى وضعت فيه النسخه الاحتياطيه وبعد ان اغبق البرنامج وافتحه مره اخرى يعود البرنامج الى طبيعته 


كود :
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
الرد
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية حذف صف من قاعدة البيانات باستخدام الكومبوبكس الرائد 4 166 24-01-20, 12:29 PM
آخر رد: abubasilIraq
  [VB.NET] حذف من جدولين في قاعدة البيانات Mtaktak 5 198 24-01-20, 12:25 PM
آخر رد: Mtaktak
  عمل Attach لقاعدة البيانات المتألق9 1 91 18-01-20, 10:15 PM
آخر رد: boudyonline
  مشكلة في تعديل البيانات باستخدام جملة update جيولوجي مبتدئ 4 169 12-01-20, 01:53 AM
آخر رد: عبد العزيز البسكري
  نسخ القاعدة البيانات من نوع اوراكل بسام محمدغانم 3 148 08-01-20, 05:13 AM
آخر رد: اسامه الهرماوي
  [سؤال] هل يلزم تصميم قاعدة البيانات ب اكسس 2007 فقط عمادمبارك 2 153 02-01-20, 09:47 PM
آخر رد: عمادمبارك
  سؤال فى قواعد البيانات احمد خطاب 0 99 27-12-19, 11:21 PM
آخر رد: احمد خطاب
  [سؤال] قاعدة البيانات تأخذ وقت طويل لتحميل البيانات ma7ame7o 1 140 26-12-19, 02:45 AM
آخر رد: اسامه الهرماوي
  سؤال عن استعلام بدون تكرار البيانات Emam emam 4 194 20-12-19, 02:41 PM
آخر رد: asemshahen5
  [VB.NET] عدم الحفظ في قاعدة البيانات Mtaktak 9 232 20-12-19, 09:20 AM
آخر رد: معاند الحظ

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


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