مساعدة فى نسخ قاعدة بيانات
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1 • شاطر
مساعدة فى نسخ قاعدة بيانات
الاخوة الكرام وجدة برنامج مصمم بلغة الدلفي وتوجد به طريقة لنسخ قاعد البيانات بطريقة جميلة ويلكم الصور
وحاولت تطبيق الفكر على فيجوال بيسك 6 ولم استطع
وحاولت تطبيق الفكر على فيجوال بيسك 6 ولم استطع
- المرفقات
gadr- ...
- تاريخ التسجيل : 16/11/2014
المساهمات : 45
النقاط : 57
التقيم : 0
الدولة :
الجنس :
رد: مساعدة فى نسخ قاعدة بيانات
يمكنك استخدام الطريقة copyfile لعملية نسخ قاعدة البيانات من باتش لآخر علي النحو التالي
ولمزيد من المعلومات حول تلك الطريقة يرجى الاطلاع علي العنوان التالي
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
- الكود:
CopyFile "C:\Files\file.accdb", "C:\Files\file_copy.accdb"
ولمزيد من المعلومات حول تلك الطريقة يرجى الاطلاع علي العنوان التالي
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
زهراء- ........
- تاريخ التسجيل : 18/02/2011
المساهمات : 438
النقاط : 769
التقيم : 67
الدولة :
الجنس :
رد: مساعدة فى نسخ قاعدة بيانات
مشكور اختي زهراء ولكن هذه الكود ثابت اى نسخ ملف من c الى c
- الكود:
CopyFile "C:\Files\file.accdb", "C:\Files\file_copy.accdb"
gadr- ...
- تاريخ التسجيل : 16/11/2014
المساهمات : 45
النقاط : 57
التقيم : 0
الدولة :
الجنس :
رد: مساعدة فى نسخ قاعدة بيانات
يبدو ان الامر صعب
gadr- ...
- تاريخ التسجيل : 16/11/2014
المساهمات : 45
النقاط : 57
التقيم : 0
الدولة :
الجنس :
رد: مساعدة فى نسخ قاعدة بيانات
بسم الله الرحمن الرحيم
سأشرح لك الامر اخى الكريم
ابدأ بأسم الله وافتح الفيجوال بيسك 6 وانشئ فورم جديد
1- انشأ زر جديد Command1
2- انشأ ليبل جديد Label1
3- افتح نافذة الكود وضع التالى
وغير ما يلزمك بداخل الكود - مسار واسم المجلد
سأشرح لك الامر اخى الكريم
ابدأ بأسم الله وافتح الفيجوال بيسك 6 وانشئ فورم جديد
1- انشأ زر جديد Command1
2- انشأ ليبل جديد Label1
3- افتح نافذة الكود وضع التالى
وغير ما يلزمك بداخل الكود - مسار واسم المجلد
- الكود:
Dim myObject As New FileSystemObject
Private Sub Command1_Click()
If myObject.FolderExists("D:\") Then
Command1.Enabled = False
End If
myObject.CopyFolder "C:\Program Files\Customers_Serv\backup", "D:\DataBase_BackUp", True
MsgBox "تم النسخ بنجاح", vbOKOnly
End Sub
Private Sub Form_Load()
myObject.FolderExists "D:\DataBase_BackUp"
MsgBox "folder exsist", vbOKOnly
Label1.Caption = "D:\DataBase_BackUp"
End Sub
abo_maleeka- .
- تاريخ التسجيل : 11/10/2016
المساهمات : 2
النقاط : 2
التقيم : 0
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
أمس في 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا
» افضل شركة مكافحة النمل الابيض بالرياض
الإثنين أبريل 22, 2024 9:41 pm من طرف moslema_r
» Exemplary Сasual Dating - Verified Women
الخميس أبريل 18, 2024 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
الخميس أبريل 18, 2024 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
الخميس أبريل 18, 2024 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft