تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
احتاج كود لعمل نسخة من قاعدة بيانات اكسس اثناء الاتصال بها
#1
احتاج كود لعمل نسخة من قاعدة بيانات اكسس  عندما تكون مفتوحة او اثناء الاتصال بها.

انا استخدم     FileCopy  ولكن يلزم قطع الاتصال قبل النسخ.



هل يوجد طريقة 

------------------------------
بسم الله الرحمن الرحيم

Heart     مرحباً     C#   Heart
على الله توكلنا
مبتدئ سي شارب من 02/02/2017
الرد }}}}
تم الشكر بواسطة:
#2
اخوية العزيز اذا تحب تنسخ ملف اثناء استخدامة فلازم تستخدم نسخ الملف كBinary
PHP كود :
Private Sub cmdBackupDataBase_Click()
 
     Dim X As String
      Open App
.Path "\file.mdb" For Binary As #1
 
     Open App.Path "\file_Copy.mdb" For Binary As #2
 
     X String(LOF(1) - 1" ")
 
     Get #1, , X
 
     Put #2, , X
 
     Close
End Sub 
الرد }}}}
#3
أهلا بك أخي الكريم , جرب الثلاث طرق , الطريقة الأولى طريقة الأخ "محمد العبيدي" وهاذي طريقتين إضافيه :

- الطريقة الثانية : هي بإستخدام مكتبة الـ Microsoft Scripting Runtime حيث لابد أولا من إضافتها لمشروع برنامجك وذلك بالذهاب إلى قائمة "Project " أو "مشروع" في شاشة برنامج الفيجول بيسك ثم إختيار الأمر "References" أو "مراجع" ثم بعد ظهور الشاشة الخاصه بأسماء المكتبات إبحث عن إسم المكتبه التي بإسم  Microsoft Scripting Runtime ثم ضع علامة صح عليها ثم "OK" أو "موافق" ثم إستخدم الكود التالي :

PHP كود :
Private Sub Command1_Click()

Dim FSO As New FileSystemObject

FSO
.CopyFile "D:\db1.mdb""C:\db1.mdb"
DoEvents

Set FSO 
Nothing

End Sub 

- ملاحظه :- إذا إستخدمت الطريقة الثانية , يجب إرفاق ملف المكتبة المستخدمه وهو بإسم scrrun.dll يجب إرفاقه مع ملفات تثبيت برنامجك عند تحزيم ملفات برنامجك , وهذا الملف موجود في جهازك في هذا المسار : C:Windows\System32

- الطريقة الثالثة : وهي بإستخدام دالة API , قم بإضافة هذا الكود في أعلى كود الفورم الذي تريد إستخدام كود النسخ فيه :

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

Private Function CopyFileA(OldFileName As StringNewFileName As String) As Boolean
On Error Resume Next
Err.Clear

If CopyFile(OldFileNameNewFileNameFalse) <> 1 Then
   CopyFileA 
False
Else
 
  CopyFileA True
End 
If

End Function 

ثم إستخدم كود النسخ في المكان الذي تريد في الفورم هكذا :

PHP كود :
Private Sub Command1_Click()

If 
CopyFileA("D:\db1.mdb""C:\db1.mdb") = True Then
   MsgBox 
"تم النسخ بنجاح"
Else
 
  MsgBox "لم يتم النسخ"
End If

End Sub 
الرد }}}}
#4
(31-10-16, 10:13 PM)محمد العبيدي كتب : اخوية العزيز اذا تحب تنسخ ملف اثناء استخدامة فلازم تستخدم نسخ الملف كBinary
PHP كود :
Private Sub cmdBackupDataBase_Click()
 
     Dim X As String
      Open App
.Path "\file.mdb" For Binary As #1
 
     Open App.Path "\file_Copy.mdb" For Binary As #2
 
     X String(LOF(1) - 1" ")
 
     Get #1, , X
 
     Put #2, , X
 
     Close
End Sub 


الف الف شكر اخي الكريم الغالي / [b]محمد العبيدي[/b]

الله يحفظك ويجزيك الف خير

(01-11-16, 01:47 AM)Ahmed_Mansoor كتب : أهلا بك أخي الكريم , جرب الثلاث طرق , الطريقة الأولى طريقة الأخ "محمد العبيدي" وهاذي طريقتين إضافيه :

- الطريقة الثانية : هي بإستخدام مكتبة الـ Microsoft Scripting Runtime حيث لابد أولا من إضافتها لمشروع برنامجك وذلك بالذهاب إلى قائمة "Project " أو "مشروع" في شاشة برنامج الفيجول بيسك ثم إختيار الأمر "References" أو "مراجع" ثم بعد ظهور الشاشة الخاصه بأسماء المكتبات إبحث عن إسم المكتبه التي بإسم  Microsoft Scripting Runtime ثم ضع علامة صح عليها ثم "OK" أو "موافق" ثم إستخدم الكود التالي :

PHP كود :
Private Sub Command1_Click()

Dim FSO As New FileSystemObject

FSO
.CopyFile "D:\db1.mdb""C:\db1.mdb"
DoEvents

Set FSO 
Nothing

End Sub 

- ملاحظه :- إذا إستخدمت الطريقة الثانية , يجب إرفاق ملف المكتبة المستخدمه وهو بإسم scrrun.dll يجب إرفاقه مع ملفات تثبيت برنامجك عند تحزيم ملفات برنامجك , وهذا الملف موجود في جهازك في هذا المسار : C:Windows\System32

- الطريقة الثالثة : وهي بإستخدام دالة API , قم بإضافة هذا الكود في أعلى كود الفورم الذي تريد إستخدام كود النسخ فيه :

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

Private Function CopyFileA(OldFileName As StringNewFileName As String) As Boolean
On Error Resume Next
Err.Clear

If CopyFile(OldFileNameNewFileNameFalse) <> 1 Then
   CopyFileA 
False
Else
 
  CopyFileA True
End 
If

End Function 

ثم إستخدم كود النسخ في المكان الذي تريد في الفورم هكذا :

PHP كود :
Private Sub Command1_Click()

If 
CopyFileA("D:\db1.mdb""C:\db1.mdb") = True Then
   MsgBox 
"تم النسخ بنجاح"
Else
 
  MsgBox "لم يتم النسخ"
End If

End Sub 

عاجز عن الشكر استاذي الفاضل / Ahmed_Mansoor

الله يطول بعمرك ويجزيك الف خير 
بسم الله الرحمن الرحيم

Heart     مرحباً     C#   Heart
على الله توكلنا
مبتدئ سي شارب من 02/02/2017
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية اضافة استعلام وحفظه في قاعدة بيانات أبوسعود 4 93 17-05-17, 02:56 PM
آخر رد: أبوسعود
  [سؤال] معرفة اسماء الجداول الموجودة داخل قاعدة بيانات أبوسعود 5 173 15-05-17, 11:28 PM
آخر رد: Ahmed_Mansoor
  [سؤال] كود اضافة سجلات لجدول موجود في قاعدة بيانات باستخدام الاداة adox أبوسعود 2 79 04-05-17, 03:28 AM
آخر رد: أبوسعود
  ارجو المساعدة في اقرب وقت (حول ملأ الكمبو بوكس من جدول في قاعدة البيانات) larbihamri 6 183 01-05-17, 03:06 PM
آخر رد: mosamosa
  [vb6.0] ارجوا المساعدة في اظهار بيانات الفورم الأول في الفورم الثالث عبدالقادرعواد 2 99 22-04-17, 11:00 AM
آخر رد: عبدالقادرعواد
  [سؤال] ادوات ربط قواعد بيانات اكسس أبوسعود 3 121 19-04-17, 02:53 PM
آخر رد: عبد العزيز البسكري
  [vb6.0] طريقة ترقيم عمود في الداتا قريد و حل مشكلة الترقيم التلقائي في قاعدة البيانات larbihamri 9 235 16-04-17, 08:28 PM
آخر رد: larbihamri
  [vb6.0] ممكن شرح طريقة ربط في قاعدة بيانات واحدة بجدولين MSHFlexGrid2+MSHFlexGrid1 عبدالقادرعواد 3 108 11-04-17, 06:08 PM
آخر رد: sendbad100
  هل من الممكن تعديل بيانات عدد من السجلات في الجدول دفعة واحدة كنونو 6 190 01-04-17, 03:56 PM
آخر رد: كنونو
  [ تمّ الحل ] : التّعامل مع بيانات جداول مختلفة عبد العزيز البسكري 5 158 18-03-17, 05:39 AM
آخر رد: Ahmed_Mansoor

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


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