• 0
EnigmaLine

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

سؤال

السلام عليكم و رحمة الله وبركاته

عندى مشكلة جامده قاعدة البيانات بعد مده بتبوط منى البرنامج شغال على الشبكة

دى رسالة الايرور اللى بتظهرلى

Unrecognize databace

انا عايز كود لضغط و إصلاح قاعدة بيانات أكسس 2007

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

7 إجابة على هذا السؤال .

  • 0

السلام عليكم

ممكن تجرب الكود ده


Dim D As New DAO.DBEngine
If Dir(Application.StartupPath & "\Agc.mdb") = "" Then
MsgBox("Sorry DataBase Not Found")
Exit Sub
Else
D.CompactDatabase("Agc.mdb", "Agc2.mdb")
Kill(Application.StartupPath & "\Agc.mdb")
End If

Dim OldName, NewName As String
OldName = "Agc2.mdb"
NewName = "Agc.mdb"
Rename(OldName, NewName)
MsgBox("Done")

حيث AGC هي اسم قاعدة البيانات المطلوبة

و AGC2 اسم قاعدة البيانات المؤقتة

لاحظ أن الكود يستخدم لقواعد بيانات 2003

لقواعد بيانات 2007 يجب تغيير الامتداد mdb إلى accdb

تم تعديل بواسطه Mady-AGC
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مش شغال معايا خالص ياريت تجربه تانى او تعمله برنامج وترفعه

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

يجب أولا ادراج مكتبة الداو Microsoft DAO 3.6 Object Library


Dim g As New DBEngine
g.CompactDatabase "DB1.mdb", "DB2", "dbLangGeneral"
MsgBox "Ok"

DB1 : قاعدة البيانات المطلوب إصلاحها

DB2 : قاعدة البيانات بعد الإصلاح

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

انت جربت الكود عندك .......

مش شغال معايا

لو شغال عندك ياريت تبعتلى البرنامج

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

هنا مثالين لضغط وإصلاح قواعد بيانات أكسيس

1

http://www.4shared.c...abase_acce.html

2

http://www.4shared.c...x_database.html

تم تعديل بواسطه Mady-AGC
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم ورحمه الله وبركاته

اخي شوف الروابط التاليه

http://vbcity.com/forums/t/155114.aspx

http://www.dreamincode.net/forums/topic/93117-compactrepair-access-2007-with-vbnet/

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .