الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف استخدم دالة filecopy مع common dialoge

مغلق
بدأه Dena22 في 10 نوفمبر 2005 · 3 رد · 1,147 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

أود القيام بنسخ قاعدة البيانات بحيث يتم تحديد مكان النسخ وكتابة اسم الملف من قبل المستخدم

فوضعت الكود التالي

On Error GoTo saveError
cmd1.Filter = "mdb |*.mdb"
cmd1.ShowSave
If cmd1.FileName <> "" Then
If db.State = adStateOpen Then db.Close
***************************************
'If Error Then
End If
saveError:
Exit Sub
End Sub

يفترض أن أقوم بكتابة جملة FileCopy في مكان *********** التي بالأعلى

FileCopy App.path & "\DB.mdb", "C:\DB.mdb"

ولكنني أريد كتابتها دون أن أحدد مكان قاعدة البيانات بحيث يتم النسخ في المكان الذي يختاره المستخدم؟؟؟؟؟؟؟؟؟؟؟؟؟؟

أرجو المساعدة وشكرا

#2 
dim path as string
path = cmd1.filename
filecopy path, (your destination)

Oracle 10G Certified Professional Developer.

عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي

#3

تحققي اختي دينا من الكود التالي فقد عدلت علية دون التحقق :

On Error GoTo saveError

Dim SourceFile   As String
SourceFile = App.path & "\DB.mdb"

cmd1.Filter = "mdb |*.mdb"
cmd1.ShowSave
cmd1.Flags = &H2 Or &H800 'إضهار رسالة تحذير في حال كان  الملف موجود مسبقاً ومسارة موجود
If trim(cmd1.FileName) <> "" Then
   If db.State = adStateOpen Then db.Close
  FileCopy  SourceFile,cmd1.FileName 

End If
Exit Sub

saveError:
MsgBox err.Description
End Sub

SourceFile المكان الذي توجد به قاعدة البيانات التي تريدين عمل نسخ إحتياطي منها

التخصص : نظم معلومات - جامعة سبأ - اليمن

من مواضيعي :

السلسلة الذهبية في تعلم البرمجة [شرح عن الإجراءات والدوال function وبناء الـ Classes] .

#4

شكرا جزيلا antic_boy و فواز الشمري

لقد جربت كود الأخ فواز الشمري واشتغل معي تمام

جزاكم الله خيرا

هذا الموضوع مغلق.

مواضيع مشابهة