مشکل : جستجوی ترتیبی روی رکوردها ، بدون SQL

[Babak-Aghili]

وقتی میخواهم برنامه را اجرا کنم ، خطای زیر را نشون میده ! ... ‌( شکل زیر )

http://tinypic.com/fdhw07.jpg

من که جایی به PK های محترم ، کاری نداشتم ... جریان چی چیه ؟ :ناراحت:


procedure TForm1.Button3Click(Sender: TObject);
var
BM: TBookmarkStr;
begin
if (isFirst) then
begin
ADOTable1.First;
isFirst:= False;
BM:= ADOTable1.Bookmark;
BM:= FindNextRecord(BM);
end
else
begin
FindNextRecord(BM);
end;
end;




function TForm1.FindNextRecord(Place: TBookmarkStr):TBookmarkStr;
begin
ADOTable1.Bookmark:= Place;
if(not ADOTable1.Eof) then
ADOTable1.Next;
if(ADOTable1.Locate('Qty',10,[])) then
Place:= ADOTable1.Bookmark;
end;

:بوس:

[Babak-Aghili]

قراره با هربار فشار دادن کلید Button 3 ( کد اول ) ... رکورد بعدی مورد نظر Locate شود ...

[Babak-Aghili]

با عرض شرمندگی ..

من دوباره به کد نگاه کردم .چیز غیر منظقی به نظرم نمیاد !!

میشه یک الطفاتی بکنید ..

[JavanSoft]

فکر می کنم ADO در مورد BookMark مشکل دارد

[Babak-Aghili]

فکر می کنم ADO در مورد BookMark مشکل دارد


نه !

آلان درست یادم نیست که اون موقع چی نوشته بودم !! ولی یک چیزی را اون موقع چک نکردم که خطا گرفته .. اون هم اینکه برای bookmark حتما باید Cursor Loacation روی client باشد ...