كيفية يمكن انشاء زر بحث عن سجل في قاعدة بيانات بالفجول بيسك مع عرض النتائج داخل نموذج اخر ، وماكود فتح نموذج باسم
ومشكورين مقدما
سول في علمية البحث
مغلق
ياجماعة حد يرد على سولي
انا سويت قاعدة بيانات في الفجول بيسك واريد اعمل زر بحث عن كلمة او جملة في السجلات الموجدة في القاعدة
فكيف اسوي هذا الامر ؟؟؟؟؟؟؟؟؟؟؟؟؟؟
السلام عليكم
اخى الكريم
هديك كود البحث بواسطه ADO
بس يا ريت تقولى انت عامل الاتصال بايه ؟؟ لان البحث بيختلف حسب الطريقة فمثلا لو عامل عن طريق Data Control يبقى هتختلف كليا 100%
ده موضوع مماثل لسه كاتبه لأخ سأل سؤال مشابه
على كل حال هذا كود البحث
Dim Rs As New ADODB.Recordset
Dim SQL As String
SQL = "SELECT * FROM Table1 WHERE Person_Name='" & text1.text & "'"
Rs.Open SQL, Cn, adOpenDynamic, adLockPessimistic
Set Rs = Cn.Execute(SQL)
msgbox RS("Person_name")
msgbox RS("Age")انا فرضت ان عندك جدول اسمه Table1
فرضت انك تبحث بدلالة اسم الشخص
فرصت ان الجدول يحتوى على حقلين Person_Name و Age
انت هتستبدل text1 باسم الشخص الذى تبحث عنه
هيعرض لك اسم الشخص و عمره فى صندوق رسالة
لو فى شئ انا موجود بس اهم شئ تقول انت متصل بالقاعدة بايه عشان نحدد طريقة البحث ;)
أخوك AHMAD FATHY
Business Card
Ahmad Fathy Ahmad
Computer and Systems Department
Faculty of Engineering, Alexandria University
Cellular: +2 010 1461154
E-mail: midoalx@hotmail.com
ICQ: 148481391
السلام عليكم ورحمة الله وبركاتة
أسف على التأخر
بما أن حضرتك لم تحدد الأداة التى تستخدمها او حتى نظام الربط
لذا فالمثال أرجوا ان بفيدك
(لاتنسى تغيير إمتداد الملف من VBP إلى RAR )
{يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عَظِيمٌ }الحج1
اشكركم على ردكم وتعونكم
واعتذر عن عدم كتابة اداة الربط واداة الربط هي الاكسس
اخي العزيز shearer النموذج جاء في مكانة
اخي العزيز shearer لا اسطيع ان اشكرك
لان كلمة شكر قليلة
ولا استطيع التبعبير
فجزاك الله الف الف خير
وزدك فوق علمك علما
ولا يحرمنا من كنوز معلوماتك ومعلومات غيرك
وجاري التطبيق من النموذج
............................
اخي العزيز AHMAD FATHY
اشكرك على تعاونك و اجابتك بالرغم ان القاعدة كانت في الاكسس ولا كن استفت من معلوتك الثمينة في البحث في ADO
ولدي استفسار اخر
كيف يتم انشاء زر امر لتشغيل استعلام مكون بالاكسس
تم تعديل هذه المشاركة بواسطة APAS في 26 يناير 2005 في 19:14
اخي العزيز shearer لم استوعب الفكرة كاملة التي انشئ به نموذجك فياريت
اخي الغالي شرح الخطوات .
وجزاك الله خير
السلام عليكم ورحمة الله وبركاتة
الفكرة تتمثل فى التعامل مع قاعدة البيانات عن طريق أداة ربط واداة عرض
أداة الربط هى Adodc1
وأداة العرض هى DataGrid1
والعمل يتم كالأتى تربط أداة الربط بالقاعدة ثم تظهر نتائج العمليات فى أداة العرض فأداة الربط ماهى إلا أداة وسيطة تأخذ أوامر منك وتبعتها إلى القاعدة ثم تستقبل النتائج وترجعها إليك لتعرضها فى أداة العرض أو ماتريدة
وذلك عن طريق الربط كالأتى
الأداة الوسيطة ترتبط بالقاعدة وأداة العرض أيضا (وأرتباطها بأداة العرض إختيارى)
اداة العرض ترتبط بأداة الوسيطة إختياريا ويكون الإرتباط فى أى وقت
وفى مثالنا هذا يتم الربط بينهما فى الوسط عند أمر البحث
وقد أرفقت المثال مرة أخرى مع شرح سطور الأكواد بالشرح المناسب إن شاء الله
أرجوا ان يكون الشرح بسيطا فأنا لاأملك تلك الموهبة
إذا أحتجت إلى أى إستفسار لاتتردد فى طرحة وستجد مايسرك إن شاء الله
(لاتنسى تغيير الإمتداد إلى RAR)
{يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عَظِيمٌ }الحج1
مشكور اخي العزيز
على مساعدتك وتعاوك
و جزاك الله خير
ولدى استفسار هل يمكن
او كيف يتم انشاء زر امر لتشغيل استعلام مكون بالاكسس ( اي تشغيل استعلام الاكسس في الفجول )
هذا الموضوع مغلق.