Здравствуйте! Помогите пожалуйста разобраться, где ошибка.....
Выдает ошибку, что пропущена точка с запятой в конце конструкции 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;
Выдает ошибку, что пропущена точка с запятой в конце конструкции 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;