بدست آوردن شماره رکورد

[look20]

با سلام و خسته نباشید چطور میشه تعداد رکورد ها رو توی یه textbox نشون بده مثلا M البته می دونم این کدشه:
M.text = Adodc1.Recordset.RecordCount
ولی ببخشید این کد رو کجای فرمم بزارم
البته می دونم خیلی راجبش صحبت شده ولی مشکلم مربوط به اینکه کجا قرارش بدم

[xxxxx_xxxxx]

سلام،
بعد از این دستور:


Adodc1.Refresh

[look20]

با سلام ولی یه مشکلی هست من وقتی رکورد جدید می سازم چکار کنم که این عدد تغییر کنه مثلا من 3 تا رکورد دارم و وقتی رکورد جدید می سازم و ذخیره هم می کنم ولی هنوز عدد 3 تعداد رکورد رو نشون می ده و باید فرمم رو ببیندم و سپس خارج بشم تا 4 تا رو نشون بده
در delet کردن رکورد هم به همین شکله...
میشه راهنمایی کنید که چکار کنم وقتی رکورد جدیدی می سازم و یا حذف می کنم تعداد رکوردها رو درست اعلام کنه
با تشکر البته با معذرت از اینکه وقتتون رو می گیرم

[HjSoft]

راه هايي كه براي اين موضوع است :
الف ) استفاده از Timer : كه پيشنهاد نميشه چون يكم حافظه رو اشغال ميكنه . هر چند اين موضوع رو شما متوجه نمي شيد اما اگه روي يك سيستم قديمي تست كنين . كاملا به چشم مياد .
ب ) فراخواندن تابعي كه مقدار ها را update ميكند در زمان delete يا add : يعني اينكه در زمان تغيير اطلاعات بيايد و مقدار رو دوباره توي تكست باكس بريزيد .

[look20]

ببخشید یعنی چکار کنم از چه کدی استفاده کنم؟

[polisoftco]

ببینین دوست من :
شما حتما بعداز افزودن ویا حذف کردن یک رکورد تیبل رو رفرش هم میکنین، خب پس هروقت که رفرش کردی، اون تیکه کدت رو هم فراخوانی کن، یعنی :



Adodc1.Refresh
M.Text = Adodc1.Recordset.RecordCount


موفق باشین

[look20]

با سلام ببخشید دوست عزیز من چون دکمه next first last prev ساختم می خوام وقتی روی این دکمه ها هم کلیک کردم این کد اجرا بشه ولی کدو که کپی می کنم دیگه نمیتون به رکورد قبلی و بعدی برم و درست اجرا نمیشه
این کدای منه


Private Sub cmdFirst_Click()
Ado.Recordset.MoveFirst
Ado2.RecordSource = "SELECT * FROM Table2 WHERE cod=" & Ado.Recordset.Fields("cod")
Ado2.Refresh
End Sub


Private Sub cmdLast_Click()
Ado.Recordset.MoveLast
Ado2.RecordSource = "SELECT * FROM Table2 WHERE cod=" & Ado.Recordset.Fields("cod")
Ado2.Refresh

End Sub


Private Sub cmdNext_Click()
If Not Ado.Recordset.EOF Then Ado.Recordset.MoveNext
If txtName.Text = "" Then Ado.Recordset.MovePrevious
Ado2.RecordSource = "SELECT * FROM Table2 WHERE cod=" & Ado.Recordset.Fields("cod")
Ado2.Refresh
End Sub


Private Sub cmdPrev_Click()
If Not Ado.Recordset.BOF Then Ado.Recordset.MovePrevious
If txtName.Text = "" Then Ado.Recordset.MoveNext
Ado2.RecordSource = "SELECT * FROM Table2 WHERE cod=" & Ado.Recordset.Fields("cod")
Ado2.Refresh

End Sub
البته اگه زحمتی نباشی مزاحم همیشگی سایت

[polisoftco]

دوست عزیز
شما یک لیبل بزارین روی فرم، خب حالا، حتما تو Form Load دیتابیس رو لود میکنین، خب پس از نوشتن لود دیتابیس، کد label1.caption = adodc1.recordset.recordcount رو بنویس.
موقعی هم که رکوردی رو اضافه ویا حذف میکنین، پس از آپدیت جدول این کد بالایی رو بنویس.

برای دکمه های بعدی قبلی آخری و اولی لزومی نداره این کد رو قرار بدین، مگر اینکه جدولتون تغییر کنه، که دراینصورت پس از رفرش بازهم همون کد بالایی.

موفق باشین