كيف أستطيع معرفة عدد الصفوف في قاعدة البيانات

أشكرك على سرعة الرد وجزاك ربي خيراً والله يوفقك دنيا وآخرة والسلام عليكم ورحمة الله وبركاته

اذا كنت تستخدم الADo اكتب هذا الكود بعد ادراج مربع نص.....

Text1 = Adodc1.Recordset.RecordCount

أشكرك أخي على الرد ولكن للأسف لا أستعمل ال ADO مرة أخرى شكراً جزيلاً

وجزاك ربي خيراً (ولك دعوة كما وعدت من قام بالمساعدة)

الله يجزاكم خير سؤال آخر وهو: كيف أستطيع إضافة field إلى كمبو بكس

وهل الكود التالي صحيح علماً أني أشتغل على الداتا كونترول

x = Text1.Text + "*"
   Data1.RecordSource = "select * from جدول1 where اسم_الكتاب like '" + x + "'"
   Data1.Recordset.MoveFirst
   Data1.Refresh
   MSFG1.Refresh
   For I = 1 To 9
   Combo1.Clear
   Combo1.AddItem a
   Data1.Recordset.MoveNext
   Next
   End Sub

والسلام عليكم

يرجى توضيح العنوان مرة اخرى اخي ;)

وشكرا للاعضاء على الافادة

أشكرك أخي علاء

ولكن لاأحد الكود هل هو صحيح أم لا فإن كان لا فليساعد في تصحيحه إن استطاع

والسلام عليكم

الكود الصحيح

x = Text1.Text + "*"
   Data1.RecordSource = "select * from جدول1 where اسم_الكتاب like '" + x + "'"
   Data1.Recordset.MoveFirst
   Data1.Refresh
   MSFG1.Refresh 
' إعادة الجدول الى البداية بعد الفلترة
if Data1.Recordset.BOF=False then Data1.Recordset.Movefirst
' تجهيز الكومبو
combo1.Clear  
' بدء وضع البيانات داخل الكومبو على حسب عدد السجلات الموجودة وسوف يقوم بوضع الحقل الأول حيث يبدأ ترقيم الحقول من صفر
Do until Data1.Recordset.EOF
   Combo1.AddItem Data1.Recordset.Field(0)
   Data1.Recordset.MoveNext
Loop

تحياتي

End Sub

أخي عماني الله يجزاك خير ولكن هل لي بسؤال بسيط الله يجزاك خير

إذا كانت إجابتك بنعم

ماهو BOF و EOF

وإن كانت إجابتك لا الله يجزاك خير وماقصرت تعبت معي والله يوفقك دنيا وآخرة

والسلام عليكم

أخي الكريم

BOF هي Begin Of File أي بمعنى بداية الملف .

EOF هي End Of File اي بمعنى نهاية الملف

if Data1.Recordset.BOF=False then Data1.Recordset.Movefirst

هنا وضعنا شرط إذا لم يكن في بداية الجدول فقم باعادته الى اول سجل في الجدول

وهنا

Do until Data1.Recordset.EOF

قلنا للبرنامج بأن يكرر الاجراء باستخدم DO حتى نهاية الملف والفائدة من ذلك بأننا لا نعلم كم عدد السجلات التي سوف تكون موجودة . فربما تكون واحد وربما مئات .

أرجو انني قد أوضحت لك ما تريد

لا تنساني من خالص الدعاء

تحياتي

أشكرك أخي عماني والله يجزاك ألف خير

بالمناسبة أضفتلي معلومة .....وشكراً جزيلا ً

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

-----------------------------------------------------

أخوك /theebasya

السلام عليكم وجزاك ربي خيراً( بيكوز يو تيك مي يور فيس)

أرجو التعديل هناك خطأ انظر للكود لمعرفة السطر الذي يوجد فيه الخطأ

الله يجزاك خير

</b></div>x = Text1.Text + "*"
	  Data1.RecordSource = "select * from جدول1 where اسم_الكتاب like '" + x + "'"
	  Data1.Recordset.MoveFirst
	  Data1.Refresh
	  MSFG1.Refresh
   If Data1.Recordset.BOF = False Then Data1.Recordset.MoveFirst
   Combo1.Clear
   Do Until Data1.Recordset.EOF
	  Combo1.AddItem Data1.Recordset.Field(0)  'هناك خطأ في هذا السطر
	  Data1.Recordset.MoveNext
   Loop<div><b>

والسلام عليكم

أخي الكريم جرب هذا الكود وإن لم يحقق المراد قم بارفاق المثال لنراه

x = Text1.Text + "*"
	  Data1.RecordSource = "select * from جدول1 where اسم_الكتاب like '" + x + "'"
	  Data1.Recordset.MoveFirst
	  Data1.Refresh
	  MSFG1.Refresh
   If Data1.Recordset.BOF = False Then Data1.Recordset.MoveFirst
   Combo1.Clear
   Do Until Data1.Recordset.EOF
	  Combo1.AddItem Data1.Recordset.Field(0).value  'هناك خطأ في هذا السطر
	  Data1.Recordset.MoveNext
   Loop

تحياتي

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

هناك عائق وهو كبر المشروع

والله يوفقك دنيا وآخرة والله يرزقك الذرية الصالحة وقبل الذرية <البنت الصالحة> --------------Smile

والله يجزاك ألف خير

------------------------------

إن أردت إرفاق الفورم لوحده مع القاعدة فلا بأس

-----------------------

والسلام عليكم