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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.04.2009, 16:14   #1
ННС
Пользователь
 
Регистрация: 23.03.2009
Сообщений: 11
По умолчанию ComboBox с числовыми данными

Подскажите пожалуйста!!! надо сделать запрос из выпадающего списка с числовыми данными. Вот есть мои наработки, но пишет что несоответствие типов. Понимаю, что надо не текст, а как это сделать не могу сообразить
Код:
procedure TForm16.Button1Click(Sender: TObject);
begin
  If (ComboBox1.Text<>'') Then
  s:='запроса:"Вывести данные по номеру прибора"';
 with DataModule3.ADOQuery3 do
      begin
        close;     // закрыть результат выполнения предыдущего запроса
        SQL.Clear; // удалить текст предыдущего запроса
        //формируется новый запрос
  SQL.Add('Select Nomer_pribora,Tip,Nasvanie_pribora,Data_vipuska');
        SQL.Add('FROM Pribori');
        SQL.Add('Where Nomer_pribora='+'"'+ComboBox1.Text+'"');
        SQL.Add('ORDER BY Nomer_pribora,Tip,Nasvanie_pribora,Data_vipuska');
        Open;     //активизируется выполнение запроса
        if RecordCount=0 then
          ShowMessage('В базе данных нет записей, '+
                   'удовлетворяющих критерию запроса');
       end;
         ComboBox1.Text:='';
      end;
From Stilet: В следующий раз чтоб русский язык вставлялся нормально в посты перед копированием включай русскую раскладку, если таковая имеется.
И код форматировать читабельно тегом # не забывай.

Последний раз редактировалось Stilet; 06.04.2009 в 16:18.
ННС вне форума Ответить с цитированием
Старый 06.04.2009, 16:15   #2
program123
Подтвердите свой е-майл
 
Регистрация: 12.02.2009
Сообщений: 144
По умолчанию

у компонента ComboBox есть свойство ItemIndex начинается с 0 . А добавить данные
можно свойство Items

Последний раз редактировалось program123; 06.04.2009 в 16:18.
program123 вне форума Ответить с цитированием
Старый 06.04.2009, 16:17   #3
maladoy
delphi-ст!
Форумчанин
 
Аватар для maladoy
 
Регистрация: 02.01.2009
Сообщений: 825
По умолчанию

Код:
SQL.Add('Where Nomer_pribora='+ComboBox1.Text+'');
цифровые значения передаются без кавычек! в кавычках только текст и дата передается!
вступлю в команду разработчиков ПО на Delphi

Последний раз редактировалось maladoy; 06.04.2009 в 16:19.
maladoy вне форума Ответить с цитированием
Старый 06.04.2009, 16:40   #4
ННС
Пользователь
 
Регистрация: 23.03.2009
Сообщений: 11
По умолчанию

Цитата:
Сообщение от maladoy Посмотреть сообщение
Код:
SQL.Add('Where Nomer_pribora='+ComboBox1.Text+'');
цифровые значения передаются без кавычек! в кавычках только текст и дата передается!

Спасибо вам огромное!!! все получилось!!!
ННС вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Функции с числовыми параметрами(Pascal) TAB Помощь студентам 1 07.05.2008 20:50
Функции с числовыми параметрами Hostlman Помощь студентам 5 22.12.2007 22:21
Функции с числовыми параметрами Hostlman Общие вопросы Delphi 2 21.12.2007 20:19
Не могу внести строку из combobox в combobox!? tacer Помощь студентам 1 30.11.2007 19:45