تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نسخ وعدم اظهار رسالة تأكيد استبدال
#1
السلام عليكم 

كيف اجعل كود اخذ نسخة الاحتياطية  لقاعدة البيانات ينسخ من غير ما تظهر رسالة تأكيد استبدال لقاعدة البيانات

الكود هو : 

كود :
On Error Resume Next
   Dim SourceDir As String
   Dim DestDir As String
   Dim DatabaseFile As String
   Dim DistanationFile As String
   Dim Source As String
   Dim Destination As String

   'find out if there is file selected
   If File1.FileName = "" Then
       MsgBox "ÝÖáÇ Þã ÇæáÇ ÈÊÍÏíÏ ÇáãáÝ ", vbOKOnly, "áÇ íæÌÏ ãáÝ ãÍÏÏ"
       Exit Sub
   End If



   DatabaseFile = File1.FileName
   If Len(Dir1.Path) > 3 Then                             'not a root directory
       SourceDir = Dir1.Path & "\"
       Source = SourceDir & DatabaseFile
   Else
       SourceDir = Dir1.Path
       Source = SourceDir & DatabaseFile
   End If

   'if the want to append text to  filename
   If Check3.Value = vbChecked Then
       DistanationFile = Left$(File1.FileName, Len(File1.FileName) - 4) & txtAppend.Text & Right$(File1.FileName, 4)
   ElseIf Check1.Value = vbChecked Then
       DistanationFile = Left$(File1.FileName, Len(File1.FileName) - 4) & Format(Now, "dd-mm-yy-h-n") & Right$(File1.FileName, 4)
   Else
       DistanationFile = DatabaseFile
   End If



   If Len(Dir2.Path) > 3 Then                             'not a root directory
       DestDir = Dir2.Path & "\"
       Destination = DestDir & DistanationFile
   Else
       DestDir = Dir2.Path
       Destination = DestDir & DistanationFile
   End If

   'start copying
   CopyFileWindowsWay Source, Destination
   File2.Refresh
End Sub
الرد }}}
تم الشكر بواسطة:
#2
وعليك السلام ورحمة الله وبركاته , أهلا أخي الكريم جرب دالة النسخ هذه :

PHP كود :
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As StringByVal lpNewFileName As StringByVal bFailIfExists As Long) As Long

Private Sub Command1_Click()

Dim lRet As Long

lRet 
CopyFile("D:\db1.mdb""C:\db1.mdb"False)

If 
lRet Then
   MsgBox 
"Successful"
Else
   
MsgBox "Fail"
End If

End Sub 
الرد }}}
#3
جزاك الله خير أخي احمد منصور


اخي  احمد ولا يهون الأخوة الآخرون  في حال  اردت أن احدد مسار قاعدة البيانات في تكست 1 وأن أحدد مسار النسخ في تكست 2 كيف يمكن تعديل الكود السابق  طبعا انا حاولت ولكني فشلت كما في المرفق ارجو الإطلاع والتعديل وشكرا سلفا


الملفات المرفقة
.zip   Backup ph.zip (الحجم : 11.99 ك ب / التحميلات : 25)
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy
#4
السلام عليكم
هذا مثال تطبيقي على كود اخي احمد جزاه الله خير
بتعديل بسيط جداً



.rar   Backup ph {1}.rar (الحجم : 11.5 ك ب / التحميلات : 21)
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , rnmr
#5
Sad 
اخي امير جزاك الله خير انت وأخونا احمد ولكني اريد عملية النسخ تتم بدون ادة الCommonDialog  لأني اريد أن احدد مسار قاعدة البيانات في تكست 1 وأن أحدد مسار النسخ في تكست 2  لأنني اريد ان اعمل خاصية النسخ التلقائي  يعني احدد للبرنامج الفترة التي يجب ان يقوم بعملية النسخ من دون  فتح مربع الحوار وشكرا وسبق لي أن جربت مثل هذا التعديل ولم ينفع
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#6
ولا يهمك اخي فاضل
ارجو ان يكون هذا هو المطلوب

.rar   Backup ph {1}.rar (الحجم : 11.43 ك ب / التحميلات : 22)
الرد }}}
تم الشكر بواسطة: administrator , administrator , Ahmed_Mansoor , rnmr , rnmr
#7
مع الأسف اخي امير  يقوم النسخ فقط ل Note ولكن لما اغير المسار الذي هو مسار قاعدة البيانات فإنه لا يعمل

فمثلا عندما اغير المسار في التكست 1 :       D:\ company trade

وفي التكست 2 :      E:\ company  

فإنه لايعمل اتعبناك معنا جزاكم الله خير
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] اظهار الرصيد السابق في اول صف في Msflexgrid جلال اليمني 5 432 26-09-23, 04:24 AM
آخر رد: جلال اليمني
  رسالة خطأ تظهر لي ما الحل؟ Alhootti1 3 285 28-08-23, 02:11 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] اريد إذا كان قيمة المحول صفر يظهر لي رسالة هل يمكن ذلك ؟ Microformt 0 371 20-03-23, 08:33 PM
آخر رد: Microformt
  [vb6.0] طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى hamada salah90 2 1,264 05-12-21, 12:04 AM
آخر رد: hamada salah90
  رسالة خظأ عند تشغيل الفورم ahmed201 5 2,006 12-01-21, 07:31 PM
آخر رد: ahmed201
  رسالة خطأ في كود البحث في قاعدة البيانات اكسس ahmed201 1 1,073 04-01-21, 06:52 PM
آخر رد: aboezzat84
  ماذا يعني ظهور رسالة ( st6unst.exe) عند عمل setup للبرنامج؟ gonm64 0 1,148 11-08-20, 02:43 PM
آخر رد: gonm64
Question [vb6.0] كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم Microformt 2 1,559 01-08-20, 07:23 PM
آخر رد: Microformt
  مشكلة اظهار المجموع في فاكتيف ريبورت hannileo 3 1,678 09-06-20, 06:19 PM
آخر رد: hannileo
  [vb6.0] رسالة خطأ ارجو منكم الحل ahmed20 3 1,597 21-03-20, 05:04 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم