اي اعمل قاعدة بيانات بالفيجوال بيسك و اربطها معه
عليك ان تنشئ قاعدة بيانات بواسطة الفيجوال بيسك اذن
من خلال القائمة 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 اسم العمود في الجدول المختار من قاعدة البيانات
تحتاج ايضا الى مجموعة من التكست بوكس3 مثلا في مصفوفة مع اظهارها و اخفائها عند الحاجة
و عدد من الكوماند 3 مثلا في مصفوفة و كوماند2 للطباعة و آخر للاضافة او حتى مجموعة كمان تتبع لمصفوفة
و هذه هي طريقة طباعة محتويات الفورم في ملف مرفق
فاذا كنت لا تعلم شيئا في الفيجوال فاذهب و تعلمه
عليك ان تنشئ قاعدة بيانات بواسطة الفيجوال بيسك اذن
من خلال القائمة 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 للطباعة و آخر للاضافة او حتى مجموعة كمان تتبع لمصفوفة
و هذه هي طريقة طباعة محتويات الفورم في ملف مرفق
فاذا كنت لا تعلم شيئا في الفيجوال فاذهب و تعلمه

