Каким образом работает команда .append в ADOQuery ?

@funduk17 · Регистрация: 20.05.2013

Студворк — интернет-сервис помощи студентам

У меня в проекте как минимум 3 раза встречается место где через ADOQuery мне нужно на отдельной форме Добавить/редактировать запись в таблице, и удалить(Но об этом позже)!!! Поэтому был бы очень рад с кем то пообщаться кто сказал бы как лучше всё сделать!
Редактирование на готовые записи работает, Добавление попросту не добавляет новую строку, а заменяет первую запись. Грешу на то что неправильно использую синтаксис метода append.

Каким образом работает команда .append в ADOQuery ?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TConnect.Button5Click(Sender: TObject);  //Кнопка редактирования
begin
  New_Connect.Showmodal;   // Форма на которой добавляю/изменяю данные
  DM.ADOConnect.active:=False;
  DM.ADOConnect.active:=true;
end;
 
procedure TConnect.Button6Click(Sender: TObject);   //Кнопка добавления
begin
  DM.ADOConnect.Append;
  New_Connect.Showmodal;
  DM.ADOConnect.active:=False;
  DM.ADOConnect.active:=true;
end;

Кнопка "Сохранить и выйти"

Delphi
1
2
3
4
5
6
  if DM.ADOConnect.modified then
  DM.ADOConnect.post;
 
  DM.ADOConnect.Active:=False;
  DM.ADOConnect.Active:=True;
  close;

В самом запросе прописан только вывод данных для Грида.

SQL
1
2
3
SELECT c.id_connect, c.id_service, s.name_service, c.id_klient, K.FIO, c.Date_connect, c.cost,  c.id_worker, w.FIO
FROM CONNECT AS c, Klient AS k, Service AS s, Worker AS w
WHERE c.id_service=s.id_service AND c.id_klient=k.id_klient  AND c.id_worker=w.id_worker

@Алекcей · 01.06.2015, 17:52

попробуйте так:

Delphi
1
2
3
4
5
6
7
8
procedure TConnect.Button6Click(Sender: TObject);   //Кнопка добавления
begin
  with DM.ADOConnect do begin
   Append;
   New_Connect.Showmodal;
   Post;   
  end;
end;

@funduk17 · 01.06.2015, 18:46 **[ТС]**

Такой же простой командой выходило добавлять записи через ADOTable. Уже пробовал заполнять эти таблицы через ADOTable, а выводить через ADOQuery, но тогда сталкивался с другими проблемами, поэтому вернулся к первоначальному виду, и снова мучаюсь по поводу добавления строки.

Добавлено через 6 минут

Сообщение от Алекcей

попробуйте так:
Код Delphi
1
2
3
4
5
6
7
8
procedure TConnect.Button6Click(Sender: TObject); //Кнопка добавления
begin
with DM.ADOConnect do begin
Append;
New_Connect.Showmodal;
Post;
end;
end;

Нет, не выходит, по прежнему не создаёт новую запись, а ещё в добавок теперь светит ошибку что нужен Insert.
Неужели без запроса тут никак не обойтись?
И можно ли это сделать в этом же запросе или придётся создавать новый чисто для добавления строки? Но тогда ведь если я передумаю создавать запись и закрою окно то пустая строка останется?

Добавлено через 46 минут
Уважаемые форумчане, очень прошу помощи, может кто-то будет не против по скайпу выйти чтобы всё было легче объяснить. Я нашёл довольно много информации по редактированию, добавлению, но всё везде по разному и сложно разобраться, может мне использовать не BDEdit а обычные и всё прописывать в запросах, делать редактирование через .Modified или запросом Update. Я просто сел в тупик и не знаю в какую сторону двигаться! Раньше не имел опыта работы с БД, в делфи так тем более поэтому возникает много проблем.

@funduk17 · 01.06.2015, 20:02 **[ТС]**

Решил изменить программу чтобы Добавление/редактирование делать полностью с помощью запросов.
Ругается на ParamByName.
Сама база является дочерней, её ключ создаётся авто инкременцией, мне лишь нужно через DBLookupListBox связать её с родительской, ну и заполнить ещё несколько полей. Подскажите в чём ошибка!

Delphi
1
2
3
4
5
6
  DM.ADOQuery1.Active:=False;
  DM.ADOQuery1.SQL.Clear;
  DM.ADOQuery1.SQL.Text:='Insert into Connect(id_service, id_worker, date_connect, cost) values(DBLookupComboBox1.KeyField,DBLookupComboBox2.KeyField, DateTimePicker1.Date, Edit1.text)';
  DM.ADOQuery1.ParamByName('id_klient').AsInteger:=DBLookupListBox1.KeyField;
  DM.ADOQuery1.ExecSQL;
  DM.ADOQuery1.Active:=True;

Название: 55.jpg
Просмотров: 267

Размер: 14.0 Кб

форма на которой заполняется можно увидеть на 1-ой записи в моём посте.

@funduk17 · 01.06.2015, 20:20 **[ТС]**

Исправил код на более правильный, но по прежнему ругается на ParamByName

Delphi
1
2
3
4
5
6
7
8
9
10
  DM.ADOQuery1.Active:=False;
  DM.ADOQuery1.SQL.Clear;
  DM.ADOQuery1.SQL.Text:='Insert into Connect(id_klient, id_service, id_worker, date_connect, cost) values(:id_klient, :id_service, :id_worker, :date_connect, :cost)';
  DM.ADOQuery1.ParamByName('id_klient').Value:=DBLookupListBox1.KeyField;
  DM.ADOQuery1.ParamByName('id_service').Value:=DBLookupComboBox1.KeyField;
  DM.ADOQuery1.ParamByName('id_worker').Value:=DBLookupComboBox2.KeyField;
  DM.ADOQuery1.ParamByName('date_connect').Value:=DateTimePicker1.date;
  DM.ADOQuery1.ParamByName('cost').Value:=Edit1.text;
  DM.ADOQuery1.ExecSQL;
  DM.ADOQuery1.Active:=True;

@northener · 01.06.2015, 20:20

Сообщение от funduk17

Ругается на ParamByName.

Delphi
1
DM.ADOQuery1.Parameters.ParamByName

@funduk17 · 01.06.2015, 20:33 **[ТС]**

Сообщение от northener

Цитата Сообщение от funduk17 Посмотреть сообщение
Ругается на ParamByName.
Код Delphi
1 DM.ADOQuery1.Parameters.ParamByName

Больше не ругается, спасибо!
Но вот что вылазит:

И следом указывает на эту строку:

В БД у меня все записи с полем id стоят на int.
В Лукапах в keyField выставлены поля верно.
Может конечно ругаться на DateTimePicker1.date, но я так же пробовал и DateTimePicker1.datetime (хотя и нужна мне только дата), но не в этом дело!

@northener · 01.06.2015, 21:02

Сообщение от funduk17

В БД у меня все записи с полем id стоят на int.

А DBLookupListBox1.KeyField это по твоему целое число?

@funduk17 · 01.06.2015, 21:09 **[ТС]**

Сообщение от northener

А DBLookupListBox1.KeyField это по твоему целое число?

А разве нет? Этот локуп у меня выводит поле id_klient из таблицы Klient. В нём хранится значение созданное авто инкременцией в SQL server'e.

@northener · 01.06.2015, 21:18

Сообщение от funduk17

А разве нет?

Конечно нет. KeyField это ссылка на объект класса TField (точнее его наследника).

@funduk17 · 01.06.2015, 21:42 **[ТС]**

Сообщение от northener

Конечно нет. KeyField это ссылка на объект класса TField (точнее его наследника).

Хм. ну у меня Эти лукапы служат для связи этой таблицы с другими таблицами. В ListField я ввожу поле по которому буду выбирать, а в KeyField - значения, которые нужно занести непосредственно в таблицу!
А как обойти эту проблему? В SQL server'e нету типа данных TField, та и к тому же эти поля с id являются внешними ключами, они должны быть такого же типа данных как и первичные ключи.

Добавлено через 16 минут
И ещё вот какой вопрос назрел! поля DataField и DataSourse в компонентах DB оставлять пустыми? я ими пользовался когда заполнял таблицу с помощью делфи а не запросов.

@FIL · 01.06.2015, 22:13

DB-компоненты сами по себе вносят изменения в соответствующую таблицу, поэтому их значения дополнительно никуда добавлять не надо.
В обработчике кнопки подтверждения следует прописать добавление данных лишь из неDB-компонентов (DateTimePicker и т.п.) и делать это средствами Дельфи, а не через запросы.

