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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.09.2015, 15:17   #81
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
эти две таблицы (VibrationPoints и Vibration2) нужно связать по полю PointID.
как можно связать по тому, чего нет?!
покажите мне, где в таблице Vibration2 есть PointID ?!


добавлено
а, догадываюсь.
у Вас в таблице Vibration есть поле PointID ?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 08.09.2015, 15:21   #82
Ernest027
Форумчанин
 
Регистрация: 27.04.2015
Сообщений: 437
По умолчанию

Цитата:
у Вас в таблице Vibration есть поле PointID ?
есть такое поле)

дело сдвинулось с мертвой точки)
сделал так:
Код:
Command.CommandText:='INSERT INTO Vibration (PointID, f, a, v, d) VALUES ('+QuotedStr(ADOQuery2.FieldByName('PointID').AsString)+', :f, :a, :v, :d)';
все работает, НО! т.к. таблицы связаны, выбираю первую запись в главной, нажимаю кнопку и вся таблица из буфера вставляется в подчиненную и поле PointID заполняется тоже. Все гуд! выбираю следующую запись из главной, тыкаю кнопульку, вся таблица из базы вставляется и поле PointID заполняется тоже Гуд) но перейдя к предыдущей записи в главной таблице, вижу что в подчиненной все пропало

Все,понял) это запрос delete from table такой жестокий,все удаляет))) надо
Код:
delete from table where PointID=:adoquery2. Fieldbyname ('PointID').asstring;
спасибо вам всем товарищи!)

Но вот беда, dbchart не хочет меняться при выборе записи из главной таблицы. А если на afterscroll повесить что-то типа dbchart.Refreshdata, то программа вообще запускается в "башке" у компьютера,но не отображается,хотя в диспетчере задач висит.

Код:
Command.CommandText:='DELETE FROM Vibration where PointID=:'+QuotedStr(ADOQuery2.FieldByName('PointID').AsString);
не удаляет нужные записи
Решил, оказывается двоеточие лишнее)

Последний раз редактировалось Stilet; 09.09.2015 в 08:41.
Ernest027 вне форума Ответить с цитированием
Старый 09.09.2015, 08:46   #83
Ernest027
Форумчанин
 
Регистрация: 27.04.2015
Сообщений: 437
По умолчанию

Проблема осталась, dbchart не хочет меняться при выборе записи из главной таблицы. А если на afterscroll повесить что-то типа dbchart.Refreshdata, то программа вообще запускается в "башке" у компьютера,но не отображается,хотя в диспетчере задач висит.
Ernest027 вне форума Ответить с цитированием
Старый 09.09.2015, 10:27   #84
Ernest027
Форумчанин
 
Регистрация: 27.04.2015
Сообщений: 437
По умолчанию

Решил вопрос другим путем,спасибо)
Ernest027 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Преобразование единиц измерения Zirat Microsoft Office Excel 9 29.11.2022 21:14
дана строка состоящая из групп нулей и единиц. Подсчитать количества единиц в группах с нечетным количеством символов (на Delphi) ArturBattalov Помощь студентам 1 06.10.2013 16:16
Найти байтс наибольшим числом единиц и найти байт с наибольшим чилом нулей. Найти разность число единиц м Beren42 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 14.12.2010 17:44
Конвертер денежных единиц vmilyoshin Помощь студентам 6 16.04.2010 11:07
Найти сумма единиц Bayram_662 Паскаль, Turbo Pascal, PascalABC.NET 6 22.10.2009 22:11