Ошибка при добавлении в базу

[Ele]

Подскажите пожалуйста в чем ошибка??? Выдает ошибку, что пропущена точка с запятой в конце конструкции SQL...запрос в Access работает..

procedure TForm4.Button1Click(Sender: TObject);
Var
  p1,p2,p3:string;
begin
DataModule2.ADOConnection1.BeginTrans;
try
p1:=Edit1.Text;
p2:=Edit2.Text;
p3:=Edit3.Text;
with DataModule2.ADOQuery1 do
Begin
  Close;
  SQL.Clear;
  SQL.Add('insert into uch (raz,dva,tri) values ('''+p1+''','''+p2+''','''+p3+''')');
  SQL.Add('select *');
  SQL.Add('from uch');
  Open;
End;
DataModule2.ADOConnection1.CommitTrans;
ShowMessage('Äîáàâëåíèå ïðîøëî óñïåøíî!');
Form4.DBGrid1.DataSource:=DataModule2.DataSource1;
except
DataModule2.ADOConnection1.RollbackTrans;
ShowMessage('Ïðîèçîøëà îøèáêà!');
end;
end;

[artemavd]

procedure TForm4.Button1Click(Sender: TObject);
Var
p1,p2,p3:string;
begin
DataModule2.ADOConnection1.BeginTra ns;
try
p1:=Edit1.Text;
p2:=Edit2.Text;
p3:=Edit3.Text;
with DataModule2.ADOQuery1 do
Begin
Close;
SQL.Clear;
SQL.Add('insert into uch (raz,dva,tri) values ('''+p1+''','''+p2+''','''+p3+''')' );
SQL.Add('select *'); ? //зачем вообще эта строка??
SQL.Add('from uch');  //и эта??
Open;
End;
DataModule2.ADOConnection1.CommitTr ans;
ShowMessage('Äîáàâëåíèå ïðîøëî óñïåøíî!');
Form4.DBGrid1.DataSource:=DataModul e2.DataSource1;
except
DataModule2.ADOConnection1.Rollback Trans;
ShowMessage('Ïðîèçîøëà îøèáêà!');
end;
end;

Используйте параметры в запросах

[Stilet]

что пропущена точка с запятой в конце конструкции

Логично. Ты в один пакет поместил запрос получающий данные и запрос редактирующий базу, их нужно разделить (это как минимум)

...'''+p3+''');...

Но я бы не рекомендовал так делать. Лучше поотдельности:

  
  SQL.Text:='insert into uch (raz,dva,tri) values ('+QuotedStr(p1)+','+QuotedStr(p2)+','+QuotedStr(p3)+')';
  if execsql<>0 then begin
   SQL.Text:='select * from uch';
   Open;
  end;

[Ele]

Спасибо, Stilet! Сделала как Вы посоветовали, все получилось!

[Stilet]

все получилось!

Ну и славненько