سلام عليكم
اقوم بعمل مشورع قاعدة بيانات
وقررت استخدام الاداة ADO لادارة قاعدة البيانات ومعها الاداة DATAGRID لعرضها
لكن تقابلني مشكلة في البحث
قرأت درسًا يشرح الاداتين وبصراحة الدرس كان وافي من كل الجوانب
لكن سطر واحد في الكود عصبني
Dim X As String
X = InputBox("ادخل اسم الكتاب")
Adodc1.RecordSource = "select * from books where BookName like '" & X & "*'"
Adodc1.Refreshبالجملة select ابحث داخل الحقل bookname من الجدول books
وفي النهاية يأتي السطر
Adodc1.Refresh
ليعمل تحديث للاداة ويعرض الناتج فقط
الا اني كلما جربت البحث يحدث خطأ وتظهر رسالة تقول
method "refresh" on opject "ADodc1" faild
مع العلم ان نفس الكود يعمل في المثال المرفق مع الدرس
ولقد جربت ان انقل الكود من المثال المرفق الى مشروعي بطريقة كوبي وبيست وحصلت نفس المشكلة
افادكم الله