Как добавить запись в таблицу без сохранения

@Roman12345 · Регистрация: 30.04.2015

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

Есть DBGrid с таблицей из БД. В нем можно редактировать записи и добавлять новые.
Я пытаюсь сделать добавление записи в новой форме и последующее обновление содержимого таблицы в DBGrid.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
with DBDataModule.SQLQueryProduct do
  begin
    if Active then Close;
    SQL.Clear;
    SQl.Add('INSERT INTO Product Values(:code,:name,:vendor,:description,:available,:price)');
    ParamByName('code').Value:='23';
    ParamByName('name').Value:='Чайник';
    ParamByName('vendor').Value:='Посуда';
    ParamByName('description').Value:='Это чайник';
    ParamByName('available').Value:='17';
    ParamByName('price').Value:='200';
    ExecSQL;
    if Active then Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM Product');
    ExecSQL;
  end;

Как вы поняли проблемы сразу две:
1. Запись добавляется сразу в таблицу, т.е. не в DBGrid с возможностью последующего сохранения через ClientDataSetProduct.ApplyUpdates(0).
2. Записи в DBGrid не обновляются и добавленная появляется только при перезапуске программы (что логично в общем то).
Как мне решить эти проблемы?

@xxbesoxx · 03.12.2017, 18:11

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

1. Запись добавляется сразу в таблицу, т.е. не в DBGrid

1) DBGrid только для отображения данных

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

добавленная появляется только при перезапуске программы

Потому что вы закривайте своего SQLQueryProduct .! не понимайте это код if Active then Close;= если SQLQueryProduct открытое то закрыть его ?! и за этого показивает только при перезапуске программы.

@northener · 03.12.2017, 19:27

В 16 строке

Delphi
1
ExecSQL;

заменить на

Delphi
1
Active:=True;

@Roman12345 · 03.12.2017, 19:40 **[ТС]**

Ничего не изменилось

@Пытливый · 03.12.2017, 23:05

Не надо для разных задач использовать один и тот-же датасет. Один датасет используйте для вставки данных, а второй для отображения. После успешной вставки в первый, обновляем второй и все будет нормально вставляться и отображаться.

@xxbesoxx · 04.12.2017, 04:28

Сообщение от Пытливый

Не надо для разных задач использовать один и тот-же датасет. Один датасет используйте для вставки данных, а второй для отображения.

Можно. А почему нет ?

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

Ничего не изменилось

Можно так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
with DBDataModule.SQLQueryProduct do
  begin
    SQL.Clear;
    SQl.Add('INSERT INTO Product Values(:code,:name,:vendor,:description,:available,:price)');
    ParamByName('code').Value:='23';
    ParamByName('name').Value:='Чайник';
    ParamByName('vendor').Value:='Посуда';
    ParamByName('description').Value:='Это чайник';
    ParamByName('available').Value:='17';
    ParamByName('price').Value:='200';
    ExecSQL;
  end;
   with DBDataModule.SQLQueryProduct do
    begin
    SQL.Clear;
    SQL.Add('SELECT * FROM Product');
    Active := True;
    end;

@Roman12345 · 04.12.2017, 12:40 **[ТС]**

Решил проблему следующим образом.

Delphi
1
2
3
4
5
6
7
8
9
10
with DBDataModule.ClientDataSetProduct do
  begin
    Append;
    FieldByName('code').Value:='22';
    FieldByName('name').Value:='Чайник';
    FieldByName('vendor').Value:='Посуда';
    FieldByName('description').Value:='Это чайник';
    FieldByName('available').Value:='17';
    FieldByName('price').Value:='200';
  end;

А если мне понадобиться добавлять записи не в конец, а после определенной записи через Insert, то как мне перейти к необходимой записи?

@qwertehok · 04.12.2017, 18:47

нет никакого "записи в конец"
есть только сортировка на выводе

отсортируешь по ID - будет по ID
отсортируешь по цене - будет по цене

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

Решил проблему следующим образом.

лучше используй SQL что тебе дали

@Roman12345 · 04.12.2017, 21:28 **[ТС]**

qwertehok, Какой SQL мне дали? Мне не нужна запись непосредственно в базу данных. Мне нужна запись в датасет, где потом уже можно было бы решить переносить изменения в базу данных или нет. Что я собственно и делаю.

@kavasaka · 05.12.2017, 08:46

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

Мне не нужна запись непосредственно в базу данных. Мне нужна запись в датасет

может для курсача и пойдет, но если прога для работы я б так не рисковал, а то возьмет и запишется когда оно не надо или наоборот не запишется, а надо бы. Зачем этот головняк? потом разгребать базу ручками сам же будешь!
Лучше всего простые Editы не связанные с базой и кнопка ОК и после клика на ней 100500 вопросов "а вы точно это хотите.." и тогда уже запись SQL запросом значений из Editов в таблицу. И еще запись в журнал "Иванов нажал ОК в 05.12.17 9:00" чтоб не отвертелся

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@Roman12345 0 / 0 / 0 Регистрация: 30.04.2015 Сообщений: 34
	03.12.2017, 19:40 [ТС]
	Ничего не изменилось 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	03.12.2017, 23:05
	Не надо для разных задач использовать один и тот-же датасет. Один датасет используйте для вставки данных, а второй для отображения. После успешной вставки в первый, обновляем второй и все будет нормально вставляться и отображаться. 0

@Roman12345 0 / 0 / 0 Регистрация: 30.04.2015 Сообщений: 34
	04.12.2017, 21:28 [ТС]
	qwertehok, Какой SQL мне дали? Мне не нужна запись непосредственно в базу данных. Мне нужна запись в датасет, где потом уже можно было бы решить переносить изменения в базу данных или нет. Что я собственно и делаю. 0