запросы добавления,обновления,удаления

@alex_ · Регистрация: 03.06.2011

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

сделал по примеру,даже пустую базу создал с одной таблице но запросы не работают

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TForm1.BtAddClickClick(Sender: TObject);
begin
 
  with DataModule2 do
 
  begin
    workquery.SQL.Clear;
    workquery.SQL.Add('insert into KLIENT (KLIENT_ID, ADRES, TELEPHONE, FIO, KLIENT_PK, KLIENT_FK)');
    workquery.SQL.Add('VALUES (:newfio, :newtelephone, :newadres, :newklient_id, :newklient_pk, :newklient_fk)');
    workquery.ParamByName('newfio').AsString:=edit1.Text;
    workquery.ParamByName('newtelephone').AsInteger:=StrToInt(Edit2.Text);
    workquery.ParamByName('newadres').AsString:=edit3.Text;
    workquery.ParamByName('newklient_id').AsInteger:=StrToInt(Edit4.Text);
    workquery.ParamByName('newklient_pk').AsInteger:=StrToInt(Edit5.Text);
    workquery.ParamByName('newklient_fk').AsInteger:=StrToInt(Edit6.Text);
   try
 
    workquery.ExecSQL;
    workquery.Transaction.Commit;
    IBQuery.Open;
    Except
 
      showmessage('ошибка операции добавления');
 
    end;
 
  end;
 
end;

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure TForm1.Button2Click(Sender: TObject);
begin
  with DataModule2 do
  begin
    workquery.SQL.Clear;
    workquery.SQL.Add('update phone set fio=:newfio, TELEPHONE=:newtelephone, ADRES=:newadres, KLIENT_ID=:newklient_id, KLIENT_PK=:newklient_pk, KLIENT_FK=:newklient_fk');
    workquery.SQL.Add('WHERE (fio=:newfio)  (TELEPHONE=:newtelephone)  (ADRES=:newadres)  (KLIENT_ID=:newklient_id)  (KLIENT_PK=:newklient_pk)  (KLIENT_FK=:newklient_fk)');
    workquery.ParamByName('newfio').AsString:=edit1.Text;
    workquery.ParamByName('newtelephone').AsInteger:=StrToInt(Edit2.Text);
    workquery.ParamByName('newadres').AsString:=edit3.Text;
    workquery.ParamByName('newklient_id').AsInteger:=StrToInt(Edit4.Text);
    workquery.ParamByName('newklient_pk').AsInteger:=StrToInt(Edit5.Text);
    workquery.ParamByName('newklient_fk').AsInteger:=StrToInt(Edit6.Text);
 
