تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
محتاج كود ضغط وإصلاح قاعدة بيانات Access 2010
#11
اخواني الكرام
اذا اردت الغاء كلمة مرور القاعدة فماذا اعدل بالاجراء التالي من قبل الاخ elgokr بارك الله فيه وفيكم جميعا:
PHP كود :
Sub RunCompactDatabase(ByVal Sou As StringByVal Com As StringByVal Pass As String)
 
      Dim AccessDatabaseEngine As New Microsoft.Office.Interop.Access.Dao.DBEngine
       Dim source 
As String Sou
       Dim compact 
As String Com
       Dim MyPassword 
As String Pass
       AccessDatabaseEngine
.CompactDatabase(sourcecompact";pwd=" MyPassword, , ";pwd=" MyPassword)
 
      MsgBox("The database was compacted successfully")
 
  End Sub 
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , elgokr
#12
بعد ثمان ساعات عرفت التعديل اللازم
PHP كود :
CompactDatabase(old_db.Text"new_db.accdb"";pwd=",, ";pwd=old_db_pass"
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , elgokr
#13
(02-07-19, 10:54 PM)سعود كتب : اخواني الكرام
اذا اردت الغاء كلمة مرور القاعدة فماذا اعدل بالاجراء التالي من قبل الاخ elgokr بارك الله فيه وفيكم جميعا:
PHP كود :
Sub RunCompactDatabase(ByVal Sou As StringByVal Com As StringByVal Pass As String)
 
      Dim AccessDatabaseEngine As New Microsoft.Office.Interop.Access.Dao.DBEngine
       Dim source 
As String Sou
       Dim compact 
As String Com
       Dim MyPassword 
As String Pass
       AccessDatabaseEngine
.CompactDatabase(sourcecompact";pwd=" MyPassword, , ";pwd=" MyPassword)
 
      MsgBox("The database was compacted successfully")
 
  End Sub 

مرحباً اخى سعود
لديك امر من اثنين وهو التالى

اولاً جعل الاستدعاء بهذا الشكل
كود :
       RunCompactDatabase("مسار", "مسار", Nothing)

ثانياً التعديل على الـ Sup  ليصبح بهذا الشكل
كود :
   Sub RunCompactDatabase(ByVal Sou As String, ByVal Com As String, Optional Pass As String = Nothing)
       Dim AccessDatabaseEngine As New Microsoft.Office.Interop.Access.Dao.DBEngine
       Dim source As String = Sou
       Dim compact As String = Com
       Dim MyPassword As String = Pass
       AccessDatabaseEngine.CompactDatabase(source, compact, ";pwd=" & MyPassword, , ";pwd=" & MyPassword)
       MsgBox("The database was compacted successfully")
   End Sub

ويتم مناداه الـ Sup بهذا الشكل
كود :
       RunCompactDatabase("مسار", "مسار")

وفى حالة استخدام كلمة المرور
كود :
       RunCompactDatabase("مسار", "مسار", "123456")

ثالثاً التعديل على الـ Sup ليكون بهذا الشكل
كود :
   Sub RunCompactDatabase(ByVal Sou As String, ByVal Com As String)
       Dim AccessDatabaseEngine As New Microsoft.Office.Interop.Access.Dao.DBEngine
       Dim source As String = Sou
       Dim compact As String = Com
       Dim MyPassword As String = Pass
       AccessDatabaseEngine.CompactDatabase(source, compact)
       MsgBox("The database was compacted successfully")
   End Sub

وهنا سيتم مناداه الـ Sub بهذا الشكل
كود :
       RunCompactDatabase("مسار", "مسار")

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 83 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 601 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 225 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 84 25-02-24, 02:31 PM
آخر رد: h2551996
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213

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


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