مساعدة فى نسخ قاعدة بيانات

من طرف gadr الأحد يوليو 26, 2015 5:10 pm

الاخوة الكرام وجدة برنامج مصمم بلغة الدلفي وتوجد به طريقة لنسخ قاعد البيانات بطريقة جميلة ويلكم الصور
وحاولت تطبيق الفكر على فيجوال بيسك 6 ولم استطع

المرفقات

: 2015-07-26_190432.jpg لا تتوفر على صلاحيات كافية لتحميل هذه المرفقات.(29 Ko) عدد مرات التنزيل 12

من طرف **زهراء** الإثنين يوليو 27, 2015 8:25 am

يمكنك استخدام الطريقة copyfile لعملية نسخ قاعدة البيانات من باتش لآخر علي النحو التالي

الكود:: CopyFile "C:\Files\file.accdb", "C:\Files\file_copy.accdb"

ولمزيد من المعلومات حول تلك الطريقة يرجى الاطلاع علي العنوان التالي
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

من طرف gadr الإثنين يوليو 27, 2015 4:50 pm

مشكور اختي زهراء ولكن هذه الكود ثابت اى نسخ ملف من c الى c

الكود:: CopyFile "C:\Files\file.accdb", "C:\Files\file_copy.accdb"

وفى الصوره المرفقة الاداة المستخدم كومبو بوكس وفيه حرية الختيار فكيف يتم برمجتها على حسب اختيار المستخدم

من طرف gadr الإثنين أغسطس 03, 2015 10:23 am

يبدو ان الامر صعب

من طرف abo_maleeka الأحد أكتوبر 23, 2016 1:31 pm

بسم الله الرحمن الرحيم
سأشرح لك الامر اخى الكريم
ابدأ بأسم الله وافتح الفيجوال بيسك 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

1	#الحديثة
2	#الدورات
3	#موقع_لي_نور_الإلكتروني
4	#java
5	#datagridview
6	#سكن
7	#عقار
8	#عقارات
9	#استثمار
10	#الامارات

مساعدة فى نسخ قاعدة بيانات

مساعدة فى نسخ قاعدة بيانات

رد: مساعدة فى نسخ قاعدة بيانات

رد: مساعدة فى نسخ قاعدة بيانات

رد: مساعدة فى نسخ قاعدة بيانات

رد: مساعدة فى نسخ قاعدة بيانات

مواضيع ذات صلة