وضع نتيجة استعلام في متغير

[أ / محمد صالح]

بسم الله الرحمن الرحيم

أعزائي أعضاء ومشرفي منتدى أوفيسنا

بدأت تعلم البرمجة من هنا

ثم انتقلت بين لغات البرمجة وتعمقت في php

ولكن أريد عمل برنامج بالأكسس فواجهتني مشكلة وهي:

أريد وضع نتيجة استعلام في متغيرات وخاصة في حالة تكون النتيجة أكثر من سجل والسجل أكثر من حقل

وهذه في لغة بي اتش بي في منتهى السهولة بدالة تسمى mysql_fetch_array

وتقوم هذه الدالة بوضع متغيرات بعدد الصفوف والأعمدة في نتيجة الاستعلام

بحيث إذا أردت استعمال الداتا الموجودة في الصف الأول والعمود الأول يكون هذا في متغير

وإذا أردت استعمال الداتا الموجودة في الصف الثاني ومثلا العمود الثالث يكون ذلك في متغير آخر

فكيف يمكن تنفيذ ذلك في الأكسس؟؟

تحياتي للجميع

وكل عام أنتم بخير

بمناسبة الشهر المبارك

[كمال النحال]

أخي الغالي

تحية طيبة وبعد ،،،،،،،،،،،

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

بارك الله فيك وبالتوفيق

[أ / محمد صالح]

بارك الله فيك أخي كمال

الأمر لا يحتاج إلى مثال وقاعدة

فقط يحتاج إلى تنظير

كيف يمكنني حفظ ناتج استعلام مثل

select name from members where member_id =24

وهذا الاستعلام نتيجته تكون اسم العضو الذي رقمه 24 وليكن اسمه محمد صالح والسؤال كيف أحتفظ بهذا الاسم الناتج عن الاستعلام في متغير نصي

dim m as string
m=???

تم تعديل أغسطس 30, 2008 بواسطه mas123

[منتصر الانسي]

اخي العزيز

هل ستاخذ النتيجة من استعلام جاهز ام تريد كتابة جملة الاستعلام ضمن الكود..؟

[أ / محمد صالح]

بالفعل أخي منتصر سيتم كتابة جملة الاستعلام ضمن الكود وأهم نقطة في السؤال هي في حالة وجود أكثر من سجل وبهم أكثر من حقل أنتظر ردك

[منتصر الانسي]

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

[أ / محمد صالح]

لأن المطلوب استعمال for‏ و next‏ وتنفيذ عدة استعلامات منها إضافة وتحديث على كل حقل في كل سجل من السجلات الناتجة عن الاستعلام فين عباقرة الأكسس

[Bluemind]

بارك الله فيك أخي كمال

الأمر لا يحتاج إلى مثال وقاعدة

فقط يحتاج إلى تنظير

كيف يمكنني حفظ ناتج استعلام مثل

select name from members where member_id =24

وهذا الاستعلام نتيجته تكون اسم العضو الذي رقمه 24 وليكن اسمه محمد صالح والسؤال كيف أحتفظ بهذا الاسم الناتج عن الاستعلام في متغير نصي

dim m as string
m=???

اخوي جرب

m=DLookUp("[Expr1]","QueryName")

[أ / محمد صالح]

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

دالة Dlookup يكون ناتج البحث بها السجل الأول فقط

وليس السجل صاحب الرقم 24

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

[Bluemind]

اخوي

داله Dfirst ترجع السجل الاول

Dlast اخر سجل

Dlookup ترجع السجل حسب الشرط

وحسب ال sql الي كاتبها فهي شرطيه

وياليت توضح طلبك و الغرض من وضع الناتج في متغير

وهل هذا المتغير يكون في نموذج او ايش

تم تعديل أغسطس 31, 2008 بواسطه Bluemind

[أ / محمد صالح]

شكرا لك أخي الكريم
طيب لو أردنا استخراج الاستعلام السابق في متغير بدالة dlookup
كيف تكون؟؟
هل يصح هذا الكود؟

كود

dim m as string
m=dlookup("name" ,"member","member_id=24")

أرجو الإفادة

[Bluemind]

إقتباس(mas123 @ Aug 31 2008, 02:31 PM) <{POST_SNAPBACK}>

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

طيب لو أردنا استخراج الاستعلام السابق في متغير بدالة dlookup

كيف تكون؟؟

هل يصح هذا الكود؟

كود

dim m as string
m=dlookup("name" ,"member","member_id=24")

أرجو الإفادة

اي صح

بس dlookup تستعمل لجلب سجل واحد فقط

بس اخوي انت مو موضح ايش تبي تسوي بالاكسس

[أ / محمد صالح]

شكرا لك أخي bluemind

حتى الآن كل شيء تمام

ولكن ألا يوجد حل في الاحتفاظ بنتيجة استعلام لعدة سجلات في متغيرات

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

هل يمكنني الاحتفاظ بالسعر في السجل الأول في متغير والسعر في السجل الثاني في متغير آخر وهكذا

أتمنى من الله أن أجد الحل لديكم

[Bluemind]

اخوي
الكود هذا في حاله اكثر من سجل باستخدام Recordset

كود

Function DAORecordsetExample()
        Dim rs As DAO.Recordset
    Dim m As String
    
    strSql = "SELECT MyField FROM MyTable;"
    Set rs = DBEngine(0)(0).OpenRecordset(m)
    
    Do While Not rs.EOF
        Debug.Print rs!MyField
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
End Function

 

تم تعديل مايو 5, 2014 بواسطه أبا عمر

[أ / محمد صالح]

ياريت مزيد من التوضيح للكود

[أ / محمد صالح]

ياريت مزيد من التوضيح للكود

ياريت مزيد من التوضيح

[منتصر الانسي]

تفضل اخي مثال يوضح الكود

______________________.rar

[أبا عمر]

يُنقل 

.....