السلام عليكم ورحمة الله و بركاته
اخواني و اخواتي ارجوا من الله ثم منكم مساعدتي انا استطعت ان اربط بين الفيجوال بيسك و الاكسس عن طريق ADODC
و لكن المشكلة هي اني لا اسطيع ان اضيف الازرار ( اضافة سجل ، حذف سجل ، طباعة سجل، الانتقال للتالي ،الانتقال للاخير ، الانتقال للاول، الانتقال للسابق)
وانا سأضيف البرنامج وكلمة السر للمسؤول 123
لا يوجد اي رد :angry:
أخي العزيز لا تغضب لتأخر الرد عليك ولكن كن واثق أن الله سيرسل لك من يساعدك في النهاية ولو بنصيحة
طريقة التعامل مع ADODC تشبه كثير طريقة التعامل مع DAO DATA CONTROL
فيمكنك عمل أضافة سجل بالطريقة التالية
Adodc1.Recordset.AddNew
وعمل UPDATE بالطريقة التالية
Adodc1.Recordset.Update
وعمل DELETEبالطريقة التالية
Adodc1.Recordset.DELETE
ولكن بدلا من أن تقتصر معرفتك بالتعامل مع ADODC علي هذه الأكواد البسيطة فقط قم بتحميل الكتب من الوصلة التالية وقراءتها ستساعدك كثيرا في التعامل مع الكائنات الخاصة بقواعد البيانات ومن ضمنهاADODC
تحياتي وفي أنتظار أي سؤال :)
اخي العزيز
افعل كما قال لك صديقنا VIPER
وللملاحظة
اربط الاداة بقاعدة البيانات وبعدين
اعمل زرين
اضافة
حفظ
ولنفرض ان الحقول المراد ربطها هي
حقل الرقم NO
حقل الاسم NAME
اكتب داخل الزر اضافة
ADODC1.RECORDSET.ADDNEW
TEXT1.TEXT=""
TEXT2.TEXT=""
داخل الزر حفظ
TEXT1.TEXT=TRIM(TEXT1.TEXT)
TEXT2.TEXT=TRIM(TEXT2.TEXT)
IF TEXT1.TEXT="" THEN
MSGBOX"الرجاء ادخال قيمة في حقل الرقم",16,"رسالة تحذير"
TEXT1.SETFOCUS
EXIT SUB
END IF
هذا الكود عبارة عن عملية فحص للتكست اذا كان فارغ يطلع هذة القيمة وهذا الخيار يعود للمبرمج اذا ارادة او لا
التكست الثاني يكون بنفس الطريقة
بعدها اكتب
ADODC1.RECORDSET.UPDATE
وبهذا نكون قد عملنا زرين للبرنامج جربها ان شاء الله اكون قد اوصلت لك مطلوبك
تحياتي لك
هذا الموضوع مغلق.