Как составить SQL — запрос, правильно на объявление данных в базе *dbf?

Question

[animr]

Люди помогите составить SQL - запрос правильно, если я пишу таким образом код:

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;

у меня выходит следующая ошибка:


а если раскомментировать
dmContanierIcon.quAdmissionProduct.Open;
выходит след. ошибка:


подскажите пожалуйста как правильно сделать ... Спасибо .

Answer 1

[Роман]

Использовать вместо Open, ExecSQL и все

Comments

[animr]

дружише так там итак ExecSQL, на первую ошибку посмотри...

[Роман]

Ёлки палки, какого делаете Next если запрос не возвращает данные, исключение и говорит об этом, у вас Update же, а не Select.

[animr]

вообщем друг, мне нужно чтоб он менял значения всех строк столбца "p_id" по возрастанию в таблице quAdmissionProduct... как это сделать ?

вот код:

dbgrdAdmissionProduct.DataSource.DataSet.First;
varFirstRecId := 0;

while not dbgrdAdmissionProduct.DataSource.DataSet.Eof do
begin
varArticleUpdateId := dbgrdAdmissionProduct.Fields[1].AsString;
varFirstRecId := varFirstRecId + 1;

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;
dbgrdAdmissionProduct.DataSource.DataSet.Next;
end;

[animr]

если я буду вызывать SELECT заново, то он меня кидает в бесконечный цикл...

[Роман]

в какой бесконечный цикл? с dbf вобще проще использовать TTable, циклом проход с заменой значений,

[animr]

а с SQL как это сделать ? мне нужно с SQL

[Роман]

Положи 2 компонента TSql, в одном Update делай, в другом Select, все после Update, закрой и заново открой TSql с select.

[animr]

Ладно, сделаю так...

[animr]

Насколько это правильно я не знаю, но работает отлично... ))) спасибо ))

[Роман]

И вообще если не принципиально dbf, то советую перейти на Firebird Embeded .

Answer 2

[iloer]

ну во первых
dmContanierIcon.quAdmissionProduct.SQL.Text := 'UPDATE dbt_AdmissionProduct SET p_id = '+IntToStr(varFirstRecId)+' WHERE p_product = "'+varArticleUpdateId+'"';

было бы корректнее записать как:

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;

а по поводу ошибки, то зачем вам после Update делать Next? метод ExecSQL не возвращает Dataset. об этом Delphi вам и сообщает.

Comments

[animr]

Так мне его в цикл кидать, чтоб он строчка за строчкой менял p_id где p_product = какому то значению.

dbgrdAdmissionProduct.DataSource.DataSet.First;
varFirstRecId := 0;

while not dbgrdAdmissionProduct.DataSource.DataSet.Eof do
begin
varArticleUpdateId := dbgrdAdmissionProduct.Fields[1].AsString;
varFirstRecId := varFirstRecId + 1;

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;
dbgrdAdmissionProduct.DataSource.DataSet.Next;
end;

[iloer]

а не является ли у вас dmContanierIcon.quAdmissionProduct мастером для dbgrdAdmissionProduct?
Хотелось бы увидеть как эти компоненты у вас друг с другом связаны? и что именно вы пытаетесь листать используя Next