بدست اوردن تعداد رکورد های Adodc و حذف رکورد های اضافی

[aleas2]

سلام خسته نباشید بنده با Adodc به بانک وصل شدم حالا چطور میتونم اینکارو بکنم میخوام تعداد رکورد های موجود در بانک چک کنه (بانک هم یه جدول بیشتر نداره )اگر تعداد رکورد ها بیشتر از 1000تا رکورد بود (اینو که میدونین وقتی رکورد جدیدی به بانک اضافه میکنیم اخر بانک قرار میگیره)خب حالا اگر دیدم تعداد رکورد ها بیشتر از 1000تا رکورد بود 1000تا رکوردی که اخر اضافه کردیم بزاره باشه بقیه رو پاک کنه بطور مثال اگر مثلا 1010تا رکورد بود 10تا رکورد اول جدول (توجه 10تا رکورد اول جدول نه اخر جدول) رو حذف کنه امیدواردم متوجه منظورم شده باشین

بطور مثال دگه میخواهیم تعداد رکورد های جدول چک کنه اگر تعداد رکورد ها بیشتر از 5 تا بود 5تا رکورد اخر بزاره باشه بقیه رو حدف کنه

http://ups.night-skin.com/images/zug1rfujynrqfn9z508.jpg

خب دوستان میشه راهنمایی کنین؟و اگر کدشو امکان داره بگین؟

[IamOverlord]

این سوال رو باید در بخش مرتبط با بانک های اطلاعاتی مطرح کنید.

[farboodj1375]

سلام.فکر کنم با این کارت راه بیفته:



Dim a as long
Dim i as long
Dim b as long

a=adodc1.recordset.recordcount

adodc1.recordset.movefirst


if a =< 1000 then

exit sub

else

for i=0 to a-1

adodc1.recordset.delete
b=adodc1.recordset.recordcount
if b =< 1000 then exit for


next i


end if

[farboodj1375]

البته خودم تستش نکردم ولی فکر کنم درست کار کنه.
اگه امتحان کردی نتیجش رو بگو که درست کار کرده یا نه.

[aleas2]

سلام خسته نباشید بله کد شما درسته فقط باید این کد

Adodc1.Recordset.MoveFirst
قبل از

Adodc1.Recordset.Delete
قرار داد


ولی بنده به این شکل استفاده کردم مرسی ممنون

Dim i As Integer
i = 1000
Do While i < Adodc1.Recordset.RecordCount
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Delete
Loop

[aleas2]

با این حال گاهی اوقات خطای
74074
چکار کنم؟

[aleas2]

سلام خسته نباشید خواستم بگم از

On Error Resume Next
استفاده کردم مشکل حل شد از همگی ممنون