الاخوة الكرام
صممت مشروع فيه طريقة بحث في التكست كما في المثال المرفق بحيث تظهر نتائج البحث
مباشرة على DBgrid عدد اثنين و تم ربط الاولى مع data و الثانية مع Adodc
تجرب تدخل في تكست البحث السريع الاول تمام ام الثاني يظهر رسالة ( خطاء في بناء الجملة في جزء من العبارة)
المعذرة انا رابط مع قاعدة البيانات عن طريق الادوات
السلام عليكم
تحياتي وشكري وتقديري لصديقي العزيز امير وجزاه الله كل خير
اما بخصوص موضع الاخ allobaed وبعد اطلاعي على ملفه المرفق وبالتحديد بخصوص طلبك يمكنك استخدام الكود التالي
Dim x As String
x = Text4.Text
Adodc1.RecordSource = "Select * From Emp Where Num LIKE '" & x & "%'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
01-09-16, 01:58 AM (آخر تعديل لهذه المشاركة : 01-09-16, 02:04 AM {2} بواسطة allobaed.)
و عليكم السلام .....يا عالي
شكر لك اخي الكريم لعلي اجرب و انظر النتيجه
جزيت خيرا يا الغالي تمام الكود
و لي سؤال او تكرمت
ما هي وضيفة الكود التالي الذي اضفته Adodc1.CommandType = adCmdText