منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

منذ أن بدأت في البرمجة لم أرى هذه الرسالة


إتصل بي بعض الأصدقاء و أخبروني بعدم تمكن البرنامج بالإتصال بقاعدة البيانات أكسس
و ظهور هذه الرسالة



الترجمة بالإنجليزية
the microsoft Jet database engine stopped the process because you and another user are attemping to change the same data at the same time



كما أني لم أستطع فتح القاعدة بالأكسس
وظهور نفس الرسالة


أتمنى أن أجد أحد الأعضاء ظهرت معه من قبل حتى أعرف ما سببها
لأني لم أستطع معرفة سبب توقف القاعدة فجأة

شكرا جزييلا

راجع الموضوع في الرابط التالي

الرابط

شكرا أخي silverlight
فبعد قراْت الموضوع تبين لي أنه ليس نفس مشكلتي

----------

بعد تفكير
هل تظن أخي أن ضغط و إصلاح قاعدة البيانات ( بالكود ) عند غلق البرنامج
قد تسبب هذه المشكلة

خصوصا أني أضع كود إطفاء الحاسوب بعد هذه العملية

compacter et reparer la bd
Shell("shutdown -s -t 1")

هذا احتمال وارد
خصوصا انه احيانا بعض loop أو حلقات الدوران قد لا يكون safe تماما
أيضا casting او تحويل بيانات من نوع الي نوع اخر قد يخلق مشاكل كمثال نغيير String الي Integer مثلا

أضن أنه هذا عو المشكل

سأنتظر بعض الأعضاء إذا كانوا قد صادفوا هده الرسالة من قبل
حتى أعرف جميع الإحتمالات

شكرا لك أخي الكريم

هناك احتمال أخر خاصة انك تضغط البيانات وهذا قد يتسبب في مشاكل
أنا صادفت مشكلة مختلقة قليلا أثناء التشفير و الضغط لأحد الملفات التنفيذية
و وجدت رسالة خطأ كان سببها EncoderFallBack

نعم أخي معك حق

وهذا هو الكود الذي أستعمل و أشك فيه




Dim Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase("provider=microsoft.jet.oledb.4.0;" & "Data Source=" & Application.StartupPath & "\bd\configue.mdb" & ";" & "Jet OLEDBatabase Password=" & " " & ";" & _
"Jet OLEDB:Engine Type=5;", _
"provider=microsoft.jet.oledb.4.0;" & _
"Jet OLEDBatabase Password=" & "Sniper19912908Jawadi" & ";" & _
"Data Source=" & Application.StartupPath & "\bd\configue.mdb" & ".tmp" & ";" & _
"Jet OLEDB:Engine Type=5;")
Dim FullPath As String = IO.Path.GetDirectoryName(Application.StartupPath & "\bd\configue.mdb")
IO.File.Delete(Application.StartupPath & "\bd\configue.mdb")
Dim filename As String = IO.Path.GetFileName(Application.StartupPath & "\bd\configue.mdb" & ".tmp")
Dim GetFileNameWithoutExtension As String = IO.Path.GetFileNameWithoutExtension(Application.StartupPath & "\bd\configue.mdb" & ".tmp")
FileSystem.Rename(Application.StartupPath & "\bd\configue.mdb" & ".tmp", FullPath & "\" & GetFileNameWithoutExtension)
'*******************************************************************************************************






Shell("shutdown -s -t 1")

يمكنك القاء نظرة علي الموضوع هذا
أعتقد ممكن التعديل عليه ان احتجت فعلا ان تستخدم EncoderFallBack

الرابط

شكرا لك
سأطلع عليه

حدث معي هذا الامر وقمت بتحميل برنامج accesfix
من الرابط التالي حمل من هنا
وتم استرجاع 60 % من الجداول  الحمد لله
شكرا جزيلا للأخت زهرة
اتمنى من لديه برنامج لاصلاح قواعد البيانات كامله يشاركنا اياه وله الشكر