كيف اعرض عدد السجلات

اولا بالنسبة لعدد العملاء من الممكن ان تستخدم هذا الكود الإستعلامي

select * from customers

dim x as intger

do while rs.eof = false

x = x+1

rs.movenext

loop

label1.caption = x

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

اما بالنسبة لترتيب عميل معين من الممكن ان تعمل حقل زيادة ويكون AutoNumber وبعدين تعمل جملة إستعلامية عادية خالص على العميل اللي انت دوست عليه وبعدين تقرا الرقم اللي في الحقل AutoNumbe

بسم الله الرحمن الرحيم

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

بالنسبة لنقطة ترتيب العميل فحقل رقم العميل وهو حقل Autonumber ويقوم باعطاء رقم للعميل ولكن مااريده هو ان اعرف ترتيب العميل الفعلي بين السجلات الموجودة فعلا (بعد اي حذف لعملاء)فمثلا تكون الرسالة العميل ترتيبة 4 من 10 سجلات

شكراااا

السلام عليكم

اولا لنفترض ان الحقل بتاع اسماء العملاء هو العمود رقم 2

select * from customers

dim num as intger

do while rs.eof=false

num= num + 1

if rs(2) = text1.text then

label2.caption = num

end if

rs.movenext

loop

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

شكرا يا اخي

لنفرض أنك متصل بقاعدة البيانات بالجدول customers أكتب هذا الكود سيرجع لك الموفع لحالي للسجل

coun.Text = Me.BindingContext(DataSet11, "customers").Position

أذا ارت مثلا السجل التالي

Me.BindingContext(DataSet11, "customers").Position += 1

أذا اردت السجل الاخير

Me.BindingContext(DataSet11, "customers").Position = Me.BindingContext(DataSet11, "customers").Count - 1

اذا اردت السجل الاول

Me.BindingContext(DataSet11, "customers").Position = 0