Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.04.2018, 21:50   #1
xclassic
Новичок
Джуниор
 
Регистрация: 02.04.2018
Сообщений: 1
По умолчанию Как сделать вывод нужного столбца бд в ComboBox.

у меня в бд есть столбец где перечисляются наименование организации, как сделать так что бы они перечислялись в комбобоксе,(DBLoopCoomboBox не предлагать) буду очень благодарен, просто вообще не знаю как это сделать.
Изображения
Тип файла: jpg Безымянный.jpg (83.0 Кб, 140 просмотров)
xclassic вне форума Ответить с цитированием
Старый 02.04.2018, 23:19   #2
MrDimain
Пользователь
 
Регистрация: 16.04.2017
Сообщений: 18
Хорошо

Я для таких целей написал функцию. конечно возможно это и костыль, но работает...
Код:
//aTable - имя таблицы из которой беру значения
//aField - Имя поля
//AWhere - Выборка
//aOrder - Сортировка
function GetListFromTable(aTable, aField: string; aWhere: string = '';
  aOrder: string = ''): TStringList;
var
  TQ: TADOQuery; {TQ = TempQuery}
  i: Integer;
begin
  TQ := TADOQuery.Create(nil);
  TQ.Connection := Connect;
  Result := TStringList.Create;

  aField := Format('(%S) AS ColName', [aField]);

  try
    TQ.SQL.Clear;
    TQ.SQL.Add('SELECT ' + aField + ' FROM ' + aTable);
    if aWhere <> '' then
      TQ.SQL.Add('WHERE ' + aWhere);
    if aOrder <> '' then
      TQ.SQL.Add('ORDER BY ' + aOrder);
    TQ.Open;

    for i := 1 to TQ.RecordCount do
    begin
      Result.Add(TQ.FieldList[0].AsString);
      TQ.Next;
    end;
  except
    on E: Exception do
    begin
      ShowMessage(TQ.SQL.Text + #13#10 + E.Message);
    end;
  end;

  TQ.Destroy;
end;

procedure TForm.Button1Click(Sender: TObject);
begin
  ComboBox.Items:= GetListFromTable({параметры});
end;

Последний раз редактировалось MrDimain; 02.04.2018 в 23:27.
MrDimain вне форума Ответить с цитированием
Старый 02.04.2018, 23:29   #3
xxbesoxx
Участник клуба
 
Регистрация: 10.08.2010
Сообщений: 1,389
По умолчанию

Цитата:
Сообщение от xclassic Посмотреть сообщение
как сделать так что бы они перечислялись в комбобоксе
http://programmersforum.ru/showthrea...Items+xxbesoxx
xxbesoxx вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как в Excel 2010 сделать макрос для поиска нужного значения Сергей Ш. Microsoft Office Excel 4 03.04.2013 09:36
Как на CSS сделать 2 столбца дивами? FireDex HTML и CSS 1 24.02.2011 08:26
Как сделать поиск нужного слова в TextBox 3dgraph Общие вопросы .NET 2 30.06.2009 10:55
Как в ComboBox вывести записи столбца из таблицы chandrasecar Microsoft Office Access 1 29.05.2009 15:18