[asto]

اي اعمل قاعدة بيانات بالفيجوال بيسك و اربطها معه

عليك ان تنشئ قاعدة بيانات بواسطة الفيجوال بيسك اذن

من خلال القائمة add-ins ثم visual data manager

تابع الشرح من خلال
http://www.shattalarab.net/vb/iraq47990/

الاكواد
كود الاضافة :

Data1.Recordset.AddNew

كود الحفظ :

Data1.Recordset.Update


اما اكواد التنقل

كود السجل الاول :

Data1.Recordset.MoveFirst


كود السجل الاخير :

Data1.Recordset.MoveLast


كود التالى :

Data1.Recordset.MoveNext


كود السابق

Data1.Recordset.MovePrevious

كود الاسناد الى تكست 15 مثلا
Text15.Text = Data1.Recordset.Fields!word
كود الاسناد من تكست 15 الى الحقل
Data1.Recordset.Fields!word=Text15.Text
حيث word اسم العمود في الجدول المختار من قاعدة البيانات

كود :

كود البحث :

Data1.Recordset.FindFirst "[word]='" & Trim$(Text1.Text) & "'"
If Not Data1.Recordset.NoMatch Then
ضع اوامر لتنفيذها عند الايجاد (لمنع الاضافة لا تكتب شيئا هنا)
else
ضع اوامر لتنفيذها عند عدم الايجاد (اوامر الاضافة هنا و يمكنك وضع اية اوامر اخرى)
End If
حيث word  اسم العمود في الجدول المختار من قاعدة البيانات

---

تحتاج ايضا الى مجموعة من التكست بوكس3 مثلا في مصفوفة مع اظهارها و اخفائها عند الحاجة

و عدد من الكوماند 3 مثلا في مصفوفة و كوماند2 للطباعة و آخر للاضافة او حتى مجموعة كمان تتبع لمصفوفة
و هذه هي طريقة طباعة محتويات الفورم في ملف مرفق

فاذا كنت لا تعلم شيئا في الفيجوال فاذهب و تعلمه