الأخوة أعضاء المنتدا
السلام عليكم ورحمة الله وبركاته
لقد قمت بتصميم برنامج مرتبط بقاعدة بيانات وأضفت اليه داتا ريبورة لكي يتم عرض المطلوب ولكن واجهتني مشكلة وهي.
عندما أريد الاستعلام عن بيانات موجودة في حقلين مثلاً name و date ما هو الكود الذي يتم إضافته في الكومند . وكذلك الكود الذي يتم إضافته في الزر الذي يستدعي التقرير .
وجزكم الله كل خير
السلام عليكم
أخي العزيز ممكن توضيح شوي! .
لإنه إذا تمكنت من إستدعاء حقل إستعلام واحد معنى هذا يمكنك إن تستدعي باقي الحقول بإضافة أسم الحقل بنفس الطريق المتبعه في إستعلام حقل واحد .
أخي ليس قصدي عن الاستعلام عن حقل واحد . ولكن القصد كيف استعلم عن محتويات حقلين مثلا .
أريد أن أبحث عن اسم شخص وفي تاريخ محدد حيث إن الاسماء في حقل والتاريخ في حقل أخر لكي يعرضلي تقرير عن الشخص المحدد في التاريخ المحدد فقط
لقد جربت المثال المرفق وظهر لي خطأ
cant find project or libary
وبعد ذلك تظهر قائمه كبيره لا اعرف اي منها يجب اضافته !
السلام عليكم
أخي الكريم hamudi /
من تلك القائمة ابحث عن Microsoft ActiveX Data Object 2.0 Library ثم قم بإضافتها وإن شاء الله راح تنحل المشكلة ، ولكن انتبه للرقم الذي يلي Object ربما يختلف عندك وذلك يرجع إلى إصدار Office المثبت على جهازك .
والله الموفق .
عزيزي هذا المثال يوضح الاستعلام عن محتويات حقل واحد وليس أكثر من حقل هذا أولاً . ثانياً عرض النتائج في المثال تم في داتا قريد وليس داتاريبورت .
وبنسبة للمشكلة التي ظهرة للاخ فيجب عليه أضافة مكروسوفت اكتف داتا اوبجكت 2.5 ليبراري بدل 2.7
أخي العزيز vb6 تحية لك ،
نعم أخي كنت أعلم إنك تريد عرض النتائج في Data Report ولكن وضعت النتائج في Data Grid لإتأكد من انك تريد إظهار النتائج بالشكل الذي يعرضه المثال أو لا ، فالمثال يعرض أولا اسم واحد متشابه من الحقل الأول ، ومن ثم وبعد الضغط على ال Command يظهر لك التاريخ المعين فقط وذلك من الحقل الثاني ويعرضها طبعا في Data Grid .
حيقية هذا الذي فهمته من سؤالك ، أما بالنسبة لل Data Report فيمكنك عرض النتائج فيها بالتالي :
أضف للإمر Command ، تحت الكود الموجود /
'
Set DataReport1.DataSource=AdoprimaryRs
'
وإن شاء الله راح تحصل على نفس النتائج الموجودة في ال Data Grid .
وإذا عندي إشكاليه في الفهم الرجاء إن تعذرني على إجابتي الخاطئة ولكن من المستحسن ان تضع مشروعك هنا لعلنا نتوصل مع بعض إلى حل بإذن الله .
تحياتي أخوك Visitor_OM
فعلا هذا هو الحل , لكني لست محظوظ حيث انه تقريبا اغلب البرامج التي اقوم بتنزيلها لا تعمل عندي ربما الفجوال بيسك عندي ليس كاملا !
مثلا ظهر لي :
Errprs during load Refer to "c:unzippedDB_1_~1frmMain.log" for details
وبعد الضغط على موافق اجرب بتشغيل البرنامج فيظهر خطء :
Compile error
User defined type not defined
وبنفس الوقت يجود اشاره على السطر اللذي يحتوي على : db As ADODB.Connection
اني مبتدآء في الفيجوال وكل ما اعرفه هو :
Private Sub Command1_Click()
Text1.Text = Text2.Text
Frame1.Caption = Text1.Text
For i = 0 To 10
Print "مرحبا", i
Next
End Sub
مثل هذه الامور البسيطه
وفي هذه المنتدى اجد امور متقدمه ! لا تفيدني بشيء ولا تفيد المبتدئين
اود منك ومن الكرماء مثلك ابسط ابسط برنامج يتعامل مع قواعد البيانات كي استطيع تعلمه وفهمه
مثلا :
برنامج يقوم بحفظ اسماء الطلاب وتخزينهم بحيث يمكن الاضافه اليهم لاحقا .
او مثلا حفظ ارقام !
يمكن لهذا المثال البسيط يكون الاثر الكبير ولك ولجميع الاخوان الشكر والعرفان
السلام عليكم
أخي العزيز ابشر وما يكون خاطر إلا طيب ،، سأحاول كتابت برنامج يتعامل مع قواعد البيانات بالشكل الذي تريد ولكن في هذه اللحظة ساضع رابط ربما تستفيد من البرنامج المرفق في ذلك الرابط .
أما بالنسبة للمشاكل التي تعاني منها فسببها أختلاف الإصدارت ووجود إدوات ذات رقم تسجيل مختلف في الرجيستر بمعنى الإداة التي إنا استخدمتها يوجد لها رقم يحتفظ النظام به في الرجيستر فهو مغاير عن الرقم الموجود في نظامك ولتفادي هذه المشكلة يمكنك حذف الإداة الموجودة في الفورم frmMain ومن ثم قم بإضافتها من جديد إن شاء الله راح تعمل ، أو جرب حذف الVb ثم إعد تثبيتها .
طبعا لإضافة الإدوات إضغط على ctrl+t بعد الضغط ستظهر قائمة من تلك القائمة أختر Microsoft DataGrid Control 6.0(OLEDB) ثم أضعط على موافق OK ستدرج تلك الإداة في صندوق الأدوات toolBox ثم قم بإضافتها في الفورم .
والله الموفق .
تفضل الرابط :
http://arabteam2000.com/vb/showthread.php?...&threadid=21348
Visitor_OM جزك الله خيراً على ردودك على موضوعي وكنت أتمنى وضع مشروعي في المنتدا ولكن حجم البرنامج كبير ويرتبط بأكثر من قاعدة بيانات .
SELECT * FROM mtabaa WHERE name LIKE ?
هذا الاستعلام وضع في كومند الموجود DataEnvironment لكي يعرض النتائج في تقرير كيف يمكن التعديل في هذا الاستعلام من أجل البحث في حقلين بدل حقل واحد .
السلام عليكم
SQL = "SELECT * FROM mtabaa WHERE name LIKE '" & Text1.Text & "*'" & " And Name01 LIKE '" & Text2.Text & "*'"
أخي اسمحلي لإني ماجربت حقيقة الكود وذلك لعطل في جهازي . لكن أتوقع هو المطلوب .
أخوك Visitor_OM
شكرا جزيلا اخي Visitor_OM , هذا كرم كبير منك , اخي اود ان ابشرك وابشر كل مبتدىء في البرمجه بانه وجدت موقع رائع ومفيد , هو موقع اجنبي
http://www.acky.net/tutorials/vb/addressbook/
لكن من خلال الصور يمكن فهم كل شيء
الرابط اعلاه يعرض طريقة عمل دليل هاتف بسيط
وبنهاية الدرس يمكنكم تنزيل البرنامج كاملا من خلال الرابط :
http://www.acky.net/tutorials/vb/addressbo...ook/address.zip
الان بعد ان تعلمنا الطريقه الاساسيه لعمل برنامج كيف يمكن تطويره ؟
مثل :
1- طريقة فحص مدخلات المستخدم للبرنامج ؟ هل ادخل اسم واسم عائله ورقم هاتف صحيح ؟
كيف يمكن اجراء هذه الفحوصات ؟
السلام عليكم
أخي hamudi أولا شكرا على هذا الموقع .
ثانيا بالنسبة للتطوير أو عملية الفحص يمكنك تحديد البيانات التي يجب على المستخدم إن يدخلها بمعنى لا يمكن وضع اسم في خانة مخصصه لرقم وهكذا ،، على كل حال سأضع إدنى هذه الجملة شرطان للفحص :
1-للتأكد من إن البيانات الحالية رقم وليس نص :
If Not IsNumeric(Text1.Text) Then MsgBox "البيانات غير صحيحة"
2-للتاريخ :
If Not IsDate(Text1.Text) Then MsgBox "البيانات غير صحيحة"
تحياتي
بارك الله بك اخي Visitor_OM
انت من يساعدني بقوه :)
هذا الموضوع مغلق.