Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / данные из БД в переменную / 14 сообщений из 14, страница 1 из 1
14.07.2017, 17:13:03
    #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:18:14
    #39489263
чччД
чччД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные из БД в переменную
maxseo,

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

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

а сам запрос составлен верно?!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2017, 23:33:46
    #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:43:21
    #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:49:23
    #39489424
YuRock
YuRock
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные из БД в переменную
maxseo,

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

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

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

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

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

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

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

Интересно, что быстрее будет обрабатывать: фильтр или sql запрос.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / данные из БД в переменную / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 498ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2042031]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 226ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 204ms
total:  498ms
x
x
Закрыть


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