Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];




Вниз

Результат запроса -> в переменную (массив) 


tatk   (2002-01-30 19:16) [0]

Используется: Delphi, BDE, TQuery.
Есть запрос: SELECT MAX(id) FROM peapls
Подскажите, пожалуйста, как результат в переменную затолкать?
Или, вообще, как затолкать результат запроса в массив (например, двумерный)?



Фэ   (2002-01-30 21:56) [1]

Variant массив



Anatoly Podgoretsky   (2002-01-31 00:08) [2]

.Fields[0].Value/.AsInteger/.AsFloat
А почему в двухмерныйЮ возвращается одна строка



Фэ   (2002-01-31 00:55) [3]

Вероятно второй вопрос о запросе возвращающем несколько записей.
В этом случае variant массив - общее решение.
Через SetLenght() установит размерность по координатам
По первому запросу вернется конечно одна строка и даже одно поле.



User_OKA   (2002-01-31 06:52) [4]

Я функцию делаю:
function TForm.X:variant;
var i:integer;
begin
Result:=VarArrayCreate([0..10],varVariant);
with TIBQuery do begin
//запрос, при этом результат - обязательно 1 запись,
//а кол-во полей не больше размерности Result
Open;
for i:=0 to FieldCount-1 begin
Result[i]:=Fields[0].AsValue;//неплохо бы на NULL проверить
end;
end;
end;



tatk   (2002-01-31 19:27) [5]

Большое спасибо Всем!




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.022 c
1-79328           IronHawk              2002-02-07 11:03  2002.02.25  
Приветствую Мастеров ! Запамятовал, КАК В PageControl ПОМЕНЯТЬ МЕСТАМИ TabSheet-ы ???


14-79451          Lex                   2002-01-08 18:45  2002.02.25  
Почему у меня не работает функция valueexists?


4-79498           Woolen                2001-12-23 23:19  2002.02.25  
OpenGL API и double buffer


14-79439          Alex!!!               2002-01-04 13:15  2002.02.25  
Подскажите, какой язык программирования учить для заработка денег?


1-79383           il2                   2002-02-07 14:57  2002.02.25  
MDIChildren