السلام عليكم
انهيت برنامجي من كل وجه ولكني حينما اردت ان استبدل البحث من كل الجمله مثل اسم كتاب الى جزء من اسم الكتاب واجهتني صعوبه في الوقوع على الكود الصحيح حيث اني استخدمت find
في البحث
فارجو مساعدتي في ذلك علما اني اضع الكلمه المبحوث عنها فيتكست
مع الشكر
عليك استخدام جملة استعلام الـSelect وهذا الشكل الكامل لها .
SQL = "Select * From Books Where BoolName Like '*" & Text1.Text "*'"
حيث ان الـBooks هو اسم الجدول و الـ BookName هو الحقل الذي يحوي اسم الكتاب والـLike وهي تعني التشابه اي لو بحثت عن القيمة (جغ) سيقون بسرد كافة الكتب التي تحتوي علي هذه الجملة مثل (جغرافيا) .
تحاتي لك .
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
بالنسة لربط استعلامات sql مع اداة data
استخدم الكود التالي
data1.recordsource= "sql" data1.refresh
حيث sql هي جملة الاستعلام
تحياتي
اشكركما على المساعدة اخواني الافاضل
ولكني استخدم find في عمل البحث ولا اريد ان اصنع البحث في السكول
مع الشكر
السلام عليكم
جرب هذا الكود .
حيث books هو اسم الجدول
و book_name هو اسم الحقل الذي يحتوي على اسم الكتاب
Set rs = New ADODB.Recordset rs.Open "books", cn, adOpenStatic, adLockPessimistic rs.Find "book_name like '*" & Text1.Text & "*'" If Not rs.EOF Then MsgBox "السجل موجود" End If
تم تعديل هذه المشاركة بواسطة Hatam في 16 ديسمبر 2004 في 13:17
شكرا لك Hatam
ساجرب الكود ولكن ارجو ان تبق معي لعلي احتاج الى توضيح اذا لزم الامر منك
مع الشكر
السلام عليكم ورحمة الله وبركاتة
أخى الفاضل ماسوف تكتبة قريب جدا من هذا المثال
انا عارف انة صعب شوية بس معلش لو أ ى حاجة وقفت معالك أخبرنى فورا
{يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عَظِيمٌ }الحج1
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…