Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
1 / 1 / 5
Регистрация: 25.04.2013
Сообщений: 165
1

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

07.05.2013, 13:04. Показов 1626. Ответов 4
Метки нет (Все метки)

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

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

Delphi
1
2
3
4
5
6
7
8
9
  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
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.05.2013, 13:04
Ответы с готовыми решениями:

Как сделать так, чтобы строки одной таблицы не могли удалиться до тех пор, пока существуют соответствующие строки другой таблицы?
Имеются две таблицы: Заявки и соответствующие заявкам Испытания. Вначале пользователь заполняет...

Можно ли как нибудь добавить данные из 1 поля 1 таблицы в pickllist другого поля другой таблицы?
Добавить данные в picklist полю ФИО, чтоб получился выпадающий список Бред конечно, ноо... Может...

Добавление в поля одной таблицы дынных из другой
Всем привет! Делаю дипломную "База данных аптеки". БД делаю с помощью Paradox 7. Есть три таблицы:...

Поиск по ячейке одной таблицы и редактирование/создание поля в другой таблице
Пробовал и так: begin id:=datamodule1.ADOQuery1.FieldByName('Примечание_id').AsInteger; ...

__________________
4
1 / 1 / 5
Регистрация: 25.04.2013
Сообщений: 165
07.05.2013, 13:57  [ТС] 2
как то так должно быть
0
Изображения
 
1 / 1 / 5
Регистрация: 25.04.2013
Сообщений: 165
08.05.2013, 07:52  [ТС] 3
Вот как примерно выглядит результат запроса ну подскажите как его запихать в одну строку kbmMemTable1 буду очень признательна))
0
Миниатюры
Как записать две строки поля одной таблицы в одну строку другой?  
1070 / 984 / 339
Регистрация: 07.08.2012
Сообщений: 2,778
08.05.2013, 08:13 4
Например, так:
Delphi
1
2
3
4
5
  while not q2.Eof do begin
    kbmMemTable1['p'] := kbmMemTable1['p'] +' '+ q2.fieldbyname('FIL').asstring;
    q2.Next;
  end;
  q2.Close;
или такой вариант: (суть одна, но ниже делим результат в две строки):
Delphi
1
2
3
4
5
6
7
  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) не поможет.
1
1 / 1 / 5
Регистрация: 25.04.2013
Сообщений: 165
08.05.2013, 08:50  [ТС] 5
не получилось две строки появились пустые и все((

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

Добавлено через 2 минуты
а вторым способ ваще норм)) СПАСИБОНЬКИ))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.05.2013, 08:50

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Как в поле ID одной таблицы записать значение поля ID другой таблицы
В БД две таблицы: 1)USERS с полями ID_User, Name, Password. В нее записываются пользователи...

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

Перенос двух ячеек из одной строки таблицы, в одну ячейку другой таблицы.
Я объясню по кароче. Если чек бокс = true то две ячеки надо занести и объединить в одну в другой...

Заданы две строки одинаковой длины. Построить новую строку, состоящую из символов как одной, так и другой
помогите пожайлуста. Заданы две строки одинаковой длины. Построить новую строку, состоящую из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.