VPF::Как получать данные из БД - Форум программистов

Smog

Дата 6.2.2007, 22:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 22.9.2004

Репутация: нет
Всего: нет

Я не понимаю, если мне нужно взять из базы данные, то как это лучше делать?
Ну то есть есть таблица, которая хранит сообщения и запросом на выдачу сообщений темы такой-то будет

Код




SELECT 
 MESS_ID, 
 AUTOR, 
 MES, 
 DATE, 
 IS_SIGN, 
 IS_SMILES 
FROM 
 TOPICS  
where TREAD_ID=1 and FORUM_ID=2

И что я никуда, кроме DBGrid не помещу эти данные? А что потом из него их вытаскивать ручками?
Мне же надо в переменные их запихать, а не в таблицу

ps firebird 1.5 (embedded) + FIBplus + Delphi 7

Или для этого надо юзать Query? и чтобы получить значения каждой переменной, делать запрос на каждую?

LSD

Дата 6.2.2007, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Leprechaun Software Developer

Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Репутация: 1
Всего: 538

DBGrid позволяет перемещаться по данным (next/previous). Перешел на нужную строку, считал данные из колонок, записал их в переменные и переходишь к следующей строке.

Модератор: перемещено из Общие вопросы по базам данных

--------------------

Disclaimer: this post contains explicit depictions of personal opinion. So, if it sounds sarcastic, don't take it seriously. If it sounds dangerous, do not try this at home or at all. And if it offends you, just don't read it.

Smog

Дата 7.2.2007, 06:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 22.9.2004

Репутация: нет
Всего: нет

LSD, Это все так делают? это рационально? smile

ТоляМБА

Дата 7.2.2007, 07:49 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 3
Всего: 252

Код


Query1.Close;
Query1.SQL.Text:='Select Field1 from table1';
Query1.Open;
Query1.First;
while not Query1.eof do begin
 v:=Query1.FieldValues['Field1'];
...
Query1.Next;
end;
Query1.Close;

Можеш в цикле заполнять динамический массив и потом его в другом цикле обрабатывать - зависит от задачи.

Smog

Дата 7.2.2007, 09:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 22.9.2004

Репутация: нет
Всего: нет

Задача в следующем: вытащить из базы несколько значений и вставить их в html шаблон...

ТоляМБА

Дата 7.2.2007, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 3
Всего: 252

Цитата(Smog @ 7.2.2007, 09:51

)

вытащить из базы несколько значений

Вот по этой части тебе дали два варианта решения. Ты хоть один пробовал? Если нет - извини...

Данкинг

Дата 7.2.2007, 12:01 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(Smog @ 7.2.2007, 06:03)

LSD, Это все так делают? это рационально? smile

А что нерационального-то? Вытаскиваешь в запрос нужные тебе строки и с ними уже работаешь с помощью .locate, .first, .next, .fieldvalues и т.п.

--------------------

There's nothing left but silent epitaphs.

ТоляМБА

Дата 7.2.2007, 14:13 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 3
Всего: 252

Цитата(Данкинг @ 7.2.2007, 12:01

)

А что нерационального-то?

Давайте не будем вводить путаницу: LCD отвечал ПРИМЕНИТЕЛЬНО к DBGridу так как Smog спрашивал про DBGrid, но если на форме НЕ НУЖЕН DBGrid, то зачем делать на форме визуальный компанент и всобачивать ему Visible:=False ??? Рациональнее будет сделать через Query и цикл.

Smog

Дата 7.2.2007, 15:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 22.9.2004

Репутация: нет
Всего: нет

Спасибо, вот таким образом получилось:

Код



var
v:variant;
begin
pFIBDatabase1.Connected :=true;
pFIBTransaction1.Active:=true;
pFIBQuery1.Close ;
pFIBQuery1.SQL.Clear;
pFIBQuery1.SQL.Add('SELECT MESS_ID,  AUTOR,  MES, IS_SIGN, IS_SMILES  FROM   TOPICS ');
pFIBQuery1.SQL.Add('where TREAD_ID=1 and FORUM_ID=2');
pFIBQuery1.ExecQuery;
while not pFIBQuery1.eof do begin
v:=pFIBQuery1.FieldValue('AUTOR',false);
showmessage(v);
v:=pFIBQuery1.FieldValue('MES',false);
showmessage(v);
pFIBQuery1.Next ;
end;
pFIBQuery1.Close;

DBGrid решил не использовать

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »