تقييم الموضوع :
  • 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 بارك الله فيك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حفظ الصورة بعد عمل سحبها من السكانر(الماسح الضوئي) في قاعدة البيانات haniblack 11 1,269 18-09-17, 10:01 PM
آخر رد: scsi7000
  هل يمكن دمج قاعدة بيانات dmb مع عدة قواعد مثلها gonm64 3 147 02-09-17, 05:15 PM
آخر رد: Amir_alzubidy
  كيفية تصدير البيانات الى الوورد gonm64 0 69 16-08-17, 06:21 AM
آخر رد: gonm64
  [VB.NET] مشكله في الاضافه الى قاعدة البيانات ابراهيم الضبري 0 137 27-04-17, 07:42 PM
آخر رد: ابراهيم الضبري
  كيف اجعل المستخد م يحدد قاعدة بيانات البرنامج يدوياً من خلال البرنامج والعمل عليها ؟؟ softmail8 4 914 27-01-17, 08:08 PM
آخر رد: awidan76
Lightbulb [سؤال] ارجو المساعده في كود لاحضار بيانات بين تاريخين - فيجوال وقاعدة بيانات اوراكل hany1412 2 341 13-01-17, 02:21 AM
آخر رد: hany1412
  طريقة التعامل مع قاعدة البيانات وربطها بالفيجوال بيسك 6 ENG.MPROG 9 6,752 06-01-17, 06:28 PM
آخر رد: ShaReeF
  كيفية منع تكرار التاريخ فى قاعدة البيانات ؟ gedo 6 1,336 25-10-16, 10:10 AM
آخر رد: abulayth
  رفع قواعد البيانات أكسس على الانترنت فيجوال بيسيك 1 410 15-10-16, 05:11 PM
آخر رد: abulayth
  انشاء علاقة بين الجداول في قاعدة بيانات SQL aiman 1 425 14-10-16, 09:24 PM
آخر رد: aiman

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


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