السلام عليكم ورحمة الله وبركاتة سوف نقوم بجولة عن التعامل مع قواعد البيانات برمجياً وليس عن طريق الادوات ado أو dao لان هذة الطريقة هي اسرع بكثير من استخدام الادوات لذلك افضل كثيرا استخدام الطرق البرمجية. ليكن مثالنا هو بيانات الطلاب وليكن في البداية بسيطاً مثل (الرقم – الأسم – الدرجة ) بعد ذللك وقبل الشروع في البرمجة سنبدأ ببناء قاعدة البيانات (استخدم اكسس) وبناء الجدول الخاص بنا اسم قاعدة البيانات (moh.mdb) اسم الجدول (student) الحقول (snum,sname,sdegree) بعد ذلك سنقوم بربط القاعدة (وليكن المسار هو القرص دي d:\moh.mdb) سنقوم بتوضيع ثلاث خانات (text) وكذللك أزرار (الاول – التالي – الاخير – السابق – حفظ اضافة – حذف – تعديل – بحث بالرقم - بحث بالاسم - خروج ) والان سنقوم بكتابة الشفرات أولاُ سنعرف في قسم التصريحات عن المتغيرات التالية [align=left]Dim db As Data**** Dim rs As Recordset[/align] حدث تحميل الفورم [align=left]Private Sub Form_Load() Set db = OpenData****("d:moh.mdb") Set rs = db.OpenRecordset("student", 2) End Sub[/align] حدث الغط على الزر (الأول) [align=left]Private Sub Command1_Click() rs.MoveFirst showdata End Sub[/align] حدث الضغط على الزر (التالي) [align=left]Private Sub Command2_Click() rs.MoveNext If rs.EOF Then rs.MoveLast showdata End Sub[/align] حدث الضغط على الزر (الاخير) [align=left]Private Sub Command3_Click() rs.MoveLast showdata End Sub[/align] حدث الضغط على الزر (السابق) [align=left]Private Sub Command4_Click() rs.MovePrevious If rs.BOF Then rs.MoveFirst showdata End Sub[/align] حدث الضغط على الزر (اضافة) [align=left]Private Sub Command5_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub[/align] جدث الضغط على الزر حغظ [align=left]Private Sub Command6_Click() s = Trim(Text1) s = "snum=" + s rs.FindFirst s If Not (rs.NoMatch) Then MsgBox "هناك طالب بهذا الرقم ", vbOKOnly, "البيانات غير صالحة للحفظ" Else rs.AddNew rs!snum = Text1 rs!sname = Text2 rs!sdegree = Text3 rs.Update MsgBox "تمت عملية الحفظ بنجاح", vbOKOnly + vbInformation, "عملية الحفظ" Text1 = "" Text2 = "" Text3 = "" End If End Sub[/align] حدث الضغط على الزر بحث بالأسم [align=left]Private Sub Command7_Click() s = InputBox("ادخل اسم الطالب للبحث", "بحث بالرقم") s = "sname='" + s + "'" rs.FindFirst s If Not (rs.NoMatch) Then showdata Else MsgBox "لا يوجد طالب بهذا الأسم", vbOKOnly, "نتائج البحث" End If End Sub[/align] حدث الضغط على الزر بحث بالرقم [align=left]Private Sub Command8_Click() s = InputBox("ادخل رقم الطالب للبحث", "بحث بارقم") If s = "" Then Exit Sub s = "snum=" + s rs.FindFirst s If Not (rs.NoMatch) Then showdata Else MsgBox "لا يوجد بهذا الرقم", vbOKOnly, "نتائج البحث" End If End Sub[/align] حدث الضغط على الزر( حذف) [align=left]Private Sub Command9_Click() rs.Delete Text1.Text = "" Text2.Text = "" Text3.Text = "" MsgBox "تمت عملية الحذف", vbOKOnly + vbCritical, "عملية الحذف" End Sub[/align] حدث الضغط على الزر تعديل [align=left]Private Sub Command10_Click() rs.Edit rs!snum = Text1 rs!sname = Text2 rs!sdegree = Text3 rs.Update MsgBox "تم التعديل بنجاح", vbOKOnly, "تعديل البيانات" End Sub[/align] حدث الضغط على الزر خروج [align=left]Private Sub Command11_Click() End End Sub[/align] ارجوا تطبيق هذا المثال واي استفسار او ملاحظات او الاخطاء تسجيل ذلك السلام عليكم اخوكم : الحمادي

جزاك الله خيرا على هذه الشفرات المفيده وخاصة للمبرمجين المبتدئين .,.,.,., وبالفعل أحسن طريقة للتعامل مع قواعد البيانات هي باستخدام الشفرة بدون ( Data Control ) .,.,.,.,

جزاك الله خيرا على هذه الشفرات المفيده وخاصة للمبرمجين المبتدئين .,.,.,., وبالفعل أحسن طريقة للتعامل مع قواعد البيانات هي باستخدام الشفرة بدون ( Data Control ) .,.,.,.,

مشكورين اخواني سلاااااام