проблема с добавлением в базу

[Ele]

Здравствуйте! Помогите пожалуйста разобраться, где ошибка.....

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


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;

 

[SNike]

Какая база данных? И какие типы данных у столбцов?

 

[Ele]

База в Access, столбцы-текстовые

 

[etc]

Выбросить квери, и юзать параметры.

 

[DZX]

Две команды в одном запросе, ненадо... по очереди...

 

[V88]

Два запроса в один и тот же TQuery нельзя добавлять и тем более один из выборка, а другой действие!