Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 17.04.2019, 00:08   #1
rAMEO
Пользователь
 
Регистрация: 12.04.2014
Адрес: Россия
Сообщений: 39
Репутация: 10
По умолчанию Тип данных текст в цифру

ГруппаТоваров Тип Integer

Код:

procedure TF_TablTovariIUslugi.TreeView1Click(Sender: TObject);
begin
DM_BazaDannih.AQ_TovariiUslugi.Active:=false;
  DM_BazaDannih.AQ_TovariiUslugi.SQL.Clear;
  DM_BazaDannih.AQ_TovariiUslugi.SQL.Add('select * from ТоварыИУслуги where ГруппаТоваров = '+ QuotedStr(TreeView1.Selected.Text));
  DM_BazaDannih.AQ_TovariiUslugi.Active:=true;
end;


Выдает ошибку тип данных подскажите плиз
и не ругайте сильно я еще чайник в делфи
__________________
NRM Rameo1986@mail.ru
rAMEO вне форума   Ответить с цитированием
Старый 17.04.2019, 11:07   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 25,396
Репутация: 5596
По умолчанию

в TreeView1.Selected.Text точно целое число?

тогда я бы написал так:
Код:

procedure TF_TablTovariIUslugi.TreeView1Click(Sender: TObject);
begin
DM_BazaDannih.AQ_TovariiUslugi.Active:=false;
  DM_BazaDannih.AQ_TovariiUslugi.SQL.Clear;
  DM_BazaDannih.AQ_TovariiUslugi.SQL.Add('select * from ТоварыИУслуги where ГруппаТоваров = '+ IntToStr(StrToInt(TreeView1.Selected.Text)));
  DM_BazaDannih.AQ_TovariiUslugi.Active:=true;
end;

ну, или без проверки на Integer:
Код:

DM_BazaDannih.AQ_TovariiUslugi.SQL.Add('select * from ТоварыИУслуги where ГруппаТоваров = '+ TreeView1.Selected.Text);

p.s. а ещё можно использовать параметрический запрос
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 18.04.2019, 13:10   #3
iskurt
Форумчанин
 
Регистрация: 02.06.2009
Адрес: Старый Оскол
Сообщений: 189
Репутация: 28
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
p.s. а ещё можно использовать параметрический запрос
Поддерживаю, даже рекомендую... Позволит избежать ОГРОМНОЕ количество Гемороя
Код:

DM_BazaDannih.AQ_TovariiUslugi.SQL.Add('select * from ТоварыИУслуги where ГруппаТоваров = :gr_tov'); //+ IntToStr(StrToInt(TreeView1.Selected.Text)));
DM_BazaDannih.AQ_TovariiUslugi.Parameters.paramByName('gr_tov').Value := TreeView1.Selected.Text;

iskurt вне форума   Ответить с цитированием
Старый 18.04.2019, 13:37   #4
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 18,754
Репутация: 6592
По умолчанию

Код:

DM_BazaDannih.AQ_TovariiUslugi.Parameters.paramByName('gr_tov').Value := TreeView1.Selected.Text;
DM_BazaDannih.AQ_TovariiUslugi.Parameters.paramByName('gr_tov').Value := StrToInt(TreeView1.Selected.Text);

__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума   Ответить с цитированием
Старый 18.04.2019, 19:00   #5
rAMEO
Пользователь
 
Регистрация: 12.04.2014
Адрес: Россия
Сообщений: 39
Репутация: 10
По умолчанию

