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

ما الخطأ بكود الحذف هذا ؟

بدأه shadi77 في 25 ديسمبر 2010 · 4 رد · 466 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

مرحبا

كيفكم يا اساتزة

ارجو مساعدتي بتعديل الكود التالي والمتضمن حذف عدة سجلات من - الى ! فالمطلوب حذف جماعي لسجلات تقع بين رقمين

استخدمت الكود التالي لكن لم تنجح العملية:

 SQLs = "select * from u1arch where num => '" & Text1 & "' and num =<'" & Text2 & "' "
   If rs.State = adStateOpen Then rs.Close
   rs.Open SQLs, db, adOpenKeyset, adLockPessimistic
If rs.RecordCount > 0 Then
rs.Delete
    MsgBox "ok"
    End If

ودمتم سالمين

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

#2
 SQLs = "Delete from u1arch where num => '" & Text1 & "' and num =<'" & Text2 & "' "
   If rs.State = adStateOpen Then rs.Close
   rs.Open SQLs, db, adOpenKeyset, adLockPessimistic

    MsgBox "ok"

Select تقوم بعرض السجلات و Delete تقوم بحذف السجلات , ويمكن معها استخدام الشروط بنفس طريقة إستخدامها مع Select

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#3

صديقي محمد مرحبا بعودتك واشكرك على مرورك الكريم ...

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

978891414.jpg

521492271.jpg

ما الخطا في هذه الجملة ؟

ولك مني كل التقدير

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

#4

الخطأ انك وضعط علامة الـ = قبل الـ > , <

جرب :

 SQLs = "Delete from u1arch where num >= '" & Text1 & "' and num <='" & Text2 & "' "

وايضاً إذا كان نوع الحقل num رقم فلا تستخدم معه العلامة '

تم تعديل هذه المشاركة بواسطة محمد مصطفي غريب في 26 ديسمبر 2010 في 10:22

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#5
محمد مصطفي غريب كتب:

الخطأ انك وضعط علامة الـ = قبل الـ > , <

جرب :

 SQLs = "Delete from u1arch where num >= '" & Text1 & "' and num <='" & Text2 & "' "

وايضاً إذا كان نوع الحقل num رقم فلا تستخدم معه العلامة '

شكرا جزيلا يا استاز محمد

الكود صحيح وتمت الفائدة

كل التقدير لك

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

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