[الوفا]

في انتظار مساعدتكم رجاءءاااا؟؟؟؟ [size=large]

[VB_Coder]

السلام عليكم

كود :

'هنا يتم وضع أو تحديد مسار قاعدة البيانات على جهازك
Data1.DatabaseName = App.Path & "\student97.mdb"
'وهذا الأمر لتحديث أداة الداتا لكي يتم الإتصال بقاعدة البيانات التي حددنا مسارها أعلاه
Data1.Refresh

'هذا الأمر للإنتقال إلى أول سجل في قاعدة البيانات
Data1.Recordset.MoveFirst
'هذا الأمر للإنتقال إلى آخر سجل في قاعدة البيانات
Data1.Recordset.MoveLast

'لازم ننتقل إلى أول سجل ثم إلى آخر سجل في أداة الداتا على شان نقدر نعرف عدد السجلات
'الموجودة في الجدول

'هذا الأمر يجلب عدد السجلات الموجودة في الجدول ونضعه في متغير x
x = Data1.Recordset.RecordCount - 1

كود :

'هذا لكي تعرف إسم الحقل
Data1.Recordset.Fields(0).Name
'هذا لكي تعرف قيمة أو محتوى الحقل
Data1.Recordset.Fields(0).Value

كود :

Space(3)

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

- المثال في المرفقات فيه البحث وبعض الشرح .

- تحياتي .

[الوفا]

اخي الكريم VB_Coder شكررررا جزيلا عالمساعده والشرح والطرق الجميله اشكرك كثيرااا وجزاك الله الف خيير وقد استفدت من حضرتكم كثيرا بارك الله فيكم........
وانا جداا اسفه على الاسئله الكثيره جزاكم الله خيرا

تحيااااااااااااااتي