Как записать две строки поля одной таблицы в одну строку другой?

@King_of_Arthur · Регистрация: 25.04.2013

Author24 — интернет-сервис помощи студентам

Есть такой запрос к БД и результат этого запроса две строки ROH и KOR поля FIL

С 6 строки результат запроса заполняется в kbmMemTable1 таблицу памяти
Подскажите как записать результат запроса чтоб он выглядел так: ROH
KOR

Delphi

  Q2.Close;
  Q2.DatabaseName:='BD';
  Q2.SQL.Clear;
  Q2.SQL.Add('Select distinct FIL from KNI');
  Q2.Open;
  kbmMemTable1.Append;
  kbmMemTable1['key']:=13;
  kbmMemTable1['np']:='Какие модули подключены';
  kbmMemTable1['p']:=q2.fieldbyname('FIL').asstring;

Добавлено через 1 минуту
чтоб в одной строке было ROH
KOR

@King_of_Arthur · 07.05.2013, 13:57 **[ТС]**

как то так должно быть

@King_of_Arthur · 08.05.2013, 07:52 **[ТС]**

Вот как примерно выглядит результат запроса ну подскажите как его запихать в одну строку kbmMemTable1 буду очень признательна))

Скандербег · 08.05.2013, 08:13

Например, так:

Delphi

  while not q2.Eof do begin
    kbmMemTable1['p'] := kbmMemTable1['p'] +' '+ q2.fieldbyname('FIL').asstring;
    q2.Next;
  end;
  q2.Close;

или такой вариант: (суть одна, но ниже делим результат в две строки):

Delphi

  S := '';
  while not q2.Eof do begin
    S := S +#13#10 + q2.fieldbyname('FIL').asstring;
    q2.Next;
  end;
  q2.Close;
  kbmMemTable1['p'] := S;

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

@King_of_Arthur · 08.05.2013, 08:50 **[ТС]**

не получилось две строки появились пустые и все((

Добавлено через 3 минуты
а не получилось только отобразилось ROH ROH KOR

Добавлено через 2 минуты
а вторым способ ваще норм)) СПАСИБОНЬКИ))

@King_of_Arthur 1 / 1 / 5 Регистрация: 25.04.2013 Сообщений: 165
	07.05.2013, 13:57 [ТС]	2
	как то так должно быть Изображения 0

@King_of_Arthur 1 / 1 / 5 Регистрация: 25.04.2013 Сообщений: 165
	08.05.2013, 07:52 [ТС]	3
	Вот как примерно выглядит результат запроса ну подскажите как его запихать в одну строку kbmMemTable1 буду очень признательна)) Миниатюры 0

@King_of_Arthur 1 / 1 / 5 Регистрация: 25.04.2013 Сообщений: 165
	08.05.2013, 08:50 [ТС]	5
	не получилось две строки появились пустые и все(( Добавлено через 3 минуты а не получилось только отобразилось ROH ROH KOR Добавлено через 2 минуты а вторым способ ваще норм)) СПАСИБОНЬКИ)) 0

Опции темы