تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] خطأ في الكود عندما يعمل إثنين في الشبكة
#1
Exclamation 
السلام عليكم

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



الرد
#2
وعليكم السلام ورحمة الله وبركاته
لو تترجم رسالة الخطأ ...بارك الله فيك.
الرد
#3
وجدت هده الصور في google  أضن أنها نفس الرسالة



لا يمكن فتح قاعدة البيانات قد لا تكون قاعدة بيانات يتعرف عليها التطبيق الخاص بك أو الملف تالف. "



تم وضع قاعدة البيانات بواسطة المستخدم << Admin >> on << اسم الجهاز >> في حالة تمنعه من الفتح أو الإغلاق
الرد
تم الشكر بواسطة: حريف برمجة , ابراهيم ايبو
#4
ممكن رابط الشرح التالي من ميكروسوفت يساعدك
https://support.office.com/en-us/article...da245a0446
الرد
#5
جرب أن تخرج الاتصال Cn.Open واغلاقالاتصال Cn.Close خارج حلقة فور .... لأنة من غير المنطق ان يتم فتح الاتصال واغلاقة في كل لفة لحلقة فور ، ولو كان هناك 1000 سجل في قاعدة البيانات معناه سيتم فتح وغلق الاتصال 1000 مرة لذلك يقع الخطأ مع المستخدم الآخر
والله أعلم
الرد
#6
معك حق أخي سامي
لطالما تسائلت هل غلق القاعدة و إعادة فتحها عدة مرات هل يسبب مشاكل
____________________________________________________________________________
قمت بإخراج الغلق و الفتح خارج حلقة الفور
و قمت بتجربت الكود 5 مرات و الحمد لله إختفى الخطأ الأول

هل بإخراجي لكود الغلق و الفتح خارج الفور   سأحصل على نفس النتائج أخي , لا يوجد فرق ؟
____________________________________________________________________________

عند تجاوز مكان الخطأ القديم 
يضهر لي الخطأ التاني هنا   عند جميع المستخدمين
هل هذا بسبب إستخدامي للإتصال الغير المباشر ؟؟
هل يجب التخلي عن DataTable



شكرا كثيرا أخي سامي
الرد
تم الشكر بواسطة: حريف برمجة , ابراهيم ايبو
#7
(04-08-19, 03:49 AM)sniperjawadino كتب : هل بإخراجي لكود الغلق و الفتح خارج الفور   سأحصل على نفس النتائج أخي , لا يوجد فرق ؟

لا يوجد فرق بالمرة 
------
تخيل أن عندك كرتون ماء فيه 40 علبة وتريد ان تضع هذه العلب داخل ثلاجة ... فهل ستفتح الثلاجة وتضع علبة واحد ثم تغلق الثلاجة ثم تفتحها من جديد وتضع العلبة الثانية .... وهكذا حتى تنهي الاربعين علبة .... أو يكفي ان تفتح الثلاجة وتضع الاربعين علبة واحدة تلو الأخرى حتى تنتهي وبعدها تغلق الثلاجة 
هذا المثال مثلة تماما
اما بالنسبة للخطأ الثاني فانصحك ان تستخدم الوضع المتصل OleDbCommand للتحديث والاضافة وكذلك الحذف
الرد
#8
شكرا لك أخي سامي على المثال البسيط

سأتبع نصيحتك و سأستخدم الوضع المتصل OleDbCommand لعلي أجده أسرع و بدون مشاكل تضارب الباينات في الشبكة
شكرا شكرا شكرا
الرد
تم الشكر بواسطة: ابراهيم ايبو , حريف برمجة
#9
ممكن هكذا بالوضع المنفصل
PHP كود :
Dim dt_Ticket As New DataTableLabel_N_CAISSE.Text= (-Val(TextBox4.Text))
Using da_Ticket As New OleDbDataAdapter("UPDATE [TABLE_" "] SET [Dates]=@dates,[Heure]=@heure"cn)
 
   da_Ticket.SelectCommand.Parameters.AddWithValue("@dates"Now.AddHours(m).ToString("dd/MM/yyyy"))
 
   da_Ticket.SelectCommand.Parameters.AddWithValue("@heure"Now.AddHours(m).ToString("HH:mm:ss"))
 
   da_Ticket.Fill(dt_Ticket)
 
   Dim savedt_Ticket As New OleDbCommandBuilder(da_Ticket)
 
   da_Ticket.Update(dt_Ticket)
End Using 

ممكن هكذا بالوضع المتصل
PHP كود :
Dim n Label_N_CAISSE.Text= (-Val(TextBox4.Text))
If 
cn.State <> ConnectionState.Open Then cn.Open()
Using cmd_Ticket As New OleDbCommand("UPDATE [TABLE_" "] SET [Dates]=@dates,[Heure]=@heure"cn)
 
   cmd_Ticket.Parameters.AddWithValue("@dates"Now.AddHours(m).ToString("dd/MM/yyyy"))
 
   cmd_Ticket.Parameters.AddWithValue("@heure"Now.AddHours(m).ToString("HH:mm:ss"))
 
   cmd_Ticket.ExecuteNonQuery()
End Using
cn
.Close() 
الرد
#10
شكرا لك أخي Beginer
أعتذر منك لتعبك في إعادة كتابة الكود
جزاك الله على وقتك

سأستخدم الوضع المتصل لعله يكون أسرع و أفضل بدون أخطاء
شكرا كثييرا

فقط هذا الخطأ لا يزال يضهر عند دخول أكثر من مستخدم

 
 
تم وضع قاعدة البيانات بواسطة المستخدم << Admin >> on << اسم الجهاز >> في حالة تمنعه من الفتح أو الإغلاق



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [VB.NET] كود عندما يتم تحميل الصفحة كاملة في WebBrowser يكمل تنفيذ الكود SnTnt 4 145 16-09-19, 01:25 AM
آخر رد: SnTnt
  [VB.NET] تنفيذ الكود حينما لا يجد له اسم او Attribute ابو روضة 7 226 10-09-19, 06:08 PM
آخر رد: mohamedahmed1
  اخوانى الكود ينفذ الامر خطا خالد كامل1 6 172 02-09-19, 02:22 AM
آخر رد: AAAAAAAAA
Thumbs Up عندما قمت بتثبيت reportviewer طلعت هذه المشكلة alfaiz678 9 219 01-09-19, 08:37 PM
آخر رد: ابراهيم ايبو
  [سؤال] لدي جدول به اسعار اريد السعر من خلال رقم الكلاس مرفق الكود dametucorazon 5 191 01-09-19, 03:44 PM
آخر رد: dametucorazon
  مساعدة في تعديل الكود mohamedahmed1 2 106 25-08-19, 07:40 PM
آخر رد: mohamedahmed1
Sad [سؤال] لدي مشكلة في الكود الاتصال tridz 13 343 24-08-19, 05:09 PM
آخر رد: سعود
  مساعدة ففي اصلاح هذا الكود mohamedahmed1 2 118 24-08-19, 03:24 AM
آخر رد: mohamedahmed1
  الكود يعمل بشكل صحيح ولكن خالد كامل1 5 166 18-08-19, 04:43 AM
آخر رد: خالد كامل1
Thumbs Up [VB.NET] هل ممكن تغيير رقم الهارد عن طريق الكود رمضان محمد 1 321 16-08-19, 11:08 PM
آخر رد: عماني939

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


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