First chance exception at $756AC54F. Exception class EConvertError with message '''Строительство'' is not a valid integer value'. Process Предприятие.exe (3896)
__________________
NRM Rameo1986@mail.ru
rAMEO вне форума   Ответить с цитированием
Старый 18.04.2019, 19:01   #6
rAMEO
Пользователь
 
Регистрация: 12.04.2014
Адрес: Россия
Сообщений: 39
Репутация: 10
По умолчанию

выдает вот эту ошибку
__________________
NRM Rameo1986@mail.ru
rAMEO вне форума   Ответить с цитированием
Старый 18.04.2019, 19:07   #7
rAMEO
Пользователь
 
Регистрация: 12.04.2014
Адрес: Россия
Сообщений: 39
Репутация: 10
По умолчанию

вот это ошибка
Изображения
Тип файла: jpg Безымянный.jpg (47.0 Кб, 1 просмотров)
__________________
NRM Rameo1986@mail.ru
rAMEO вне форума   Ответить с цитированием
Старый 18.04.2019, 19:11   #8
rAMEO
Пользователь
 
Регистрация: 12.04.2014
Адрес: Россия
Сообщений: 39
Репутация: 10
По умолчанию

код заполнение дерево при щелчку на ветку надо DBGrid отобразить связанную информацию то есть в дереве группа товаров а гриде товары


Код:

procedure TF_TablTovariIUslugi.FormCreate(Sender: TObject);
var
nnod,nnor: TTreeNode;
field: string;
b,n,b1,n1: integer;
begin
//_______________________________________________________________________________________
b:=0;
n:=0;
b1:=0;
n1:=0;
TreeView1.Items.BeginUpdate;
TreeView1.SortType:=stNone;
TreeView1.Items.Clear;
DM_BazaDannih.AQ_GruppaTovarov.First;
if DM_BazaDannih.AQ_GruppaTovarov.RecordCount>0 then
begin
   while not DM_BazaDannih.AQ_GruppaTovarov.Eof do
      begin
       b:=DM_BazaDannih.AQ_GruppaTovarov['Код']   ;
         n:=DM_BazaDannih.AQ_GruppaTovarov['Название']  ;
      nnod:=TreeView1.Items.Add(nil, DM_BazaDannih.AQ_GruppaTovarov['Название'] );
      field:=DM_BazaDannih.AQ_GruppaTovarov.Fields[0].AsString;
          if DM_BazaDannih.AQ_GruppaTovarovPod.RecordCount>0 then
             begin

             DM_BazaDannih.AQ_GruppaTovarovPod.First;
             while not DM_BazaDannih.AQ_GruppaTovarovPod.Eof do
                begin
                    b1:=DM_BazaDannih.AQ_GruppaTovarovPod['ГруппаТоваров']   ;
         n1:=DM_BazaDannih.AQ_GruppaTovarovPod['Название']  ;
if b=b1 then
begin
   nnor:=TreeView1.Items.AddChild(nnod,DM_BazaDannih.AQ_GruppaTovarovPod['Название'] );
end;
   DM_BazaDannih.AQ_GruppaTovarovPod.Next;
                end;
             end;
DM_BazaDannih.AQ_GruppaTovarov.Next;
end;
end;
DM_BazaDannih.AQ_GruppaTovarov.Filter:='';
DM_BazaDannih.AQ_GruppaTovarovPod.Filter:='';
TreeView1.Items.EndUpdate;
end;

__________________
NRM Rameo1986@mail.ru
rAMEO вне форума   Ответить с цитированием
Старый 18.04.2019, 20:28   #9
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 25,396
Репутация: 5596
По умолчанию

Цитата:
Сообщение от rAMEO Посмотреть сообщение
ГруппаТоваров Тип Intege
Цитата:
Сообщение от rAMEO Посмотреть сообщение
irst chance exception at $756AC54F. Exception class EConvertError with message '''Строительство'' is not a valid integer value'. Process Предприятие.exe (3896)
Эта ошибка возникает, потому что Вы не ответили на этот вопрос:

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
в TreeView1.Selected.Text точно целое число?
оказывается нет. в TreeView1 у Вас строчка, текст. (НАЗВАНИЕ ГРУППЫ - в данном пример там текст "Строительство")
а в запросе нужно число - код группы
"строительство" нельзя преобразовать в число.
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 18.04.2019, 20:58   #10
rAMEO
Пользователь
 
Регистрация: 12.04.2014
Адрес: Россия
Сообщений: 39
Репутация: 10
По умолчанию ошибка

Код:

DM_BazaDannih.AQ_TovariiUslugi.Filter := 'GruppaTovarov LIKE '+TreeView1.Selected.Text+'%';
DM_BazaDannih.AQ_TovariiUslugi.Filtered :=true;

Изображения
Тип файла: jpg Безымянный.jpg (37.5 Кб, 26 просмотров)
__________________
NRM Rameo1986@mail.ru
rAMEO вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан символ С, изображающий цифру или букву (латинскую или русскую). Если С изображает цифру, то вывести строку "digit", если латин marinadanilova Помощь студентам 3 28.10.2014 23:44
Перенести текст в Базу данных demiancz БД в Delphi 9 08.01.2011 03:26
Замена кода на текст при добавлении данных L777SU БД в Delphi 1 25.05.2010 16:00
Парсер данных на lua в текст Claptrap Помощь студентам 0 01.04.2010 02:52
Найти первую цифру в данных ячейки.. kra183 Microsoft Office Excel 11 09.05.2008 01:35


09:54.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru