16-12-13, 11:15 PM
السلام عليكم
- كلمة space هي لكي تطبع مسافة فارغة بعدد الرقم الموجود بين قوسين بعدها .
- المثال في المرفقات فيه البحث وبعض الشرح .
- تحياتي .
كود :
'هنا يتم وضع أو تحديد مسار قاعدة البيانات على جهازك
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)- المثال في المرفقات فيه البحث وبعض الشرح .
- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next