ایجاد تغییر در تمام رکوردهای یک فیلد جدول

[babak869]

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

[oghab]

سلام
با این روش می تونی به یه فیلد مشخص که باید بدونی چندمین فیلدت هست، دسترسی پیدا کنی.
و بعد باهاش هر کاری میخوای بکنی. t یه متغبر از نوع date است.


ADOTable1 .First ;
while not ADOTable1 .Eof do
begin
t:=ADOTable1 .fields[8].AsDateTime ;
adotable1.Next ;
end;



موفق باشی

[oghab]

ADOTable1 .First ;

while not ADOTable1.Eof do

     begin

            t:=ADOTable1.fields[8].AsDateTime ;

            adotable1.Next ;

    end;

حالا بهتر شد.

[Naficy]

در مورد این کار خاصی که ذکر کردین، شما می تونین یه Query بنویسین که فقط رکوردهایی رو برگردونه که خصوصیت مورد نظر رو دارن.

[babak869]

با سلام
ممنون از جوابتون ولی من میخوام تمام رکوردها رو از 1 تا آخر چک کنم نه این که به فیلد خاصی اشاره کنم.روش رسیدن به تک فیلد رو میدونم اما میخوام تمام رکوردها رو بررسی کنم.این روشی که دوستان گفتند برای یه فیلد مشخصه
ممنونم

[m-khorsandi]

درود

var

  iCounter: Integer;

begin

  while not (ADOTable1.Eof) do

  begin



    for iCounter := 0 to ADOTable1.FieldCount - 1 do

    begin

      ShowMessage(ADOTable1.Fields.Fields[iCounter].AsString);

    end;



    ADOTable1.Next;

  end;

[omid_delphi2]

ترا خدا خودت یه نگاه به سوالت بنداز
تمام رکوردهای یه فیلد
ببین اصلا معنی میده؟؟؟!!!!

[babak869]

چرا معنی نمیده ؟
وظیفه من نیست که برات معنی کنم خودت باید تشخیص بدی!!!!!
من چند بار هم تکرار کردم که منظورم تمام رکوردهای مشخص مثل تاریخ از فیلدی است که کاربر تاریخ را وارد میکنه.
اگه نیفتاد تا دوباره توضیح بدم

[babak869]

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