@funduk17 · 01.06.2015, 22:24 **[ТС]**

Сообщение от FIL

DB-компоненты сами по себе вносят изменения в соответствующую таблицу, поэтому их значения дополнительно никуда добавлять не надо.
В обработчике кнопки подтверждения следует прописать добавление данных лишь из неDB-компонентов (DateTimePicker и т.п.) и делать это средствами Дельфи, а не через запросы.

Ну раньше у меня всё делалось через ДБ компоненты, но тогда столкнулся с проблемой что никак не мог добавить новую строку. Вот хоть убей, пересмотрел тут на форуме кучу постов, но не append не insert не работали у меня как нужно.
Пришлось всё переделывать на запросы, и учиться работать с UPDATE и INSERT в MySQL.
Просто я уже около 4-5 дней сижу почти на одном месте. Испробовал кучу вариантов, но всегда есть изъяны и приходится всё переделывать!
Если вы говорите что можно обойтись без запросов, то подскажите как добавить новую строку через ADOQuery ? В самом верху поста я писал про эту проблему.

@FIL · 01.06.2015, 23:19

Сообщение от funduk17

В самом верху поста я писал про эту проблему.

Ну судя по запросу, для отображения данных поле id_klient должно быть заполнено, а где это происходит я не вижу.
Посмотри в самОй базе, может при Аппенде добавляются строки, которых просто не видно в запросе.

Еще один момент:

Сообщение от funduk17

Delphi
1
2
if DM.ADOConnect.modified then
* DM.ADOConnect.post;

при изменении данных в неDB-компонентах модификации таблицы зафиксировано не будет и данные не сохранятся.

@funduk17 · 01.06.2015, 23:39 **[ТС]**

Сообщение от FIL

Ну судя по запросу, для отображения данных поле id_klient должно быть заполнено, а где это происходит я не вижу.

Это происходит через DBLookupListBox. я на форме выбираю фамилию из уже готовой таблицы, и этот лукап мне возвращает значение поля id_klient.

Сообщение от FIL

при изменении данных в неDB-компонентах модификации таблицы зафиксировано не будет и данные не сохранятся.

Да, я знаю об этом, у меня всё было в DB-компонентах, а на DateTimePicker1 я прописывал отдельную процедуру.

Сейчас ещё поэксперементировал и заметил такую штуку:
Когда у меня на форме во всех DB компонентах поля DataField и DataSource были пустые. то Append заработал и я увидел новую строку, но как только по выставлял там связи с полями и DBQuery, запустил, и новая строка уже не появлялась, а опять же начала редактировать.

@FIL · 01.06.2015, 23:58

Сообщение от funduk17

Это происходит через DBLookupListBox

В запросе 3 параметра: id_service, id_klient, id_worker, а на форме 2 DBLookupListBox.
Каким образом 2 DBLookupListBox могут задавать 3 значения?

Сообщение от funduk17

Когда у меня на форме во всех DB компонентах поля DataField и DataSource были пустые

Какие настройки ты выставляешь в BLookupListBox?

@northener · 02.06.2015, 00:54

Сообщение от funduk17

Хм. ну у меня Эти лукапы служат для связи этой таблицы с другими таблицами. В ListField я ввожу поле по которому буду выбирать, а в KeyField - значения, которые нужно занести непосредственно в таблицу!

Ну что за бред ты несёшь! Ну ты хоть какую-нибудь книжку/учебник найди и держи под руками.
Посмотри значение свойства DBLookupListBox1.KeyField в инспекторе объектов. Что ты там увидишь? Имя поля в некоей таблице. Имя, а не значение поля!
А вот значение поля ты можешь получить из DBLookupListBox1.KeyValue. Тогда хоть код и останется кривым, но всё же будет не бредовым.

Сообщение от FIL

DB-компоненты сами по себе вносят изменения в соответствующую таблицу, поэтому их значения дополнительно никуда добавлять не надо.

Когда программы пишутся методом тыка, не важно что это за компоненты.

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	01.06.2015, 22:13
	DB-компоненты сами по себе вносят изменения в соответствующую таблицу, поэтому их значения дополнительно никуда добавлять не надо. В обработчике кнопки подтверждения следует прописать добавление данных лишь из неDB-компонентов (DateTimePicker и т.п.) и делать это средствами Дельфи, а не через запросы. 0