+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] خطأ في ضغط وإصلاح قاعدة البيانات (/showthread.php?tid=41882)
خطأ في ضغط وإصلاح قاعدة البيانات - مصمم هاوي - 09-07-22
تقبل الله منا ومنكم صالح الأعمال
هذا مثال صغير المطلوب تعديل الخطأ عند محاولة ضغط وإصلاح قاعدة البيانات
حاولتُ كثيراً لكنني لم أعرف أين يكمن الخطأ فالرجاء التعديل عليه بارك الله فيكم
[attachment=27967]
RE: خطأ في ضغط وإصلاح قاعدة البيانات - سعود - 09-07-22
كل عام و انت بخير
ماهي رسالة الخطأ؟
حملت المثال وحدثت اخطاء لا علاقة لها بالسؤال بل بمسالة الادوات.
الكلاس التالي يعمل معي بشكل جيد
PHP كود :
Public Sub comp(ByVal sdb As String, ByVal sDBtmp As String, Optional ByVal pass As String = "")
On Error GoTo r:
If con.State = 1 Then con.Close
If rs.State = 1 Then rs.Close
Dim oApp As Access.Application
Set oApp = New Access.Application
If Trim$(pass) = "" Then
Call oApp.DBEngine.CompactDatabase(sdb, sDBtmp)
'wait for the app to finish
DoEvents
'remove the uncompressed original
Kill sdb
'rename the compressed file to the original to restore for other functions
Name sDBtmp As sdb
Else
Call oApp.DBEngine.CompactDatabase(sdb, sDBtmp, dbLangGeneral, , ";pwd=" & sPASSWORD)
'wait for the app to finish
DoEvents
'remove the uncompressed original
Kill sdb
'rename the compressed file to the original to restore for other functions
Name sDBtmp As sdb
End If
MsgBox "تم الضغط بنجاح", vbInformation, "ضغط ملف"
Exit Sub
r:
MsgBox Err.Description, vbCritical, "ضغط ملف"
Err.Clear
End Sub
PHP كود :
Dim co As New Class1
co.comp App.Path & "\phone.accdb", App.Path & "\NDB.accdb"
RE: خطأ في ضغط وإصلاح قاعدة البيانات - مصمم هاوي - 10-07-22
بارك خوي سعود تم حل المشكلة من خلال المثال المرفق
RE: خطأ في ضغط وإصلاح قاعدة البيانات - سعود - 11-07-22
(10-07-22, 09:37 PM)مصمم هاوي كتب : بارك خوي سعود تم حل المشكلة من خلال المثال المرفق
و فيك بارك الله.