السلام عليكم
لقد واجهتنى عدة مشاكل عند البحث داخل قاعدة البيانات
فعلى الرغم من وجود البيانات داخل الجدول فان نتائج البحث
تقول بانه غير موجود ولا اعرف سبب الخطأ :wacko:
لقد استخدمت ADO فى الربط
واستخدمت كود البحث هذا
rs.find "code1='"+x+"'",1,adsearchforward
و سوف تجدون مثال يوضح المشكلة
و شكرا
ان اجــمل الزهـــــــــــر مانـــــبت بحــــــــدائق الاحـــــــــــــــزان
Eng. Mohammed Salah
تحية وبعد
بالنسبة لكود البحث فأنا سأعطيك كود البحث لado control ومعروف بالنسبة لل ado code فراح تبعد كلمة recordset فقط حلو خذ هذا المثال :
على افتراض ان لديك جدول اسمه الموردين وبداخله حقل اسمهno_mord .....فأنت تريد البحث برقم المورد حلو ...واسم التكست الذي تضع فيه الرقم text1.text اعمل التالي :
x="no_mord=" text1.text في الاكس سوف يضع رقم المورد المدخل
adocd1.recordset.movefirst هذا الكود لكي يبحث من بداية الجدول
adodc.recordset.find=x (اذا طلع لك خطأ في هذا السطر شيل علامة يساوي ...تمام) هذا الكود يوجد السجل على حسب x
يعني يدور رقم المورد x يعني على افتراض ان رقم المورد المدخل 1 ....... حلو
if adodc1.recordset!no_mord=text1.text then
msgbox
"الرقم هذا موجود مسبقا"
elseif adodc1.recordset.movelast then هذا الكود يفحص اذا كان قد وصل الى نهاية الجدول ولم يجد الرقم
msgbox
"هذا الرقم غير موجود"
end if
ان شاء الله تصلح معاك :D
واذا فيه خطأ أو نقص اعذرني :(
دعواااااااااتك لنا
المبرمج الطيب :)
إذا كان ترك الدين يعني تقدما ***** فيا نفس موتي قبل أن تتقدمي
اعط الفقير سمكة يشبع يوما * * * * علمه الصيد يشبع مدى الحياة
قتل امرئٍ في غابةٍ ***** جريمة لا تغتفـر
وقتل شعبٍ بأكمله ****** مسألةٌ فها نظر
حتى الكلاب إذا رأت يوماً فقيراً ماشياً *** نبحت عليه وكشرت أنيابها
مشكور اخى" المبرمج الطيب" على تعاونك
ولكنى اريد معرفة الخطأ فى الكود الخاص بى
حيث ان حصلت عليه من مجموعة دروس لاحد الاخوة فى هذا المنتدى
وشكرا
ان اجــمل الزهـــــــــــر مانـــــبت بحــــــــدائق الاحـــــــــــــــزان
Eng. Mohammed Salah
السلام عليكم ورحمة الله وركاتة
صراحة انا لم أفهم مثالك جيدا ما المراد بأدخل الكود (أى كود تقصد) وما هى الخانة التى سنكتب بها كلمة البحث؟
{يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عَظِيمٌ }الحج1
السلام عليكم اخى shearer
اولا شكرا لك على الاهتمام
اقتباسصراحة انا لم أفهم مثالك جيدا ما المراد بأدخل الكود (أى كود تقصد) وما هى الخانة التى سنكتب بها كلمة البحث؟
ثانيا اقول ان المقصود بالكود هو رقم معين مخزن داخل قاعدة البيانات
حيث المطلوب هو البحث عن السجل الذى يحتوى على هذا الرقم (Code) و المسمى داخل قاعدة البيانات ب Code1
اتمنى ان اكون قد اوضحت المطلوب :rolleyes:
و شكرا
ان اجــمل الزهـــــــــــر مانـــــبت بحــــــــدائق الاحـــــــــــــــزان
Eng. Mohammed Salah
الخطأ في هذه السطور
عدل كالتالي
rs1.MoveFirst rs1.Find "code1='" & x & "'", 0, adSearchForward, 1
تحياتي لك
اخوك ناصر
سبحان الله MCP,MCSA,MCDBA,MCSE,MCTegyptian in Dammam----------------------------------------------------مواضيعي بالمنتدي أنشأ مشروعك بالفيجوال بيسك 6كتاب أنشأ مشروعك بالفيجوال بيسك كامل pdfكل ما يتعلق بدوال التاريخالمستخدمون والصلاحيات في برنامجك
شكرا لك اخى nasser
لقد جربت هذا الحل سابقا ولا تزال المشكلة قائمة :unsure:
ولكن لى عندك طلب وهو شرح الطريقة Find مع ADO
بالتفصيل B)
وشكرا
ان اجــمل الزهـــــــــــر مانـــــبت بحــــــــدائق الاحـــــــــــــــزان
Eng. Mohammed Salah
نعم كلام الاخ ناصر صحيح
شكرا لك اخى Shearer و اخى ناصر
ان اجــمل الزهـــــــــــر مانـــــبت بحــــــــدائق الاحـــــــــــــــزان
Eng. Mohammed Salah
هذا الموضوع مغلق.