+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : عمل نسخ احتياطي والبدء من جديد من بداية العام (/showthread.php?tid=13601)
الصفحات:
1
2
RE: عمل نسخ احتياطي والبدء من جديد من بداية العام - amineinfo - 08-01-16
وكيف أعمل قطع الإتصال ؟؟؟ الأمر مستعجل كل شيئ تمام
(08-01-16, 09:48 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم ، ربما المشكله عندك هي في أنه توجد أدوات أخرى لازالت متصله بقاعدة البيانات لذلك لن يتم عمل النسخ لملف قاعدة البيانات لأنها قيد الإستخدام ، يجب عليك قبل عمل النسخ الإحتياطي أن تتأكد من قطع جميع الإتصالات بقاعدة البيانات قبل البدء بعملية النسخ .
و كيف أعمل عملية قطع الإتصال ؟؟؟ الأمر مستعجل بقي لدي يوم واحد و أسلم المشروع
(08-01-16, 05:18 PM)amineinfo كتب : وكيف أعمل قطع الإتصال ؟؟؟ الأمر مستعجل كل شيئ تمام
(08-01-16, 09:48 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم ، ربما المشكله عندك هي في أنه توجد أدوات أخرى لازالت متصله بقاعدة البيانات لذلك لن يتم عمل النسخ لملف قاعدة البيانات لأنها قيد الإستخدام ، يجب عليك قبل عمل النسخ الإحتياطي أن تتأكد من قطع جميع الإتصالات بقاعدة البيانات قبل البدء بعملية النسخ .
و كيف أعمل عملية قطع الإتصال ؟؟؟ الأمر مستعجل بقي لدي يوم واحد و أسلم المشروع
مع العلم اني عامل بالفورم1 تحديث ل 3 فورم و ذلك لإظهار الأرقام في ستاتوس بار
كيف أعمل قطع الإتصال بقاعدة البيانات ؟؟؟
كيف أقطع الإتصال بقاعدة البيانات ؟؟ مع العلم قاعدة البيانات هي اكسيس و وضعت المثال الدي رفعته انت و الذي يخص محمد بالملفات المرفقة
(26-10-15, 01:26 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم , تم التعديل , في المرفقات .
كيف أعمل عملية قطع الإتصال
RE: عمل نسخ احتياطي والبدء من جديد من بداية العام - amineinfo - 09-01-16
مشكور اخي العزيز لقد قطعت الاتصال بقاعدة البيانات بارك الله فيككككككككك
بس هناك مشكلة صغير اريد تغير مسار الحفظ و أجعله يحفظ في القرص الصلب D !!!!
RE: عمل نسخ احتياطي والبدء من جديد من بداية العام - Ahmed_Mansoor - 09-01-16
أهلا أخي الكريم ، إذا أردت أن تحفظ النسخة الإحتياطيه في القرص D قم بتغيير هذه الجملة في جميع كود المثال الذي أرفقته أنا :
PHP كود :
App.Path & "\BackupFolder\"
وأستبدلها بالقرص D هكذا :
PHP كود :
"D:\"
RE: عمل نسخ احتياطي والبدء من جديد من بداية العام - amineinfo - 09-01-16
(09-01-16, 05:57 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم ، إذا أردت أن تحفظ النسخة الإحتياطيه في القرص D قم بتغيير هذه الجملة في جميع كود المثال الذي أرفقته أنا :
PHP كود :
App.Path & "\BackupFolder\"
وأستبدلها بالقرص D هكذا :
PHP كود :
"D:\"
مشكور أخي الكريم لكن عند حفظ النسخة لاتظهر بتاريخ اليوم تظهر بهاذا الشكل & BackupName
(09-01-16, 10:11 PM)amineinfo كتب :(09-01-16, 05:57 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم ، إذا أردت أن تحفظ النسخة الإحتياطيه في القرص D قم بتغيير هذه الجملة في جميع كود المثال الذي أرفقته أنا :
PHP كود :
App.Path & "\BackupFolder\"
وأستبدلها بالقرص D هكذا :
PHP كود :
"D:\"
مشكور أخي الكريم لكن عند حفظ النسخة لاتظهر بتاريخ اليوم تظهر بهاذا الشكل & BackupName
If Dir$("D:\", vbDirectory) = "" Then
MkDir "D:\"
DoEvents
End If
If Dir$(App.Path & "\bnv111.mdb") = "" Then
MsgBox "áã íÊã ÇáÚËæÑ Úáì ÞÇÚÏÉ ÇáÈíÇäÇÊ ÈÌÇäÈ ÇáÈÑäÇãÌ!", vbOKOnly + vbExclamation, "ÊäÈíå"
Exit Sub
End If
Set Adodc1.Recordset.ActiveConnection = Nothing
DoEvents
Dim BackupName As String
BackupName = Format(Date, "YYYY-MM-DD") & "-" & _
Format(Time, "HH-MM-SS") & _
".mdb"
FileCopy App.Path & "\bnv111.mdb", "D:\" & BackupName
DoEvents
هذا هو الكود كما طلبت مني