VPF::Как занести данные из таблицы - Форум программистов

Негодяй

Дата 5.5.2005, 17:06 (ссылка)

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

Загрузка ...

Порядочный

Профиль
Группа: Завсегдатай
Сообщений: 1513
Регистрация: 13.2.2005
Где: Kazakhstan, Almat y

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

Код


procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=table1.Lookup('Source','Portland','Destination');
edit1.Text:=s;
end;

end.

с помощью этого кода, я могу в строку занести только одно значения поля Destination соответсвующие условию

Цитата

table1.Lookup('Source','Portland','Destination')

а как можно получить все остальные, но без SQL и занести их в список?

Таблица такова:

Sourse Destination
_____________________
Portland Orange Country
Portland Charlotte
Portland Daytona Beach
Orange Country Montgomery
Charlotte Memphis
Memphis Champaign
Montgomery Memphis

Это сообщение отредактировал(а) Негодяй - 5.5.2005, 17:08

Негодяй

Дата 5.5.2005, 18:02 (ссылка)

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

Загрузка ...

Порядочный

Профиль
Группа: Завсегдатай
Сообщений: 1513
Регистрация: 13.2.2005
Где: Kazakhstan, Almat y

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

можно и со SQL но занести данные в список. Помогите. плззззззз

<Spawn>

Дата 6.5.2005, 04:54 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Если я правильно понял, то примерно так:

Код


Query.Text := 'SELECT Destination FROM Table WHERE Source = ''Portland''';

Query.Open;

while not Query.Eof() do
begin
  s := Query.FieldByName('Destination').AsString;
  Query.Next();
end;

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Негодяй

Дата 6.5.2005, 12:59 (ссылка)

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

Загрузка ...

Порядочный

Профиль
Группа: Завсегдатай
Сообщений: 1513
Регистрация: 13.2.2005
Где: Kazakhstan, Almat y

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

спасибочки

Код


var
  Query: TQuery;

  begin
  Query := TQuery.Create(nil);
  datasource1.DataSet:=query;
  query.DatabaseName:='Airlines';
  query.SQL.Add('select Source,Destination from FLIGHT where Source="Portland"');
  query.Active:=true;

while not Query.Eof do
begin
  memo1.Lines.Add(Query.FieldByName('Destination').AsString);
  Query.Next();
end;
end;

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