طرق البحث والأضافة والحذف في الأداة ADO

سلام الله عليكم

انتظر الرد

(اعتقد انه هكذا بيكون افضل )

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

أهلا بك " الأستاذ "

اهكذا يكون سؤال الأساتذه ؟؟ !!

لا يا أخى .. اصبر و التمس لاخوانك 70 عذرا .. فهذه الفتره كثيرا من رواد المنتدى مشغولون بامور شتى ..

المهم تذكر ان لا تمس العرب باى لفظ جارح فاولا و اخيرا أنت منهم .. أليس كذلك ؟ و ثانيا هم أهلك

انا واثق ان الأخوة هنا على أعلى درجة من التعاون و هذا لا يخفى لا احد و لكنى أعتقد انك محتاج لطلبك هذا على درجة سريعة و أهمية قصوى " هذا عذرى لك "

أسال الله ان يوفقك احد الأخوه هنا لأيجاد طلبك

و أسالك عذرا على مداخلتى " البايخه " هذه و لكن هذا من حبى لك و لهذا المنتدى الرائع باعضاءة

خالص شكرى و تقديرى و دعائى لك بالتوفيق الدائم

أخــــــــــBengaـــــــوك (f) (f) (f) (f)

أكيد لو حتى كان أي شخص بيعرف الأجابة ماراح يجيب

فأتمنى اللباقة بالكلام

و تذكر أنه ما حدى مجبور يرد عليك فخلي نموذج كتابتك طلب و ما حد راح يبخل عليك عندها ...

صحيح كلامك

والاستاذ واجد تجاوز الحدود الحمراء .... ؟؟؟؟

كلنا اخوان ...ليش هذه الحركات البطاليه!!!!!

جميع ما تطلبه يتم عن طريق جمل sql

جدول اسمه tp1

الاتصال بقاعدة البينات في متغير اسمه con

حقل رقمي اسمه code

حقل الاسم name

هذا للبحث عن اول حرف من الاسم

Set rs = New Recordset

sql = "select code,name from tp1 where name like '" & Txt1(1) & "%'"

rs.Open sql, con, adOpenStatic, adLockOptimistic

DataGrid1.DataSource = rs

لا تنسى اضافة دات قريد الخاصه بـ ado

بالنسبة للاضافة :

Set rs = New Recordset

rs.Open "select * from tp1", con, adOpenStatic, adLockOptimistic

rs.AddNew

rs!code = Val(Txt1(0))

rs!name = Txt1(1)

rs.Update

rs.Close

Set rs = Nothing

بالنسبة للحذف :

Set rs = New Recordset

rs.Open "DELETE from tp1 WHERE code = " & txt1(0), con, adOpenStatic

Set rs = Nothing