تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو التعديل كود ضغط واصلاح قاعدة اكسيس 2007
#1
انا كنت شغال بكود 2003 وكان شغال معايا بس في 2007 مش شغال كود الضغط واصلاح قاعدة البيانات ارجو التعديل

Dim Engine

Engine = CreateObject("JRO.JetEngine")

Engine.CompactDatabase("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\td.mdb;user id=admin;jet oledb:database password=22403", _
"provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Compact_td.mdb;user id=admin;jet oledb:database password=22403")

علما باني غيرت الامتداد provider=microsoft.ace.oledb.12.0;data وامتداد الملف td.accdb
والمشكلة قائمة
الرد }}}}
تم الشكر بواسطة:
#2
استخدم هذا الإجراء في الضغط والإصلاح

PHP كود :
Public Sub CompactAccessDBT(ByVal connectionString As StringByVal mdwfilename As String)

Try
 
Dim Engine CreateObject("JRO.JetEngine")

Engine.CompactDatabase("provider=microsoft.ace.oledb.12.0;" "Data Source=" Application.StartupPath "\td.accdb;" "Jet OLEDB:Database Password=22403;" _
"Jet OLEDB:Engine Type=5;"_
"provider=microsoft.ace.oledb.12.0;" _
"Jet OLEDB:Database Password=22403;" _
"Data Source=" Application.StartupPath "\td.accdb.tmp" ";" _
 
"Jet OLEDB:Engine Type=5;")
 
Dim FullPath As String IO.Path.GetDirectoryName(Application.StartupPath "\td.accdb")
IO.File.Delete(Application.StartupPath "\td.accdb")
Dim filename As String IO.Path.GetFileName(Application.StartupPath "\td.accdb" ".tmp")
Dim GetFileNameWithoutExtension As String IO.Path.GetFileNameWithoutExtension(Application.StartupPath "\td.accdb" ".tmp")
FileSystem.Rename(Application.StartupPath "\td.accdb" ".tmp"FullPath "\" & GetFileNameWithoutExtension) 

Catch ex As Exception

If InStr(ex.Message.ToUpper, "
password".ToUpper) Or InStr(ex.Message.ToUpper, "password".ToUpper) Then
MsgBox("
Password is invalid.", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Password Database")

ElseIf My.Computer.FileSystem.FileExists(Application.StartupPath & "
\td.accdb") = False Then
MsgBox("
Database Not found!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Erorr")

Else
MsgBox("
Pressure operation failed!, Be sure not to open the database from another source.", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Erorr")

End If
End Try
End Sub 

عدلت لك الإجراء بالمعطيات إللي كتبتها لنا وهي كتالي
اسم قاعدة البيانات td.accdb
كلمة السر 22403

بعد نسخ الإجراء
أكتب كود الأستدعاء ، ضع هذا الكود في زر ( ضغط وإصلاح ) حتى يستعدي الإجراء

PHP كود :
Call CompactAccessDBT(NothingNothing
الرد }}}}
تم الشكر بواسطة:
#3
الكود اداني رسالة خطا databases not foud
وغير ذاللك بيمسح القديمة بدون وضع قاعدة بيانات اخري ومرة اخري بيغير الامتداد
ومفيش اي رسالة بتوضح لو تم الضغط اولا
الرد }}}}
تم الشكر بواسطة:
#4
MAZEN كتب :الكود اداني رسالة خطا databases not foud
وغير ذاللك بيمسح القديمة بدون وضع قاعدة بيانات اخري ومرة اخري بيغير الامتداد
ومفيش اي رسالة بتوضح لو تم الضغط اولا

أنظر لهذا الموضوع
الرد }}}}
تم الشكر بواسطة:
#5
مشكور جدا والحمد للة تم الحل بالغاء وانا مشعارف .temp دة بتغير الامتداد اية الاهمية بالكود بتعنا
الرد }}}}
تم الشكر بواسطة:
#6
.temp عباره عن ملف مؤقت حتى يتعامل مع قاعدة البيانات دون صورتها الحقيقيه
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ار جو المساعدة ما هي مشكلة كود التعديل والحذف boofa2015 2 36 أمس, 10:58 AM
آخر رد: boofa2015
  ازاى اصمم جدول فى قاعدة بيانات 2D noway 5 92 20-02-17, 04:27 AM
آخر رد: khodor1985
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 98 20-02-17, 02:13 AM
آخر رد: khodor1985
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 77 18-02-17, 02:19 PM
آخر رد: Amrjamil
  [كود] طلب التعديل على كود If Clipboard.GetText احمد مهران 8 132 18-02-17, 08:23 AM
آخر رد: أسامة السالمي
  استفسار عن تعبئة combobox من قاعدة البيانات المتألق9 2 58 16-02-17, 11:57 AM
آخر رد: المتألق9
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 51 12-02-17, 08:06 PM
آخر رد: مساعدة
  [VB.NET] قاعدة بيانات SQL 2008R2 محمد بوقزاحة 5 90 09-02-17, 03:31 PM
آخر رد: مساعدة
  [سؤال] مشكلة في قاعدة البيانات عبدالرحمن المكاوي 2 57 08-02-17, 05:43 PM
آخر رد: عبدالرحمن المكاوي
  منع المستخدم من التعديل على أكثر من معلومة في نفس الوقت اليوم مبتدئة وغداً محترفة 5 99 07-02-17, 08:35 PM
آخر رد: Amir_alzubidy

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


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