11-10-19, 07:18 PM
(10-10-19, 06:47 AM)asemshahen5 كتب :[quote pid='150158' dateline='1570675644']PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim savefildlg As New SaveFileDialog
With savefildlg
.Title = "الرجاء تحديد مكان حفظ قاعدة البيانات"
.Filter = "Access Database 2007 - 2019|*.Accdb|Access Database 2000 - 2003|*.mdb"
.InitialDirectory = Application.StartupPath
End With
If savefildlg.ShowDialog = Windows.Forms.DialogResult.OK Then
FileCopy(Application.StartupPath & "اسم قاعدة البيانات المصدر", Application.StartupPath & "اسم قاعدة البيانات الجديدة")
End If
End Sub
[/quote]
السلام عليكم ورحمة الله وبركاته
إخواني الكرام أتعبتكم معي كثيراً أنا لا أريد أن أعمل قاعدة بيانات جديدة ولكن عندي جدول داخل قاعدة البيانات عدلت عليه بعض البيانات وأريد أعمل نسخة منه بعد التعديل وتحفظ داخل نفس القاعدة مع بقاء بيانات الجدول الأول كما هي
بحيث أستطيع أن ‘عمل منه نسخ كثيرة وتحفظ داخل نفس القاعدة
مع جزيل الشكر لكم
دمتم بود

