الربط عن طريق ADODC

أخي هذا مثال للربط بADODC واي سؤال ان شاء الله انا موجود

اعذرني على سوء التصميم لاني كنت مستعجل

أخوي شريف ..

ان لم يخب ظني فأنت سميت الجدول بأحد الكلمات المحجوزة ..

حسب مشاهدتي للصورة الأولى ..

غير اسم الجدول وجرب ان شاء الله تمشي معاك :)

في امان الله

شكرا على الاجابة

بس ما هو الفرق بين الربط بال ADODB والADODC وايهما افضل وارجو ان كان لديك امثلة على الطريقتين ان ترسلها لي

وشكرا

أخي بالنسبة لADODC المثال السابق اما ADODB فاني لا أعرف عنها شيء

انا فقط أعرف Data control و DAO و ADO والADODC تعتبر من الADO

والله أعلم

Adodc1.Recordset![Name] = Trim(Text1.Text)

On Error Resume Next داخل الاجراء

بالنسبة ل on error resume next انا استخدمتها لم ظهور رسائل خطأ

بالنسبة

Trim(Text1.Text)

الدالة trim تستخدم لحذف المسافات من الجانبين الايسر والايمن وهذا يفيد

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

الله أعلم

اقتباس

استخدمتها لم ظهور رسائل خطأ

لوقف تنفيذ الكود في حالة الخطأ وعدم ظهور رسالة الخطأ

شكرا على الرد

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

ثانيا اريد ان اعمل validation للحقول بحيث ان صندوق النص لا بقبل الا ارقام عن طريق الكود :rolleyes:

ولك جزيل الشكر

If 48 <= KeyAscii And 57 <= KeyAscii Then KeyAscii = 0

هذا كود الارقام فقط ضعة في الحدث Keypress

تفضل هذا مثال ربما يفيدك في عملية الLog in

If 48 <= KeyAscii And 57 <= KeyAscii Then KeyAscii = 0

عفوا وهنا ايضا م>ا تعني علامة التعجب (h)

كيفية عمل Calender وربطه بصندوق النص او استعمال خاصية DTPicken

كيفية اظهار جميع المحتويات من قاعدة البيانات داخل الادات Combo :rolleyes:

Adodc1.Recordset![Name] = Trim(Text1.Text)

If 48 <= KeyAscii And 57 <= KeyAscii Then KeyAscii = 0

هذا تضعة في حدث Keypress ل Text Box .

اقتباس

كيفية عمل Calender وربطه بصندوق النص او استعمال خاصية DTPicken

قصدك؟؟؟

تحميل محتويات حقل في Combo box

Do While Adodc1.Recordset.EOF = False
Combo1.AddItem Adodc1.Recordset![Name]
Adodc1.Recordset.MoveNext
Loop

انت بس عليك تعدل اسم الحقل

اهلا ميدو

بالنسبة لسؤالي عن الCalender اقصد ان يكون صندوق النص مرتبطا به حيث عندما اختار اي تاريخ يظهر في صندوق التص...

Combo1.AddItem Adodc1.Recordset![Name]

عفوا في هذا الكود ماذا تعني علامة التعجب وماذا بجب ان اضع داخل القوس في مكان Name

كود الCalender

Text1.Text = Calendar1.Value

أخي بالنسبة لعلامة التعجب انا لا أعرف معناها ولكن تضع بين القوسين اسم الحقل المراد تحميله بالاداة .

ملحوظة : يجب عليك تربط Combo بالADODC عن طريق DataSource .

اخي ماذا تعرف عن الربط بقواعد البيانات ؟؟!!

اذا تريد شرح التعامل مع قواعد البيانات هناك شرح جميل في قسم قواعد البيانات لبنت اليمن