+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استفسار بخصوص اخذ نسخه احتياطيه(تم الحل)مشكور اخوانى (waw والاخ asemshahen5) (/showthread.php?tid=39438)
الصفحات:
1
2
استفسار بخصوص اخذ نسخه احتياطيه(تم الحل)مشكور اخوانى (waw والاخ asemshahen5) - خالد كامل1 - 03-09-21
السلام عليكم ورحمه الله
احبتى فى الله عندى قاعدتين بيانات اكسس mahel.accdb وwarsha.accdb اريد اخذ نسخه احتياطيه وهذا الكود الذى استخدمه
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SFD As New SaveFileDialog
SFD.Filter = "Microsost Access 2007|*.Accdb"
'==== لكتابه │ نضغط على alt+435
If SFD.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = SFD.FileName
Dim scrpath, destpath As String
scrpath = Application.StartupPath & "\DATA\MAHEL.accdb"
destpath = SFD.FileName
My.Computer.FileSystem.CopyFile(scrpath, destpath)
MsgBox("تم عمل نسخه احتياطيه للنظام")
Dim SFD_ As New SaveFileDialog
If SFD_.Filter = "Microsost Access 2007|*.Accdb" Then
TextBox1.Text = SFD_.FileName
Dim scrpath_, destpath_ As String
scrpath_ = Application.StartupPath & "\DATA\warsha.accdb"
destpath_ = "w" And SFD.FileName
My.Computer.FileSystem.CopyFile(scrpath_, destpath_)
MsgBox("تم عمل نسخه احتياطيه للنظام")
Application.Exit()
End If
End If
End SubRE: استفسار بخصوص اخذ نسخه احتياطيه - خالد كامل1 - 03-09-21
ارجو الرد فى اقرب فرصه
RE: استفسار بخصوص اخذ نسخه احتياطيه - waw - 03-09-21
وعليكم السلام ورحمة الله
الرمز الفاصل |
alt+124
وهو موجود مع مفتاح \ + shift
بعض اللوحات يكون شكله منقسم في وسطه ولكنه عند الكتابه سيكون |
RE: استفسار بخصوص اخذ نسخه احتياطيه - خالد كامل1 - 04-09-21
(03-09-21, 10:52 PM)waw كتب : وعليكم السلام ورحمة الله
الرمز الفاصل |
alt+124
وهو موجود مع مفتاح \ + shift
بعض اللوحات يكون شكله منقسم في وسطه ولكنه عند الكتابه سيكون |
اخى مش دى المشكله المشكله ان بيحفظ قاعده البيانات الاولى والتانيه لا
RE: استفسار بخصوص اخذ نسخه احتياطيه - asemshahen5 - 04-09-21
PHP كود :
Dim fbd as new FolderBrowserDialog()
fbd.Description = "الرجاء تحديد المجلد للنسخ الاحتياطي"
If fbd.ShowDialog() = DialogResult.OK then
System.IO.File.Copy(Application.StartupPath + "\\FirstDatabase.accdb", fbd.SelectedPath + "\\FirstDatabase.accdb");
System.IO.File.Copy(Application.StartupPath + "\\FirstDatabase.accdb", fbd.SelectedPath + "\\SecandDatabase.accdb");
End If
RE: استفسار بخصوص اخذ نسخه احتياطيه - خالد كامل1 - 05-09-21
للاسف ادانى هذا الخطأ
RE: استفسار بخصوص اخذ نسخه احتياطيه - asemshahen5 - 05-09-21
ضع بدل : \\ علامة واحدة \ اعذرني لم انتبه فانا متعود على السي شارب .
و الله الموفق .
RE: استفسار بخصوص اخذ نسخه احتياطيه - خالد كامل1 - 06-09-21
(05-09-21, 02:39 PM)asemshahen5 كتب : ضع بدل : \\ علامة واحدة \ اعذرني لم انتبه فانا متعود على السي شارب .الف شكر اخى الكريم بس ممكن تكتب الكود كامل مش ظبط معايا الكود
و الله الموفق .
RE: استفسار بخصوص اخذ نسخه احتياطيه - asemshahen5 - 06-09-21
PHP كود :
Dim fbd as new FolderBrowserDialog()
fbd.Description = "الرجاء تحديد المجلد للنسخ الاحتياطي"
If fbd.ShowDialog() = DialogResult.OK then
System.IO.File.Copy(Application.StartupPath + "\FirstDatabase.accdb", fbd.SelectedPath + "\FirstDatabase.accdb");
System.IO.File.Copy(Application.StartupPath + "\FirstDatabase.accdb", fbd.SelectedPath + "\SecandDatabase.accdb");
End If
RE: استفسار بخصوص اخذ نسخه احتياطيه - خالد كامل1 - 06-09-21
مظبطتش برده معايا نفس رسالة الخطأ
PHP كود :
Dim fbd as new FolderBrowserDialog()
fbd.Description = "الرجاء تحديد المجلد للنسخ الاحتياطي"
If fbd.ShowDialog() = DialogResult.OK then
System.IO.File.Copy(Application.StartupPath + "\FirstDatabase.accdb", fbd.SelectedPath + "\FirstDatabase.accdb");
System.IO.File.Copy(Application.StartupPath + "\FirstDatabase.accdb", fbd.SelectedPath + "\SecandDatabase.accdb");
End If