دستور cursor for

[delphi_programmer_2010]

میشه در مورد این دستور منو راهنمایی کنید؟
منبع معرفی کنید یا مثال بزنبد؟مرسی

[Sk1900n3]

دوست عزیزم سلام

این دستور همانند دستور for عمل میکند

مثلا


DECLARE valueRequest_Cursor CURSOR FOR
Select id,name from tb
-- ========
OPEN valueRequest_Cursor;
FETCH NEXT FROM valueRequest_Cursor into @keyIdDefineKala,@value;
WHILE @@FETCH_STATUS = 0
BEGIN
--'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''
عملیات
--'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''
FETCH NEXT FROM valueRequest_Cursor into @keyIdDefineKala,@value;
END;
CLOSE valueRequest_Cursor;
DEALLOCATE valueRequest_Cursor;
دستور While تازمانی که تعداد رکوردها تمام نشده باشد
دستور fetch برای گرفتن اطلاعات رکورد جاری و قرار دادن ان در متغیر های @
keyIdDefineKala و value@

دستور close کرسر را بسته و در نهایت DEALLOCATE از حافظه خارج میکند