الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة مع جملة SELECT

مغلق
بدأه VIPER_HEAD في 30 مارس 2005 · 4 رد · 624 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أخواني الأعزاء أرجو مساعدتي في هذا الموضوع الذي رغم صغر حجمه إلا أنه أصابني

بضيق وأحباط لم أقابله منذ سنوات

المشكلة هي أنني أريد أن أكتب جملة SELECT مع وضع الشرط WHERE

حتي لا أطيل في كلامي سأكتب الكود وأضع النتائج وستلاحظو ما هي المشكلة

Private Sub Form_Load()
Data1.RecordSource = "SELECT * FROM MYTB WHERE NAME=" + "'" + AHMED + "'"
End Sub

بعد وضع كلمة WHERE تظهر الDBGRID فارغة بدون بيانات مع العلم أن الشرط مسجل بالفعل في قاعدة البيانات

أما إذا حذفت كلمة WHERE والشرط

فأن الكود يعمل بشكل جيد

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

سأقوم بتحميل النموذج إذا أراد أحد تصحيح هذا الكود داخله ويمكنكم أنزاله من هنا

أرجو المساعدة

TEST.rar

#2

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

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

إليك تصحيح الكود الذي كتبته :

Data1.RecordSource = "SELECT * FROM MYTB WHERE NAME='AHMED'"

سبحان الله وبحمده ... سبحان الله العظيم

#3

أخي الجملة تكتب كالتالي :

Data1.RecordSource = "SELECT * FROM MYTB WHERE NAME='AHMED'"
كما قال الأخ أحمد

وإن كانن الشرط يمرر من مربع نص يكتب كالتالي

Data1.RecordSource = "SELECT * FROM MYTB WHERE NAME=' " + text1+ " ' "

تحياتي

أخوك ناصر

تم تعديل هذه المشاركة بواسطة nasser50001 في 30 مارس 2005 في 08:32

#4

بعد إذن أساتذتي

الكود كامل بالشكل هذا

Data1.DatabaseName = App.Path & "\MYDBB.mdb"

Data1.RecordSource = "SELECT * FROM MYTB WHERE NAME='" & "AHMED" & "'"

Data1.Refresh

و الله أعلم

#5

شكرا شكرا شكرا لكم جميعا

علي الأهتمتم وعلي الرد السريع سأقوم بتجربة الكود حالا

هذا الموضوع مغلق.

مواضيع مشابهة