تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] امل المساعده في ضغط و إصلاح قاعدة البيانات
#1
Question 
SmileSmile السلام عليكم و رحمة الله SmileSmile:

WinkWinkWink امل المساعده WinkWinkWink

في كود ضغط و إصلاح قاعدة البيانات

1 . البرنامج يستخدم على الشبكة

2 . قاعدة البيانات بدون رقم سري

3 . هل يجب قفل قاعدة البيانات قبل العملية

ملاحظة الربط في البرنامج عن طريق الاداة Adodc

ShyShyShy امل المساعده
الرد }}}}
تم الشكر بواسطة:
#2
(14-06-14, 01:19 AM)allayl كتب : ...
ضغط و إصلاح قاعدة البيانات
...

.....

منقول مع تعديل بسيط ليناسب طلبك


بنظام ADO
أضف المرجع Reference التالي: Microsoft Jet and Replication Objects 2.6 Labrary أو آخر إصدار لديك
طريقة إضافة المرجع Reference عن طريقة القائمة Project ثم ...References ثم اختيار المرجع
كود :
Private Sub Command1_Click()
    If DAOCompactDatabase("db1.mdb", "") Then
        MsgBox "تم ضغط وإصلاح قاعدة البيانات بنجاح"
    End If
End Sub

' أضف المرجع: Microsoft Jet and Replication Objects 2.6 Labrary ' أو آخر إصدار لديك
Private Function ADOCompactDatabase(filename As String, Optional password As String) As Boolean
On Error GoTo ExceptionHandle
    Const Provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    Const JetVersion = ";Jet OLEDB:Engine Type=5"
    Dim JRO As JetEngine
    Dim strPassword As String
    Dim strTemp As String
    strTemp = Left(filename, InStrRev(filename, "\")) & "Compact.mdb"
    If Len(Dir(strTemp)) <> 0 Then Kill strTemp
    If Len(password) <> 0 Then strPassword = ";Jet OLEDB:Database Password=" & password
    Set JRO = New JetEngine
    JRO.CompactDatabase Provider & filename & strPassword, Provider & strTemp & JetVersion & strPassword
    Set JRO = Nothing
    Kill filename
    Name strTemp As filename
    ADOCompactDatabase = True
    Exit Function
ExceptionHandle:
    MsgBox Err.Description, vbInformation
End Function


بنظام DAO
أضف المرجع Reference التالي: Microsoft DAO 3.6 Object Library أو آخر إصدار لديك
طريقة إضافة المرجع Reference عن طريقة القائمة Project ثم ...References ثم اختيار المرجع
كود :
Private Sub Command1_Click()
    If DAOCompactDatabase("db1.mdb", "") Then
        MsgBox "تم ضغط وإصلاح قاعدة البيانات بنجاح"
    End If
End Sub

' أضف المرجع: Microsoft DAO 3.6 Object Library ' أو آخر إصدار لديك
Public Function DAOCompactDatabase(filename As String, Optional password As String) As Boolean
On Error GoTo ExceptionHandle
    Dim strTemp As String
    strTemp = Left(filename, InStrRev(filename, "\")) & "Compact.mdb"
    If Len(Dir(strTemp)) <> 0 Then Kill strTemp
    If Len(password) <> 0 Then
        DBEngine.CompactDatabase filename, strTemp, ";pwd=" & password, , ";pwd=" & password
    Else
        DBEngine.CompactDatabase filename, strTemp
    End If
    Kill filename
    Name strTemp As filename
    DAOCompactDatabase = True
    Exit Function
ExceptionHandle:
    MsgBox Err.Description, vbInformation
End Function

.....
الرد }}}}
تم الشكر بواسطة: allayl
#3
شكرآ اخي vbnet بارك الله فيك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة التعامل مع قاعدة البيانات وربطها بالفيجوال بيسك 6 ENG.MPROG 8 4,140 22-11-16, 09:38 AM
آخر رد: مزنة
  كيفية منع تكرار التاريخ فى قاعدة البيانات ؟ gedo 6 890 25-10-16, 10:10 AM
آخر رد: abulayth
  رفع قواعد البيانات أكسس على الانترنت فيجوال بيسيك 1 80 15-10-16, 05:11 PM
آخر رد: abulayth
  انشاء علاقة بين الجداول في قاعدة بيانات SQL aiman 1 85 14-10-16, 09:24 PM
آخر رد: aiman
  كيف رفع قاعدة بيانات اكسس 2003 على النيت abosara 2 177 26-08-16, 11:34 AM
آخر رد: Amir_alzubidy
  مطلوب كود لكسر باسورد قاعدة بيانات اكسس 2003 abosara 1 113 23-08-16, 05:35 PM
آخر رد: abulayth
  كيفية نسخ جدول من قاعدة بيانات الى قاعدة أخرى علما بأن القاعدتين لهم باسورد abosara 3 197 23-08-16, 01:02 AM
آخر رد: Ahmed_Mansoor
  حفظ الصورة بعد عمل سحبها من السكانر(الماسح الضوئي) في قاعدة البيانات haniblack 8 401 09-08-16, 11:03 AM
آخر رد: naseef
  سؤال حول حماية ملف قاعدة البيانات VAVABEL 2 227 10-07-16, 04:00 PM
آخر رد: VAVABEL
  من قاعدة البانات الى مصفوفة أزواج مرتبة اسلام الكبابى 4 238 19-04-16, 02:50 AM
آخر رد: Ahmed_Mansoor

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


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