لا هنتم كود بحث في قاعدة البيانات وشاكر لكم

أخي انت بستخدم ADO ولا Data؟

الموضوع مكرر كثيرا اخي يمكنك البحث

الله يعطيكم العافيه وشاكر لكم على المرور

مبرمج مبتدء انا بحثت ولقيت اكواد لكن يبغى لها تعديل وانا مااعرف اعدل

الا على قدي شي خفيف اما اكود كبيره ومعقده مااعرف

data

المشروع مفتوح المصدر في المرفقات

وشاكر لكم

سلام

prog1.rar

تفضل أخي هذا مثال فيه فقط البحث واي سؤال إن شاء الله انا حاضر

Example.rar

بسم الله

انا عدلت على المثال بتاعك

بس غيرت تغيير شيلت الــ List وحطيت مكانها Flexgrid علشان دي احسن في التعامل مع قواعد البيانات

وبالذات في المثال بتاعك

جرب ويارب تستفيد

prog1.rar

الله يسلمك ويطول عمرك ويجزاك خير

الله لايهينك

لكن كيف اخليه يظهر النتائج في List1

ويليت تشوف السورس كود حقي لان البحث في فورم والبرنامج الاساسي في فورم

وشاكر لك الله يجزاك خير

سلام

Amir Imam

الله يعطيك العافيه وجزاك الله خير

هذا المطلوب لوكانت النتيجه في List1 لكان افضل

علشان البرنامج يشتغل في اي جهاز من دون ادوات

وشاكر لك

سلام

Dim X

X = Trim(Text1.Text)
f = " name='" & X & "'"
Data1.Recordset.FindFirst f
If Data1.Recordset.NoMatch = True Then
MsgBox " Not Found"
Else
List1.AddItem Data1.Recordset![Name]
End If

انت قصدك كده؟؟؟

بسم الله

اقتباس

انت قصدك كده؟؟؟

هو ده الكلام

كود الاخ medo_programming ان شاء الله صح وهو اللي هينفعك

جرب كده واحنا ان شاء الله في الخدمة

انا اسف :lol: :rolleyes:

بسم الله

على فكرة اداة Flexgrid من ادوات الويندوز يعني مش محتاج تدرجها مع البرنامج

والله اعلم

انا جربت الكود لكن ماظبط معي

الله يعطيكم العافيه

البرنامج مرفق مدري من وين الخلل

لاتعبتو

prog1.rar

أخي ايش اريك لو نضع اكود في Flex grid زي ما قال Amir Imam . لان لو احنا وضعنا نتائج البحث في list box مش حيكون

حلو ؟

والله أعلم

راي حلو لكن اذا جيت انقله لجهاز ثاني

هل بيكون فيه مشكله لانه اذا صار بدون تثبيت

يكون احسن لان اغلب المستخدمين مايبغى برامج تثبت

انت فاهم علي

ولا طريقة الاخ Amir Imam حلوه

بس انا خايف انقله لجهاز ثاني مايشتغل عليه

او نظام ثاني مثل اللينكس

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

ننتظر رايكم

سلام

بسم الله

يا اخي العزيز

اداة MSFlexgrid من ادوات الويندوز

ولو مش مطمن برضو خدها من مجلد System32 وحطها مع البرنامج

بس ان شاء الله متخافش

medo_Programming كتب:

انا اسف :lol: :rolleyes:

بسم الله

على ايه يا اخ medo_programming

يا أخي لا تخاف حتى لو عايز اجيبلك الاداة حجبها لك

أخي Amir انا كتبتها غلط :lol: كنت بفكر حاجه ثانية

الله يجزاكم خير ومعليش اتعبتكم معي :D

-waf

مشكورين

سلام

لما لا تستعمل جملة sql ؟

data1.recordsource=select from as where b=text1.text

نورنا الله يجزاك خير

يليت تطبقه على البرنامج

وشاكر لك المرور

سلام