منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود لنسخ قاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كود لنسخ قاعدة البيانات (/showthread.php?tid=2148)

كود لنسخ قاعدة البيانات - VB.NET - 07-03-14

اخواني لدي قاعدة بيانات اكسس 2007 اريد كود يقوم بنسخ قاعدة البيانات من مجلد المشروع الى سطح مكتب الجهاز
ارجو الافادة

RE: كود لنسخ قاعدة البيانات - VB.NET - 08-03-14

ارجو فادة

RE: كود لنسخ قاعدة البيانات - AL_BRNS - 08-03-14

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

جرب التالي
كود :
Private Sub Command1_Click()
FileCopy App.Path & "\Database.mdb", Environ("userprofile") & "\Desktop\Database.mdb"
End Sub

او
كود :
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Sub Command2_Click()
CopyFile App.Path & "\Database.mdb", Environ("userprofile") & "\Desktop\Database.mdb", False
End Sub

بالتوفيق

RE: كود لنسخ قاعدة البيانات - VB.NET - 10-03-14

مشكور اخوي الله يعطيك العافية