How to compose an SQL query, correctly for declaring data in the *dbf database?

Question

SQL

People help to make SQL - request correctly if I write thus the code:
dmContanierIcon.quAdmissionProduct.Active := False;
dmContanierIcon.quAdmissionProduct.Close;
dmContanierIcon.quAdmissionProduct.SQL.Clear;
dmContanierIcon.quAdmissionProduct.SQL.Text := 'UPDATE dbt_AdmissionProduct SET p_id = '+IntToStr(varFirstRecId)+' WHERE p_product = "'+varArticleUpdateId+'"';
dmContanierIcon.quAdmissionProduct.ExecSQL;
//dmContanierIcon.quAdmissionProduct.Open;
dbgrdAdmissionProduct.DataSource.DataSet.Next;
I get the following error:

what if I uncomment
dmContanierIcon.quAdmissionProduct.Open;
trail comes out. mistake:

please tell me how to do it right ... Thank you.

Answer 1

Use instead of Open, ExecSQL and all

Answer 2

well firstly
dmContanierIcon.quAdmissionProduct.SQL.Text := 'UPDATE dbt_AdmissionProduct SET p_id = '+IntToStr(varFirstRecId)+' WHERE p_product = "'+varArticleUpdateId+'"';
it would be more correct to write it as:

dmContanierIcon.quAdmissionProduct.SQL.Text := UPDATE dbt_AdmissionProduct SET p_id = :varFirstRecId WHERE p_product = :varArticleUpdateId;
dmContanierIcon.quAdmissionProduct.ParamByName('varFirstRecId').AsInteger := varFirstRecId;
dmContanierIcon.quAdmissionProduct.ParamByName('varArticleUpdateId').AsString := varArticleUpdateId;
dmContanierIcon.quAdmissionProduct.ExecSQL;

and about the error, then why do you need to do Next after Update? ExecSQL method does not return Dataset. Delphi also informs you about it.