workquery.ParamByName('fio').AsString:=IBQuery.FieldByName('FIO').AsString;
workquery.ParamByName('ADRES').AsString:=IBQuery.FieldByName('ADRES').AsString;
workquery.ParamByName('TELEPHONE').AsInteger:=IBQuery.FieldByName('TELEPHONE').AsInteger;
workquery.ParamByName('klient_id').AsInteger:=IBQuery.FieldByName('klient_id').AsInteger;
workquery.ParamByName('klient_pk').AsInteger:=IBQuery.FieldByName('klient_pk').AsInteger;
workquery.ParamByName('klient_fk').AsInteger:=IBQuery.FieldByName('klient_fk').AsInteger;
 
    try
      workquery.ExecSQL;
      workquery.Transaction.Commit;
      IBQuery.Open;
    except
      showmessage('ошибка операции обновления’);
    end;
  end;
end;

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.BtDeleteClickClick(Sender: TObject);
begin
  with DataModule2 do
  begin
    workquery.SQL.Clear;
    workquery.SQL.Add('delete from klient ');
    workquery.SQL.Add('WHERE (fio=:newfio) and (TELEPHONE=:newtelephone) and (ADRES=:newadres) and (KLIENT_ID=:newklient_id) and (KLIENT_PK=:newklient_pk) and (KLIENT_FK=:newklient_fk)');
 
    workquery.ParamByName('fio').AsString:=IBQuery.FieldByName('fio').AsString;
    workquery.ParamByName('ADRES').AsString:=IBQuery.FieldByName('ADRES').AsString;
    workquery.ParamByName('TELEPHONE').AsInteger:=IBQuery.FieldByName('TELEPHONE').AsInteger;
    workquery.ParamByName('klient_id').AsInteger:=IBQuery.FieldByName('klient_id').AsInteger;
    workquery.ParamByName('klient_pk').AsInteger:=IBQuery.FieldByName('klient_pk').AsInteger;
    workquery.ParamByName('klient_fk').AsInteger:=IBQuery.FieldByName('klient_fk').AsInteger;
 
    workquery.ExecSQL;
    workquery.Transaction.Commit;
    IBQuery.Open;
 
  end;
 
end;

interbase 6.5,delphi 7

@SAMZ · 05.12.2011, 19:34

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

сделал по примеру,даже пустую базу создал с одной таблице но запросы не работают

Какие получаете сообщения?

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

interbase 6.5

Это давно уже не сервер БД, а труп, который по непонятным причинам забыли похоронить. Если вы начинаете то лучше скачайте и установитн последнюю версию FireBird

@albor · 05.12.2011, 21:27

А что за IBQuery Вы все время открываете? Это типа Refresh?

@alex_ · 06.12.2011, 08:53 **[ТС]**

да это refresh

Добавлено через 19 минут
тыкните на проверенное рук-во

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

Это давно уже не сервер БД, а труп, который по непонятным причинам забыли похоронить. Если вы начинаете то лучше скачайте и установитн последнюю версию FireBird

а бы тоже был бы рад но наш препод работает только с interbase

@SAMZ · 06.12.2011, 08:55

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

наш препод работает только с interbase

В утиль такого препода, на переработку!

@albor · 06.12.2011, 09:00

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

да это refresh

Добавлено через 19 минут
тыкните на проверенное рук-во

а бы тоже был бы рад но наш препод работает только с interbase

А как Вы узнаете что у Вас что-то не работает? Сообщения об ошибках, просмотр данных в броусере?

@alex_ · 06.12.2011, 09:36 **[ТС]**

тыкните на проверенное рук-во

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

Это давно уже не сервер БД, а труп, который по непонятным причинам забыли похоронить. Если вы начинаете то лучше скачайте и установитн последнюю версию FireBird

а бы тоже был бы рад но наш препод работает только с interbase

@Африканыч · 06.12.2011, 10:50

В первом запросе между скобкой и VALUES не стоит пробел. У меня так тоже не работало.
Во втором не худо бы между условиями в WHERE ставить либо and, либо or.
Во втором и третьем в самих условиях вместо Ваших := должно стоять просто =.

@alex_ · 06.12.2011, 17:14 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
    try // procedure TForm1.Button2Click(Sender: TObject); в кнопке добавить
      workquery.ExecSQL;
      workquery.Transaction.Commit;
      IBQuery.Open;
    except
      showmessage('ошибка операции обновления’);//[Error] Unit1.pas(134): Unterminated string
    end;//[Error] Unit1.pas(135): ')' expected but 'END' found
  end;
end;

Delphi
1
2
3
4
5
6
workquery.ParamByName('fio').AsString:=IBQuery.FieldByName('FIO').AsString;
workquery.ParamByName('ADRES').AsString:=IBQuery.FieldByName('ADRES').AsString;
workquery.ParamByName('TELEPHONE').AsInteger:=IBQuery.FieldByName('TELEPHONE').AsInteger;
workquery.ParamByName('klient_id').AsInteger:=IBQuery.FieldByName('klient_id').AsInteger;
workquery.ParamByName('klient_pk').AsInteger:=IBQuery.FieldByName('klient_pk').AsInteger;
workquery.ParamByName('klient_fk').AsInteger:=IBQuery.FieldByName('klient_fk').AsInteger;

во всех Incompatible types: 'String' and 'Integer'

Добавлено через 14 минут
Project subd.exe raised exception class EIBClientError with message 'Data base not assigned'.

Delphi
1
2
3
4
5
   try//procedure TForm1.BtAddClickClick(Sender: TObject);
        workquery.ExecSQL;
    workquery.Transaction.Commit;// вот здесь
    IBQuery.Open;
    Except

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

Delphi
1
edit6.Text:=inttostr(IBQuery.FieldByName('klient_fk').AsInteger);

это нормально?

@albor · 06.12.2011, 18:51

Delphi
1
2
showmessage('ошибка операции обновления’);//[Error] Unit1.pas(134): Unterminated string
    end;//[Error] Unit1.pas(135): ')' expected but 'END' found

Кавычки проверьте, должно быть : 'ошибка операции обновления' У Вас в конце левая кавычка.

Delphi
1
2
3
4
workquery.ParamByName('fio').Value := IBQuery.FieldByName('FIO').AsString;
...
workquery.ParamByName('TELEPHONE').Value := IBQuery.FieldByName('TELEPHONE').AsInteger;
...

Так лучше будет. Пусть сам разбирается где у него какой тип..

Delphi
1
2
3
4
5
6
7
 
try  //procedure TForm1.BtAddClickClick(Sender: TObject);
  workquery.ExecSQL;
  workquery.Transaction.Commit;// вот здесь
  IBQuery.Open;
Except
...

Проверьте Workquery.Database

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@albor 504 / 106 / 16 Регистрация: 01.12.2011 Сообщений: 399
	05.12.2011, 21:27
	А что за IBQuery Вы все время открываете? Это типа Refresh? 0

@Африканыч 7 / 7 / 1 Регистрация: 25.11.2011 Сообщений: 40
	06.12.2011, 10:50
	В первом запросе между скобкой и VALUES не стоит пробел. У меня так тоже не работало. Во втором не худо бы между условиями в WHERE ставить либо and, либо or. Во втором и третьем в самих условиях вместо Ваших := должно стоять просто =. 0