Не работает добавление значений в бд

@@lex999 · Регистрация: 26.06.2013

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

Не работает добавление значений в бд. Подскажите в чем ошибка

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
      DM.QGuitar_Prodaja_Add.Parameters.ParamByName('Prodavec').Value:=DBEdit5.Text;
      DM.QGuitar_Prodaja_Add.Parameters.ParamByName('Pokupatel').Value:=DBEdit6.Text;
      DM.QGuitar_Prodaja_Add.Parameters.ParamByName('Data').Value:=DBEdit7.Text;
      DM.QGuitar_Prodaja_Add.Parameters.ParamByName('Model_Guitar').Value:=DBEdit8.Text;
      DM.QGuitar_Prodaja_Add.Parameters.ParamByName('Cena').Value:=DBEdit9.Text;
        try
          DM.QGuitar_Prodaja.ExecSQL;
            except
              ShowMessage('Error! Prodaja Add!');
              Exit;
            end;
          DM.QGuitar_Prodaja.Close;
          DM.QGuitar_Prodaja.Open;
          DM.QGuitar_Prodaja.Last;
        end;

в свойстве sql adoquery прописано:

SQL
1
2
INSERT INTO Guitar_Prodaja(ID_Prodaja,Model_ID,Prodavec,Pokupatel,DATA,Model_Guitar,Cena,Prodavec_ID)
VALUES(:ID_Prodaja,Model_ID;:Prodavec;:Pokupatel;:DATA;:Model_Guitar;:Cena;:Prodavec_ID)

@@lex999 · 16.11.2014, 14:00 **[ТС]**

dim07, да нет, это я ученик плохой, просто вы же написали что dbedit не подойдут для передачи я их editами и заменил

Добавлено через 57 минут
dim07, еще один вопрос, не знаете почему не удаляется запись из бд, вот код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TFormMain.SpeedButton13Click(Sender: TObject);
begin
with dm do
begin
QGuitar_Prodaja.Active:=false;
QGuitar_Prodaja.Close;
QGuitar_Prodaja.SQL.Clear;
QGuitar_Prodaja.SQL.Add('DELETE FROM Guitar_Prodaja');
QGuitar_Prodaja.SQL.Add('WHERE ID_Prodaja='+ IntToStr(a));
QGuitar_Prodaja.ExecSQL;
QGuitar_Prodaja.SQL.Clear;
QGuitar_Prodaja.SQL.Add('select * from Guitar_Prodaja');
QGuitar_Prodaja.Active:=True;
end;
end;

@dim07 · 16.11.2014, 18:37

в приведенном куске кода невидно откуда взялась переменная а, а вообще весь этот код можно одной строкой заменить

Delphi
1
DM.QGuitar_Prodaja.Delete;

@@lex999 · 16.11.2014, 19:45 **[ТС]**

dim07, просто надо через sql сделать, переменную а я объявил

Delphi
1
2
3
4
5
var
  FormMain: TFormMain;
  a:integer;
 
implementation

Добавлено через 1 час 5 минут
а через sql не удаляется

@dim07 · 16.11.2014, 20:03

Сообщение от @lex999

переменную а я объявил

Ну и что, что с ней происходит, с этой переменной? Какое в ней значение на момент выполнения этой процедуры?

Добавлено через 11 минут
так должно работать

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TFormMain.SpeedButton13Click(Sender: TObject);
var
id: String;
begin
with dm do
begin
id := QGuitar_Prodaja.FieldByName('ID_Prodaja').AsString;
QGuitar_Prodaja.Active:=false;
QGuitar_Prodaja.Close;
QGuitar_Prodaja.SQL.Clear;
QGuitar_Prodaja.SQL.Add('DELETE FROM Guitar_Prodaja');
QGuitar_Prodaja.SQL.Add('WHERE ID_Prodaja='+ id);
QGuitar_Prodaja.ExecSQL;
QGuitar_Prodaja.SQL.Clear;
QGuitar_Prodaja.SQL.Add('select * from Guitar_Prodaja');
QGuitar_Prodaja.Active:=True;
end;
end;

Новые блоги и статьи Все статьи Все блоги /
Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .