Удаление и добавление записи Access

@Mr_Progger · Регистрация: 01.11.2013

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

Добрый день. Как взять значение полей из EditA? Если в кавычках писать сразу значения то добавляет.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
try
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('insert into student(FIO,OCENKA) values ('+edit1.text+','+edit2.text+')');
  adoquery1.ExecSQL;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from student');
  adoquery1.Active:=true;
except on m:exception do
end;
end;

Как удалить запись?

Delphi

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
id:=adoquery1.Fields.Fields[0].AsInteger;
edit2.Text:=inttostr(id);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
try
  adoquery1.SQL.clear;
  adoquery1.sql.Add('delete from student where id=:pid');
  adoquery1.Parameters.ParamByName('pid').Value:=id;
  adoquery1.ExecSQL;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from student');
  adoquery1.Active:=true;
except on e:exception do
end;
end;

id глобальная. После нажатия батон2 дбгрид пустой и никакие изменения в базе не происходят

@volvo · 14.02.2014, 02:40

Delphi

1
2
3

// добавление
    ADOQuery1.SQL.Add(Format('insert into student(FIO,OCENKA) values (%s,%s)',
      [QuotedStr(Edit1.Text), QuotedStr(Edit2.Text)]));

Удаление прекрасно работает с приведенным кодом...

	14.02.2014, 02:40