вопрос про ADO

[Cantana]

привет всем кто заинтересовался и спасибо вам .

проблема в том что у меня в коде

dm2.ADOQuery1.Close;
dm2.ad_q.SQL.Text:='select * from ekspriment';
dm2.ad_q.Open;
s:=dm2.ad_q.RecordCount;
SetLength(dmas,s);
for i:=1 to s do
begin
dmas[i]:=dm2.ad_q.Fields[3].AsFloat;
dm2.ad_q.Next;
end;
dm2.ad_q.Next; в место того чтобы по одной записи оно в каком те место проскакивает, если кто сталкивалься с таким вопросом подскажите....

[bill]

Попробуйте F8. С помощью него можно посмотреть где проскакивает.

[Cantana]

"Попробуйте F8. С помощью него можно посмотреть где проскакивает."

я знаю где проскакиваеть в записи, но там в разных данных по разному
то есть сам ADOQuery1.Next не корректно работает

[Ivan_Susanin]

Вместо

for i:=1 to s do
begin
dmas[i]:=dm2.ad_q.Fields[3].AsFloat;
dm2.ad_q.Next;
end;


используй

i:=0;
while not(dm2.ad_q.eof) do
begin
i:=i+1;
dmas[i]:=dm2.ad_q.Fields[3].AsFloat;
dm2.ad_q.Next;
end;

begin
dmas[i]:=dm2.ad_q.Fields[3].AsFloat;
dm2.ad_q.Next;
end;

[Virtson]

Сообщение от Cantana

dm2.ADOQuery1.Close;
dm2.ad_q.SQL.Text:='select * from ekspriment';

так как именно называется компонент TAdoQuery ?

используйте First для перехода на начало EOF для выхода их цикла ..

[Cantana]

не могу найти в чем ошибка

ADOQuery1.Close;
ADOQuery1.SQL.Text:='select * from jimm';
ADOQuery1.Open;

ADOQuery1.First;

repeat
tmpstr.Add(ADOQuery1.Fields[0].AsString+#9+ADOQuery1.Fields[3].AsString);
ADOQuery1.Next;
until ADOQuery1.Eof;

из базы данных Access
Код data energobyekt znach
112211 128830 3 -152
112212 128840 3 -152
112213 128850 3 -152
112214 128860 3 -152
112215 128870 3 -152


Код data energobyekt znach
112382 127300 3 79
112383 127310 3 79
112384 127320 3 79
112385 127330 3 79
112386 127340 3 117


112209 -116
112210 -116
112211 -152 // дольжно быть 112212 запись вместо него 112382
112382 79
112383 79
112384 79
112385 79
112386 117
112387 117

я добавил отривок что-бы пояснит ситуацию...

[Virtson]

мы ничего не поняли,
если таблиц несколько то какие связи м/у ними ?

[Cantana]

Сообщение от Virtson

мы ничего не поняли,
если таблиц несколько то какие связи м/у ними ?

это одна таблица
Код data energobyekt znach
112211 128830 3 -152
112212 128840 3 -152
112213 128850 3 -152
112214 128860 3 -152
112215 128870 3 -152
...
...
...
112382 127300 3 79
112383 127310 3 79
112384 127320 3 79
112385 127330 3 79
112386 127340 3 117

а это уже как бы результат в Memo1
112209 -116
112210 -116
112211 -152 // дольжно быть №112212 запись вместо него №112382 проскок здес происходить
112382 79
112383 79
112384 79
112385 79
112386 117
112387 117

please всем прогерам помогите у меня проект горит

[Virtson]

уже давно бы выложил базу и сам проект ..

[Virtson]

подключаешь dbgrid к AdoQuery ч.з DataSource , и смотришь что там на самом деле ..
можно даже не запуская прогу, в самом Delphi