تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استفسار اخوانى احبكم الله
#1
سعدتم بالبشر والفرح احبتى فى الله
لو مشروع قاعده بياناته اكسس وقد ملئت تلك القاعده ولم تعد تستقبل اى مدخلات ما العمل
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#2
(23-07-20, 04:56 AM)خالد كامل1 كتب :
سعدتم بالبشر والفرح احبتى فى الله
لو مشروع قاعده بياناته اكسس وقد ملئت تلك القاعده ولم تعد تستقبل اى مدخلات ما العمل


أخى خالد .. لم أصادف حالة مثل تلك من قبل .. لكن حتى لو حدث من المفترض هناك أمرين يتم عملهم :
1- عمل فحص لقاعدة البيانات من خلال قاعدة شرطية بوصولها الى حجم معين يتم استبدالها بأخرى خالية من السجلات مع عمل نسخة احتياطية فى البداية من الأولى .
2- هناك اجراء فى قواعد بيانات أكسيس لضغط قاعدة البيانات و هو بالتأكيد يساهم فى عملية زيادة القدرة الاستيعابية 
و لن أنسى أن أؤكد أن الاصدارات الحديثة مثل 2019 تستوعب حجم سجلات كبير جداا
الرد }}}
#3
(23-07-20, 05:01 AM)DR.YASER كتب :
(23-07-20, 04:56 AM)خالد كامل1 كتب :
سعدتم بالبشر والفرح احبتى فى الله
لو مشروع قاعده بياناته اكسس وقد ملئت تلك القاعده ولم تعد تستقبل اى مدخلات ما العمل


أخى خالد .. لم أصادف حالة مثل تلك من قبل .. لكن حتى لو حدث من المفترض هناك أمرين يتم عملهم :
1- عمل فحص لقاعدة البيانات من خلال قاعدة شرطية بوصولها الى حجم معين يتم استبدالها بأخرى خالية من السجلات مع عمل نسخة احتياطية فى البداية من الأولى .
2- هناك اجراء فى قواعد بيانات أكسيس لضغط قاعدة البيانات و هو بالتأكيد يساهم فى عملية زيادة القدرة الاستيعابية 
و لن أنسى أن أؤكد أن الاصدارات الحديثة مثل 2019 تستوعب حجم سجلات كبير جداا

اولا دكتور ياسر اشكرك على سرعه الرد وكل عام وانت بخير
ثانيا هل من الممكن مثال (1- عمل فحص لقاعدة البيانات من خلال قاعدة شرطية بوصولها الى حجم معين يتم استبدالها بأخرى خالية من السجلات مع عمل نسخة احتياطية فى البداية من الأولى .)
ولكى منى جزيل الشكر
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#4
تفضل أخى العزيز


كود :
Imports System.IO

Module Module1

   Sub Main()
       ' Get file info for test.txt.
       ' ... Create this file in Visual Studio and select Copy If Newer on its properties.
       Dim info As New FileInfo("test.txt")

       ' Get length of the file.
       Dim length As Long = info.Length

       ' Add more characters to the file.
       File.AppendAllText("test.txt", " More characters.")

       ' Get another file info.
       ' ... Then get the length.
       Dim info2 As New FileInfo("test.txt")
       Dim length2 As Long = info2.Length

       ' Show how the size changed.
       Console.WriteLine("Before and after: {0}, {1}", length, length2)
       Console.WriteLine("Size increase: {0}", length2 - length)
   End Sub

End Module
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#5
مرة قاعد العب وسويت فور نكست وربطها بتايمر تضيف لقاعدة البيانات

وع ما اظن وصلت بين 30 وابعين الف سججل ناسي لانها من زمان ايام الvb6

جرب سويها وتاكد السجل لكم يتسع 
واذا اكتمل شوف هل ممكن تفتح جدول جديد 

اذا شفتها بعد 32 الف تقفلت ولا تسمح بجدول استخدم كود اخونا 

كثرة قواعد البيانات مو كويسة لو جدول جديد افضل

ولهذا العالم المحترفة تستخدم sql واحنا ع الmdb ههههه
الرد }}}
تم الشكر بواسطة: DR.YASER , ابراهيم ايبو , ابراهيم ايبو
#6
قم بعمل نسخة احتياطية لها و فرغها و اعد استخدامها او نصب برنامج اس كيو ال سيرفير و بدل اكواد الاتصال و ما الى ذلك .

او نصب ماي اس كيو ال سيرفير و قم بخطوات تبديل اكواد الاتصال و ما الى ذلك و انا انصح بهذا الخيار فحجم قاعدة البيانات حسب سعة الهارد الموجودة عليه .
الرد }}}



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


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