تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عمل (ضغط واصلاح قواعد البيانات)
#1
كاتب الموضوع : AhmedEssawy

شرح الكود موجود بين الأسطر - الكود باستخدام مكتبة DAO :


كود :
Public Function DAO_CompactDatabase(ByVal _
CompactFrom As String, ByVal CompactTo As String) As String
'----------------------------------------------------
' Purpose:
' Compacts any DataBase
'
' Parmaters:
' 1 - CompactFrom
' The Path and Name of Original database
' 2 - CompactTo
' The Name Of the Compacted Database
'
' Return Value:
'
' String Of ErrorCodes IF unsuccessful
'
'
' Notes:
' This routine uses the Database Engine's
'error collection
' to notify the user of exactly what's
'gone wrong during the Compact process.
'
'----

Dim lErrDataBaseErrors As DAO.Error
Dim lStrErrors As String
Const lcIntNoErrors = 0
Const lcStrErrorDivider = "|"
lStrErrors = ""

On Error Resume Next

' Attempt to compact the database
DBEngine.CompactDatabase CompactFrom, CompactTo

' If an ERROR occured then show the user all of the errors
' in the database engine's error collection
If Err <> lcIntNoErrors Then
For Each lErrDataBaseErrors In DBEngine.Errors
lStrErrors = lStrErrors & lErrDataBaseErrors.Number _
& lcStrErrorDivider & lErrDataBaseErrors.Description _
& Chr(9)
Next lErrDataBaseErrors

End If

On Error GoTo 0

DAO_CompactDatabase = lStrErrors
End Function
ولإصلاح قاعدة البيانات :



كود :
Public Function DAO_RepairDataBase(ByVal pvStrDataBaseName _
As String) As String
'----------------------------------------------------
' Purpose:
' Repairs any DataBase
'
' Parmaters:
' 1 - pvStrDataBaseName
' The database Path and Name
'
' Return Value:
' Empty string if successful
' String with err number(s) & "|" & Err description(s)
'
' Notes:
' This routine uses the Database Engine's error collection
' to notify the user of exactly what's gone wrong during the
' repair process.
'
'-----------------------------------------------------

Dim lErrDataBaseErrors As DAO.Error
Dim lStrErrors As String
Const lcIntNoErrors = 0
Const lcStrErrorDivider = "|"
lStrErrors = ""
On Error Resume Next

' Attempt to repair the database
DBEngine.RepairDatabase pvStrDataBaseName

' If an ERROR occured then show the user all of the errors
' in the database engine's error collection
If Err <> lcIntNoErrors Then

For Each lErrDataBaseErrors In DBEngine.Errors
lStrErrors = lStrErrors & lErrDataBaseErrors.Number _
& lcStrErrorDivider & lErrDataBaseErrors.Description _
& Chr(9)
Next lErrDataBaseErrors
End If
On Error GoTo 0

DAO_RepairDataBase = lStrErrors

End Function
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احترف قواعد البيانات فى فيجوال بيسك 6 derbaliammar 0 1,388 21-07-13, 06:16 AM
آخر رد: derbaliammar
  طريقة سهلة للحذف من جدولين في قاعدة البيانات RaggiTech 0 564 17-10-12, 03:39 PM
آخر رد: RaggiTech
  طريقة تصفير الجدوال في قواعد البيانات (تصفير قاعدة البيانات) RaggiTech 0 810 17-10-12, 03:37 PM
آخر رد: RaggiTech
  كـود نقل البيانات من قاعدة بيانات الى أخرى Database Syncronization (هدية العيد -)) RaggiTech 0 564 17-10-12, 02:43 PM
آخر رد: RaggiTech
  للعمل من خلال Dos وارسال واستقبال البيانات RaggiTech 0 430 17-10-12, 12:58 AM
آخر رد: RaggiTech
  اضافة عمود جديد إلى قاعدة البيانات Ado RaggiTech 0 442 17-10-12, 12:19 AM
آخر رد: RaggiTech

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


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