عرض قاعدة البيانات في أداة LIST

و عليكم السلام و رحمة الله وبركاته

يمكن أن تفعل ذلك أخي الكريم عن طريق الأداة DataList1

و كذلك يمكن من خلال أداة الــ List العاية .

-------------- :

1. بالنسبة للــ DataList1 فعليك أن تحدد

أولاً :

خاصية Data Source و ليكن Data1

ثم تحدد خاصية List Field إلى اسم الحقل الذي تريد عرضه في القائمة

2. أما بالنسبة إلى أداة الــ List العادية فيارايت تحدد لي الطريقة التي تتعامل معها

في الربط مع قواعد البيانات و سوف أضع لك مثال إن شاء الله . :rolleyes:

اخي الكريم

sql= .....................
with rs

if .recordcount =0 then exit sub

for n=0 to list1.listcount

list1.additem    !اسم الحقل

next

end with

واذا في اي استفسار اسئل

بارك الله فيكم أخي الأمير، وبالرغم أنني لا أستخدم SQL في ربطي، لكن هذه الطريقة متاحة أيضا للأكسس مع Data1 بحسب ما يظهر لي..

وحقيقة لم أكن أعرف بوجود DataList أخي COMFORT وأظن أن استخدامها سيكون أفضل لي، حيث لن أضطر إلى إعادة تعبئة اللست كلما أغلقت البرنامج وفتحته..

وقد قمت بتحميل الأكتف إكس الخاص بالأداة، وأظنه Microsoft DataList Control لكن صادفت مشكلة..

بداية لعل الخاصية التي أحدد فيها إسم الحقل الذي أريد عرضه هي "DataField" وليست "ListField" لأن الثانية لم تعطني شيئا، والأولى هي التي أعطتني أسماء الحقول..

لكن المشكلة أنني حينما شغلت البرنامج لم أحصل على أية بيانات في الـDataList .. فهل هناك إجراء غضافي يجب علي القيام به حتى يتم عرضها؟

وجزاكم الله خيرا..

أخوكم

أخي الكريم The SNiper

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

و بالتالي أنا نسيتها شوية

تحدد أيضاً خاصية RowSource ====>Data1

وسوف تظهر معاك المعلومات إن شاء الله

وهذا مثال مرفق

تحياتي

Exampel.rar

ما شاء الله..

بارك الله فيكم أخي الحبيب COMFORT، وجزاكم عنا كل خير..

لقد شاهدت البرنامج الذي أرفقته لي، ويبدو أنني كنت مخطئا في اختيار الـActiveX الخاص بالأداة، فقد كنت قد اخترت Microsoft DataList Control ولكن في المثال وضح لي بأنه Microsoft DataBound List Control..

حفظكم الله أخي وكثّر من أمثالكم..

هناك استفسار أخير بإذن الله..

وهو أنني استطعت إرجاع إسم المدخل الذي ضغطت عليه "Osama" وأخزنه في متغير معين، لكن لم أهتد إلى الطريقة التي أخزن أعيد فيها الـIndex الخاص بالمدخل الذي ضغطت عليه، مثلا الـIndex الخاص بـ"Osama".. فهلا ساعدتموني في هذا بارك الله فيكم..

أخوكم

لا أعلم لذلك حلاً أخي الكريم

ولكن إذا أردت فإن الــ List العادية أسهل و أفضل

و أنا مستعد أن أرفق لك مثال إذا أردت .

الله المستعان..

المشكلة هذه اللست ستتعبني، يعني يجب أن أقوم بتعبئتها كملا فتحت البرنامج، وأعيد تعبئتها كلما أضفت مدخلات جديدة، يعني لك أن تتخيل كم سأتعب الجهاز الذي يستخدم البرنامج بسبب هذا..

لهذا أنا أفضل هذه الأداة..

وأرجو من افخوة عرف طريقة لهذا الأمر (أن أعرف الـIndex للعنصر الذي أضغط عليه) أن يفيدنا

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

وجزاكم عنا كل خير..

أخوكم

اخي الكريم

هذه function بسيطة لتعبئة list او combo بما تريدة من الـ DB

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Sub LFilling(List As ListBox, StrSQL As String)

RSTset StrSQL

List.Clear

If RST.RecordCount <> 0 Then

If Not RST.BOF Or Not RST.EOF Then

RST.MoveFirst

Do Until RST.EOF

If RST(1) <> "" Then

List.AddItem RST(7) ' اضافة الى

If RST(0) <> "" Then List.ItemData(List.NewIndex) = RST(0)

End If

RST.MoveNext

Loop

List.Refresh

End If

End If

RST.Close: Set RST = Nothing

End Sub

وسوف تقوم باستدعائها على النحو التالي

Lfilling (list_name,"select * from TABLE")

جزاكم الله خيرا أخي / biko_oo7 ، سأقوم بحفظ هذا الكود عندي لعلي أحتاجه في المستقبل...

هي المشكلة في مثل هذا الكود انها ستتعب الجهاز، يعني لو كان عندي ألف قيمة في العمود الذي أريد عرض بياناته، فلك أن تتخيل ماذا ستفعل جملة الـFor أو الـDO بالجهاز كما شغلت البرنامج، أو كلما أغلقت الفور الذي أعرض فيه البيانات وأعدت فتحه..

شكرا لك مرة أخرى، ووفقكم الله إلى ما فيه كل خير..

أخوكم