اريد مساعدتك في كود النسخة الاحتياطيه للقاعدة البيانات واستراجها ب الفيجوال بيسك - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : اريد مساعدتك في كود النسخة الاحتياطيه للقاعدة البيانات واستراجها ب الفيجوال بيسك (/showthread.php?tid=24755)

اريد مساعدتك في كود النسخة الاحتياطيه للقاعدة البيانات واستراجها ب الفيجوال بيسك - nosa - 01-05-18 اريد  مساعدتك في كود  النسخة الاحتياطيه للقاعدة البيانات واستراجها ب الفيجوال بيسك RE: اريد مساعدتك في كود النسخة الاحتياطيه للقاعدة البيانات واستراجها ب الفيجوال بيسك - mohammedvego - 02-05-18 Try             If Dir("D:\eer\backup", vbDirectory) = "" Then MkDir("D:\eer\backup")             sql = tf.Text + "\\ " + DateTime.Now.ToString("yyyy_MM_dd", New System.Globalization.CultureInfo("en-US")) + "___" + DateTime.Now.ToString("hh__mm__ss tt")             File.Copy(data, sql + ".bak")             MessageBox.Show("تم حفظ النسخة الاحتياطية بنجاح", "تم", MessageBoxButtons.OK, MessageBoxIcon.Information)         Catch ex As Exception             con.Close()             MessageBox.Show(ex.Message)         End Try ******************************************** If File.Exists(data) Then             File.Delete(data)         End If         File.Copy(T2.Text, data)         MessageBox.Show("تم إستعادة النسخة الاحتياطية  بنجاح", "تم", MessageBoxButtons.OK, MessageBoxIcon.Information)         T2.Text = ""