الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية التحكم في الاضافة والتعديل بعد الاستعلام

مغلق
بدأه HnHn في 3 سبتمبر 2004 · 6 رد · 713 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عندي مشكلة في التحكم في أغلاق السجلات وفتحها حيث تبدأ المشكلة بعد الاستعلام وهي كالتالي

أنا عامل مديول وعامل تعريف عام حيث يتم فتح السجلات عن طريقة الكود التالي 

If rs.State = adStateClosed Then
rs.Open "[Table1]", db, adOpenStatic, adLockOptimistic
End If

أوك

وهذا الكود شغال وكويس ومضبوط في عملية التحديث والأضافة والتعديل

وعندي نافذة أخرى تحتوي على أستعلام

وطريقة الاستعلام كاالتالي 

sql = "SELECT * FROM Table1 ORDER BY typ ='" & Trim(Ctyp.Text) & "'"
Set rs = db.Execute(sql)

وايضا هذه الاستعلام مضبوط وشغال وكل شي تمام

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

خطأ ولابد من أغلاق البرنامج وتشغيلة من جديد

حيث المشكلة تتركز على هذا السطر 

Set rs = db.Execute(sql)

فهو بعد الاستعلام يظل التركيز على السجلات من جملة الاستعلام وليس الجملة الاساسية الموجودة

في المديول .. فكيف يتم التحكم في هذه الطريقة

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#2

السلام عليكم..

أخي الكريم HnHn..

أرجو ذكر نص رسالة الخطأ التي تظهر لك.. حتي استطيع المساعدة ان امكنني..

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

وَلَوْلا دَفْعُ اللَّهِ النَّاسَ بَعْضَهُم بِبَعْضٍ لَّفَسَدَتِ الأَرْضُ وَلَكِنَّ اللَّهَ ذُو فَضْلٍ عَلَى العَالَمِينَ

موقع رائع للقرآن الكريم والتدريب على الحفظ

#3

هذا هو الخطأء بعد عملية الاستعلام

post-1-1094252735_thumb.jpg

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#4

أخي العزيز لاتظهر لك اشارة الخطأ هذه يجب عليك تغيير طريقة فتح قاعدة البيانات بحيث لا تكون adOpenStatic, adLockOptimistic

وإن شاء الله راح تنحل معك المشكلة على طول

#5

السلام عليكم..

طبعا آسف أن أرد بعد كل هذه المدة.. شهر تقريبا.. ولكني كنت قد نسيت هذه المشاركة..

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

جرب لعله يكون الحل السليم.. وأتابعك إن شاء الله..

تحياتي لك :-)

وَلَوْلا دَفْعُ اللَّهِ النَّاسَ بَعْضَهُم بِبَعْضٍ لَّفَسَدَتِ الأَرْضُ وَلَكِنَّ اللَّهَ ذُو فَضْلٍ عَلَى العَالَمِينَ

موقع رائع للقرآن الكريم والتدريب على الحفظ

#6

السلام عليكم

ممكن تجرب الكود التالي اذا كنت تستخدم طريقة ADO

Set rs = New ADODB.Recordset
rs.Open "[Table1]", db, adOpenStatic, adLockOptimistic
#7

أشكركم جميعا ولكن هذا السؤال قد حل والحمد الله

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…