ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / данные из БД в переменную
14 сообщений из 14, страница 1 из 1
данные из БД в переменную
    #39489259
maxseo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
maxseo
Гость
Нужны из БД считать опеределенные данные и присвоить их переменной

Код:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
var
  Termometr_Read: String;
begin
  Form1.ADOReadOrder.Close;
  Form1.ADOReadOrder.SQL.Clear;
  Form1.ADOReadOrder.SQL.Add('SELECT * FROM JFT WHERE Client LIKE'+QuotedStr('%'+Form1.DBLookupComboBox29.KeyValue+'%'));
  Form1.ADOReadOrder.Open;

   Termometr_Read := Form1.ADOReadOrder.FieldByName('Termometr').AsString;

//для проверки, какое значение присваивает
  if  Termometr_Read = '' then
      Form1.Label39.Caption := 'Null'
else
         Form1.Label39.Caption := 'Yes';


Результат всегда - Null

Подскажите пожалуйста, где ошибся? Спасибо

Модератор: Как мне оформить свое сообщение?
...
Рейтинг: 0 / 0
14.07.2017, 17:13:03
| Ответить | Цитировать | Написать  
данные из БД в переменную
    #39489263
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД
Участник
maxseo,

ну нажми же F9!
...
Рейтинг: 0 / 0
14.07.2017, 17:18:14
| Ответить | Цитировать | Написать  
данные из БД в переменную
    #39489265
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД
Участник
maxseo,

ты запусти свой МС АКЦЕСС (или что у тебя там за СУБД) и просто руками введи такой же sql запрос. И в нем (в акцессе) уже думай, что у тебя не тик-так.
...
Рейтинг: 0 / 0
14.07.2017, 17:21:04
| Ответить | Цитировать | Написать  
данные из БД в переменную
    #39489415
maxseo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
maxseo
Гость
чччД,

а сам запрос составлен верно?!
...
Рейтинг: 0 / 0
14.07.2017, 23:22:51
| Ответить | Цитировать | Написать  
данные из БД в переменную
    #39489418
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
maxseo
Код: pascal
1.
2.
3.
Form1.ADOReadOrder.Open;

   Termometr_Read := Form1.ADOReadOrder.FieldByName('Termometr').AsString;


Замени на
Код: pascal
1.
2.
3.
4.
5.
6.
Form1.ADOReadOrder.Open;
Form1.ADOReadOrder.First;
if not Form1.ADOReadOrder.Eof then
  Termometr_Read := Form1.ADOReadOrder.FieldByName('Termometr').AsString
else
  Termometr_Read := 'нет записей';


Если и после этого останется null - значит в поле Termometr null записан.
...
Рейтинг: 0 / 0
14.07.2017, 23:33:46
| Ответить | Цитировать | Написать  
данные из БД в переменную
    #39489423
maxseo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
maxseo
Гость
YuRock,

проверил запрос, если жестко привязать по Id
Form1.ADOReadOrder.SQL.Add('SELECT * FROM Juka_Full_Total WHERE Id = 98 ');

результат все ок.

Подскажите, как правильно тогда составить двоенное условие проверки:

Form1.ADOReadOrder.SQL.Add('SELECT * FROM Juka_Full_Total WHERE NameModel = "'+Form1.DBLookupComboBox30.KeyValue+'" AND Client ='+QuotedStr('%'+Form1.DBLookupComboBox29.KeyValue+'%'));

и тогда будет выводить конкретно то значение которое указано с 98 строке в столбце Термометр
...
Рейтинг: 0 / 0
14.07.2017, 23:43:21
| Ответить | Цитировать | Написать  
данные из БД в переменную
    #39489424
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
maxseo,

Наверно вместо
DBLookupComboBox29.KeyValue
написать
DBLookupComboBox29.DisplayValue, или как там оно называется.

Или убрать лайк и сделать ...id=' + IntToStr(keyvalue), так намного лучше.
...
Рейтинг: 0 / 0
14.07.2017, 23:49:23
| Ответить | Цитировать | Написать  
данные из БД в переменную
    #39489425
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
maxseo,

Как правильно составить? Выводить получившийся запрос в строку (в мемо например) и вставлять его в акцесс, так и экспериментировать.
...
Рейтинг: 0 / 0
14.07.2017, 23:52:03
| Ответить | Цитировать | Написать  
данные из БД в переменную
    #39489427
maxseo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
maxseo
Гость
YuRock,

DisplayValue - нет такого :)

= поставил, все равно - не работает :(
...
Рейтинг: 0 / 0
14.07.2017, 23:57:32
| Ответить | Цитировать | Написать  
данные из БД в переменную
    #39489429
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
maxseo,

20646340
...
Рейтинг: 0 / 0
15.07.2017, 00:03:45
| Ответить | Цитировать | Написать  
данные из БД в переменную
    #39489436
maxseo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
maxseo
Гость
YuRock,

Решил проблему через фильтр:

Form1.ADOReadOrder.Filter := 'NameModel like %'+Form1.DBLookupComboBox30.KeyValue+'% AND Client like '+QuotedStr('%'+Form1.DBLookupComboBox29.KeyValue+'%');
Form1.ADOReadOrder.Filtered := TRUE;

спасибо в оказание помощи
...
Рейтинг: 0 / 0
15.07.2017, 00:43:01
| Ответить | Цитировать | Написать  
данные из БД в переменную
    #39489437
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД
Участник
maxseo, ты просто хакер какой-то....
...
Рейтинг: 0 / 0
15.07.2017, 00:53:46
| Ответить | Цитировать | Написать  
данные из БД в переменную
    #39489478
asutp2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asutp2
Участник
maxseo
может нужно было просто добавить пробел после слова LIKE в самом первом посте темы?
...
Рейтинг: 0 / 0
15.07.2017, 11:56:50
| Ответить | Цитировать | Написать  
данные из БД в переменную
    #39489611
maxseo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
maxseo
Гость
asutp2,

ух ты, а точно, с пробелом работает. Спасибо будут более внимателен.

Интересно, что быстрее будет обрабатывать: фильтр или sql запрос.
...
Рейтинг: 0 / 0
15.07.2017, 22:48:26
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / данные из БД в переменную
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39489418&tid=2042031]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 185ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 205ms
total:  459ms
созд. / загр.: 459ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]