[khodor1985]

بالإذن من الإخوة الكرام، الموضوع سهل وبسيط جداً
لنفترض أنك قمت بإنشاء جدول في قاعدة بيانات أكسس بعنوان Person ثم أدرجت داخل الجدول الجقول التالية :
- ID نوع البيانات AutoNumber
- Fname نوع البيانات ShortText
- Lname نوع البيانات ShortText
- Address نوع البيانات ShortText
- Active نوع البيانات Number القيمة الإتراضية (Default Value) تساوي القيمة (1)
المقصود بالـ ID الرقم المعرف والـ Fname الإسم والـ Lname الشهرة والـ Address العنوان والـ Active نشط .
ثم قمنا بإنشاء مشروع في Visual Studio بعنوان PersonPro ثم أضفنا إلى المشروع نموذج بعنوان PersonGUI ثم أضفنا إلى النموذج مربع نص (TextBox) عدد 5 وسمينا مربعات النصوص بالتسميات البرمجية التالية :
txtID
txtFname
txtLname
txtAddress
ثم أضفنا خمسة أزرار أمر وسميناها :
btnNew يعني جديد
btnAdd يعني إضافة
btnModify يعني تعديل
btnDelete يعني حذف
btnDeleteAll يعني حذف جمع السجلات
ثم أضفنا 4 أزرار للتنقل بين السجلات :
btnFirst يعني السجل الأول
btnPrevious يعني السجل السابق
btnNext يعني السجل التالي
btnLast يعني السجل الأخير

جميل .... إنتهينا من التصميم

مرحلة الأكواد :
في البداية قم باستدعاء المكتبة التالية :

PHP كود :

Imports System.Data.Oledb 


ثانيا : قم بالإعلان عن المتغيرات التالية في أعلى صفحة الأكواد لتكون عامة ومؤثرة على كافة الإجراءات

PHP كود :

Dim Con as New OledbConnection = ("Put the connection string here")
dim da as OleDBDataAdapter
Dim dt as new datatable
Dim cm as Currencymanager
dim cb as OledbCommandBuilder 


ثالثا : قم بإنشاء إجراء جديد وأعني هنا Sub لجلب البيانات من قاعدة البيانات وسميها Sub LoadPersonData

PHP كود :

Sub LoadPersonData
da = new OledbDataAdapter("Select ID,Fname,Lname,Adress from Person Where Active = 1",Con)
da.Fill(dt)
txtID.DataBinding.Add("Text",dt,"ID")
txtFname.DataBinding.Add("Text",dt,"Fname")
txtLname.DataBinding.Add("text",dt,"Lname")
txtAddress.DataBinding.Add("Text",dt,"Address")
cm.BindingContext(dt)
End Sub 


ثم نستدعي هذا الإجراء في حدث Load للنموذج
جميل... هكذا نكون قد انتهينا من مرحلة جلب البيانات للجدول Person
إضافة الأكواد لأزرار التنقل :
الزر الأول btnFirst :

PHP كود :

cm.position = 0 


الزر الثاني btnPrevious :

PHP كود :

cm.position -= 1 


الزر الثالث btnNext :

PHP كود :

cm.position += 1 


الزر الرابع btnLast :

PHP كود :

cm.position = cm.count -1 


جميل .... هكذا نكون قد انتهينا من إضافة الأكواد لأزرار التنقل

إضافة كود لزر الأمر btnNew :

PHP كود :

cm.AddNew 


إضافة كود لزر الأمر btnAdd :

PHP كود :

Me.Validate()
cm.EndCurrentEdit
cb = new OledbCommandBuilder(da)
da.Update(dt) 


قبل نضيف كود لزر الحذف أو حذف جميع السجلات لا بدو أولا من إنشاء جملة التحديث التنفيذية التي ستحول قيمة Active من 1 إلى 0 في إجراء بعنوان Sub DeleteData
إليك الكود :

PHP كود :

Dim cmd As new OledbCommand("Update Person Set Active = 0 where ID = " & txtID.Text,con)
con.open
cmd.ExecuteNoNQuery
con.close 


إضافة الكود لزر الحذف :

PHP كود :

DeleteData()
cb = new oledbcommandbuilder(da)
da.update(dt) 


إضافة كود لحذف جميع السجلات :
قم بإنشاء إجراء جديد بعنوان DeleteAllData

PHP كود :

Dim cmd as new oledbcommand("Update Person Set Active = 0")
con.open
cmd.ExecutNONQuery
con.close 


قم بإضافة الإجراء إلى زر حذف جميع السجلات :

PHP كود :

DeleteِAllData()
        cm.EndCurrentEdit()
        cb = New OleDbCommandBuilder(da)
        da.Update(dt) 


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