يا شباب ضغط قاعدة البيانات بمعنى
البرنامج visual BASIC 6 مع قاعدة بيانات SQL server 2000
ولكن بعد اسبوع واحد من تشغيل البرنامج اصبح حجم قاعدة البيانات اكبر من جيجا ما الحل
ارجوكم الرد ولكم جزيل الشكر
ضغط قاعدة البيانات
قم بإضافة Module جديد وضع بداخله هذا الكود
On Error GoTo Err:
Dim MYDatabase As SQLDMO.Database
Dim MYSQLServer As SQLDMO.SQLServer
Set MYSQLServer = New SQLDMO.SQLServer
MYSQLServer.Connect ".", "sa", "sa"
Set MYDatabase = MYSQLServer(DBName)
Call MYDatabase.Shrink(-1, SQLDMOShrink_TruncateOnly)
SQLCompactDatabase = True
Err:
Err.Clear
Set MYDatabase = Nothing
End Function
Public Function SQLCompactDatabase(ByVal DBName As String) As Boolean
ثم إستدعي إجراء ضغط قاعدة البيانات بهذا الشكل
MsgBox "تم ضغط قاعدة البيانات بنجاح", vbInformation Or vbMsgBoxRight Or vbMsgBoxRtlReading, "تمت العملية بنجاح"
Else
MsgBox "تعذر علينا ضغط قاعدة البيانات .. من فضلك تحقق إسمها أو معلومات الإتصال", vbCritical Or vbMsgBoxRight Or vbMsgBoxRtlReading, "فشل في إتمام العملية"
End If
If SQLCompactDatabase("DatabaseName") Thenإما اذا أردت الإتصال به دون معرفة النتيجة .. فعليك إستدعائه بهذا الشكل
call SQLCompactDatabase("DatabaseName")علما بأن الـ DatabaseName هي إسم قاعدة البيانات
ومن فضل تحقق جيدا من إسم الـ Server ومعلومات الدخول الموجوده في هذا السطر
MYSQLServer.Connect ".", "sa", "sa"
علما بأن المعلومات التي وضعتها انا هي الـ Default
وبالتوفيق إن شاء الله
تم تعديل هذه المشاركة بواسطة mrx_ta7ady في 1 فبراير 2009 في 13:35
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
محمد ونيس كتب:ممكن حضرتك تشرح الضغط لقاعدة بيانات اكسيس ويكون امتداد الضغط رير
اخي الفاضل .. اذا اردت الإستفسار عن شيء فبإمكانك وضعه في موضوع جديد لسهولة الوصول اليه عند البحث
وبخصوص ضغط قاعدة البيانات الـ Access فاتبع هذا الرابط
اما ضغطها الى RAR أو ZIP أو خلافهما فهذا سيجعل عملية الإتصال بقاعدة البيانات أمر مستحيل إلا بعد الفك
وعلى كل بإمكانك إستخدام الملفات المرفقة مع برنامج الضغط المحدد وإعطائها الـ Parameters المناسبة
علما بأن غالبا ما يكون لبرامج الضغط هذه منتديات خاصة بعيدة عن البرمجة
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي