آموزش: رفرش یک رکورد در Ado [بایگانی]

khorsandreza

جمعه 16 مرداد 1394, 13:47 عصر

سلام دوستان
من معمولا از کامپوننت SqlDirect استفاده می کردم ولی جدید برای یک برنامه از AdoQuery استفاده می کنم در SqlDirect می توانستیم یک رکوذ را رفرش و تغییرات رکورد را توسط کاربر دیگر ببینیم ولی این خصیصه در AdoQurey کار نمی کنه من مجبور شدم از یک رویه کوچک استفاده کنم می خواستم دوستان نظر بدهند ایا این کار درست است ؟ و یا متد دیگری برای Ado هست من اطلاع ندارم
Procedure RefrashRec(MainQ:TADOQuery);
var
mvf: TBookmark;
Begin
Try
mvf := MainQ.GetBookmark;
Try
MainQ.Close;
MainQ.Open;
Finally
MainQ.GotoBookmark(mvf);
MainQ.FreeBookmark(mvf);
End;
Except
MainQ.FreeBookmark(mvf);
End;
End;