Форум: "Базы";
Текущий архив: 2010.03.21;
Скачать: [xml.tar.bz2];
ВнизЦикл Найти похожие ветки
← →
Zalum (2009-03-05 13:18) [0]Делаю 1-ый запрос. Получаю количество данных. Делаю 2-ой запрос, и из полученного набора данных, мне нужно по порядку
перебрать каждый book_id,
и в зависимости от этого значения производить определенные действия:
(case FieldByName("book_ID").AsInteger of
)
21 : begin
.....
22 : begin
Моя проблемма заключается в том, что не знаю как перебирать эти данные. Я пробовал делать в циклеfor I := 0 to j-1 do
, но так не верно.with Unit1.IBQuery1 do
begin
SQL.Clear;
SQL.Add(" select count(*) FROM Table1 "+
"WHERE .... "+
"order by ...");
ParamByName("...
Open;
j := FieldByName("count").AsInteger;
Close;
with Unit1.IBQuery1 do
begin
SQL.Clear;
SQL.Add(" select * FROM Table1 "+
"WHERE .... "+
"order by ...");
ParamByName("...
Open;
for I := 0 to j-1 do
begin
case FieldByName("book_ID").AsInteger of
21 : begin
.....
22 : begin
end;
Close;
end;
← →
Сергей М. © (2009-03-05 13:21) [1]with Unit1.IBQuery1 do
begin
SQL.Clear;
SQL.Add(" select * FROM Table1 "+
"WHERE .... "+
"order by ...");
ParamByName("...
Open;
while not Eof do
begin
case FieldByName("book_ID").AsInteger of
21 : begin
.....
22 : begin
Next;
end;
Close;
end;
← →
Ega23 © (2009-03-05 13:23) [2]Зачем 2 запроса?
with DataSe do
begin
SQL.Text := "select * from Table where ....";
try
try
Open;
First;
while not Eof do
begin
case FieldByName(...).AsInteger of
21 : begin
......
end;
22 : begin
......
end;
.......
else
begin
........
end;
end;// case
Next;
end;
except on E : Exception do
ShowMessage(E.Message);
end;
finally
Close;
end;
end;
← →
Zalum (2009-03-05 13:31) [3]Спасибо огромное!
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2010.03.21;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c