حسبى الله فى مكتبة dao 3.6

معقولة مفيش حد عنده رد دة سؤال سيط جدا

وبالمناسة الموضوع ده هيطور من خلال الاسئلة واجابات الاعضاء

وبكدة يبقى دة مرجع للمحترفبن فى قواعد البيانات وكمان مفيد للمبتداين

لان السؤال دة الاجابة علية هو بداية عمل قواعد بيانات

اتمنى المشاركة

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

اولا كود حفظ البيانات

اعمل زر وسميه جديد مثلا

وضع فيه الكود التالي

Set RS = DB.OpenRecordset("MyTable", 2)
RS.AddNew

وهذا في زر الحفظ

RS("Father_ID") = Trim(Text1.Text)
RS("Father_Name") = Trim(Text2.Text)
RS.Update

اما زر الحذف فيكون كالتالي

dim conf as string
conf = MsgBox " هل تريد حذف البيانات", vbOKOnly + vbQuestion + vbMsgBoxRight, "حذف"
if conf = vbYes then RS>Delete

جرب ولو واجهت اي مشكلة ان شاء الله نحلها

الى اللقاء

مشكور على الرد

لكن مكتبة ايه اللى استخدمتها DAO, ADO

وفى كلا الحالتين انا عايز اعمل كومبوبوكس يكون فيها اسماء الاباء الموجودة بحقل F_NAME

بشرط استخدم جملة SELECT

منتظر الرد

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

الكود السابق يستخدم تقنبة DAO حسب ما طلبت والفرق بينهم ليس كبير ولكن تقفنية ADO هي الافضل

جملة Select سيتم استخدامها لفتح الجدول ولكن لا يمكن ملء الجدول من خلالها وانما من خلال الـ RS الذي يحتوي عليها

ولملء الكومبو بوكس قم بعمل الاتي :

RS.MoveFirst
Do While Not Rs.EOF
Combo1.AddItem Rs("F_NAME")
Rs.MoveNext
Loop

============

الى اللقاء