+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : ما سبب الخطاء عند الحدث Adodc1.Refresh (/showthread.php?tid=17088)
ما سبب الخطاء عند الحدث Adodc1.Refresh - allobaed - 31-08-16
الاخوة الكرام
صممت مشروع فيه طريقة بحث في التكست كما في المثال المرفق بحيث تظهر نتائج البحث
مباشرة على DBgrid عدد اثنين و تم ربط الاولى مع data و الثانية مع Adodc
تجرب تدخل في تكست البحث السريع الاول تمام ام الثاني يظهر رسالة ( خطاء في بناء الجملة في جزء من العبارة)
المعذرة انا رابط مع قاعدة البيانات عن طريق الادوات
RE: ما سبب الخطاء عند الحدث Adodc1.Refresh - allobaed - 31-08-16
ابشر اخي الكريم الملف في المرفق
و جزيت خيرا على الرد .....
RE: ما سبب الخطاء عند الحدث Adodc1.Refresh - السيد الغالي - 31-08-16
السلام عليكم
تحياتي وشكري وتقديري لصديقي العزيز امير وجزاه الله كل خير
اما بخصوص موضع الاخ allobaed وبعد اطلاعي على ملفه المرفق وبالتحديد بخصوص طلبك يمكنك استخدام الكود التالي
Dim x As String
x = Text4.Text
Adodc1.RecordSource = "Select * From Emp Where Num LIKE '" & x & "%'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
RE: ما سبب الخطاء عند الحدث Adodc1.Refresh - allobaed - 01-09-16
و عليكم السلام .....يا عالي
شكر لك اخي الكريم لعلي اجرب و انظر النتيجه
جزيت خيرا يا الغالي تمام الكود
و لي سؤال او تكرمت
ما هي وضيفة الكود التالي الذي اضفته Adodc1.CommandType = adCmdText