ورود

View Full Version : انتخاب تصادفي در بانك اكسس (random) طبق مثال زير


mahdisam
پنج شنبه 19 آذر 1388, 11:06 صبح
سلام ،
بعد از چند ماه دوباره مزاحم اوقات شريف شدم .
من دارم يه برنامه اي مي نويسم كه بانك اطلاعاتي اون اكسسه و مي خوام باتمي بگذارم كه با زدن اون به صورت تصادفي و اتوماتيك بين مثلاً صد نفر يم نفر رو انتخاب بكنه و به طور اتوماتيك اين شخص رو از بانك حذف بكنه و پس از حذف; با زدن همان باتن دوباره بين 99 نفر يكي رو بصورت تصادفي حذف بكنه ، الي آخر ، خواهشمندم كمكم كنيد و دست رد به سينه بنده حقير نزنيد . ... (اگه امكانش هست لطفاً اين جواب رو زودتر برام پاسخ بديد...)

:گیج:با تشكر مزاحم شما شكرالهي
سعید صابری
پنج شنبه 19 آذر 1388, 11:43 صبح
من دقيق نميدونم چي مي خواي شايد اين بدردت بخوره



var
i:Integer;
begin
i:=round(Random(ADOTable1.RecordCount-1));
while i=0 do
i:=round(Random(ADOTable1.RecordCount-1));
ADOTable1.RecNo:=i;
ADOTable1.Delete;
mahdisam
پنج شنبه 19 آذر 1388, 11:56 صبح
من دقيق نميدونم چي مي خواي شايد اين بدردت بخوره



var
i:Integer;
begin
i:=round(Random(ADOTable1.RecordCount-1));
while i=0 do
i:=round(Random(ADOTable1.RecordCount-1));
ADOTable1.RecNo:=i;
ADOTable1.Delete;



خيلي ممنون . واقعاً فرشته نجات بوديد براي بنده . تشكر