Почему выходит это ошибка?

Question

[animr]

Друзья помогите понять, что не так в коде, почему выходит ошибка "invalid use of keyword. Token: `dbt_AdmissionProduct`".

procedure TfAddProduct.sbAddClick(Sender: TObject);
var
varNameSelectProduct : String;
varCount : Integer;
varId : Integer;
varPrice : Real;
varSumPrice : Real;

begin
varNameSelectProduct := edNameSelectProduct.Text;
varCount := StrToInt(edCount.Text);
varPrice := StrToFloat(edPrice.Text);
varSumPrice := varCount * varPrice;

dmContanierIcon.quAdmissionProduct.Active := False;
dmContanierIcon.quAdmissionProduct.Close;
dmContanierIcon.quAdmissionProduct.SQL.Clear;
dmContanierIcon.quAdmissionProduct.SQL.Add('INSERT INTO `dbt_AdmissionProduct` (');
dmContanierIcon.quAdmissionProduct.SQL.Add('`p_product`,');
dmContanierIcon.quAdmissionProduct.SQL.Add('`p_count`,');
dmContanierIcon.quAdmissionProduct.SQL.Add('`p_price`,');
dmContanierIcon.quAdmissionProduct.SQL.Add('`p_sumPrice`)');

dmContanierIcon.quAdmissionProduct.SQL.Add('VALUES (');
dmContanierIcon.quAdmissionProduct.SQL.Add(':varNameSelectProduct,');
dmContanierIcon.quAdmissionProduct.SQL.Add(':varCount,');
dmContanierIcon.quAdmissionProduct.SQL.Add(':varPrice,');
dmContanierIcon.quAdmissionProduct.SQL.Add(':varSumPrice');

dmContanierIcon.quAdmissionProduct.ParamByName('varNameSelectProduct').AsString := varNameSelectProduct;
dmContanierIcon.quAdmissionProduct.ParamByName('varCount').AsInteger := varCount;
dmContanierIcon.quAdmissionProduct.ParamByName('varPrice').AsFloat := varPrice;
dmContanierIcon.quAdmissionProduct.ParamByName('varSumPrice').AsFloat := varSumPrice;
dmContanierIcon.quAdmissionProduct.Open;
dmContanierIcon.quAdmissionProduct.Active := True;
end;

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

Comments

[kalapanga]

А зачем имена таблицы и полей в апострофах? Может их убрать?

Answer 1

[Mercury13]

Ошибка в SQL. Обратные кавычки, ЕМНИП, расширение MySQL; на других СУБД поля «закавычиваются» квадратными скобками. Попробуй [dbt_AdmissionProduct] или вообще убери эти кавычки.

Ну и ещё вижу ошибку — запрос не закончен, и в этом может быть дело.

Ах да. Писать SQL вот таким образом — ад редкостный. Я бы написал так.

const
  CRLF = #13#10;

xxx.SQL.Text := 'INSERT INTO dbt_AdmissionProduct ('  + CRLF+ 
                           'p_product, p_count…' + CRLF + …

Comments

[animr]

Подскажи пожалуйста почему это ошибка теперь появляется... с теми вроде разобрался...

[Mercury13]

Потому что запрос ничего не возвращает — даже не пустой набор данных, а вообще ничего. Надо просто someQuery.Execute;

[animr]

Вот код, куда добавить Execute?

procedure TfAddProduct.sbAddClick(Sender: TObject);
var
varNameSelectProduct : String;
varCount : Integer;
varId : Integer;
varPrice : Real;
varSumPrice : Real;

begin
varNameSelectProduct := edNameSelectProduct.Text;
varCount := StrToInt(edCount.Text);
varPrice := StrToFloat(edPrice.Text);
varSumPrice := varCount * varPrice;

dmContanierIcon.quAdmissionProduct.Active := False;
dmContanierIcon.quAdmissionProduct.Close;
dmContanierIcon.quAdmissionProduct.SQL.Clear;
dmContanierIcon.quAdmissionProduct.SQL.Text := 'INSERT INTO dbt_AdmissionProduct (p_product, p_count, p_price, p_sumPrice) VALUES ("'+varNameSelectProduct+'", "'+IntToStr(varCount)+'", "'+FloatToStr(varPrice)+'", "'+FloatToStr(varSumPrice)+'")';
dmContanierIcon.quAdmissionProduct.Open;
dmContanierIcon.quAdmissionProduct.Active := True;
end;

[animr]

данные добавляются но выходит ошибка указанная выше.

[Mercury13]

Вместо этого…

dmContanierIcon.quAdmissionProduct.Open;
dmContanierIcon.quAdmissionProduct.Active := True;

И ещё — ты всё-таки зря избавился от параметров. Они делают код читабельнее и закрывают путь SQL-инъекциям.

[Mercury13]

…а зачастую и дают возможность работать кэшу запросов — система не готовит план запроса заново, а использует имеющийся, подставляя в него другие цифры.

[animr]

Есть только такая функция dmContanierIcon.quAdmissionProduct.ExecSQL; просто Execute нету. Напиши пожалуйста как надо

[Mercury13]

Значит, ExecSQL.

[Mercury13]

А по поводу параметров — Робин-брось-таблицу не дремлет!
xkcd.ru/327

[Mercury13]

ЗЫ. У тебя вторая серьёзная проблема, тоже решаемая параметрами. FloatToStr локалезависим! Как только у тебя появится дробное число, на русской ОС система или запишет целую часть, или откажется работать.

[animr]

я не понимаю что она хочет теперь, вот код:

procedure TfAddProduct.sbAddClick(Sender: TObject);
var
varNameSelectProduct : String;
varCount : Integer;
varId : Integer;
varPrice : Real;
varSumPrice : Real;

begin
varNameSelectProduct := edNameSelectProduct.Text;
varCount := StrToInt(edCount.Text);
varPrice := StrToFloat(edPrice.Text);
varSumPrice := varCount * varPrice;

dmContanierIcon.quAdmissionProduct.Active := False;
dmContanierIcon.quAdmissionProduct.Close;
dmContanierIcon.quAdmissionProduct.SQL.Clear;
dmContanierIcon.quAdmissionProduct.SQL.Text := 'INSERT INTO dbt_AdmissionProduct (p_product, p_count, p_price, p_sumPrice) VALUES ("'+varNameSelectProduct+'", "'+IntToStr(varCount)+'", "'+FloatToStr(varPrice)+'", "'+FloatToStr(varSumPrice)+'")';
dmContanierIcon.quAdmissionProduct.ExecSQL;
dmContanierIcon.quAdmissionProduct.Active := True;
end;

при подключении строка dmContanierIcon.quAdmissionProduct.Active := True;
выдает следующую ошибку...

[Mercury13]

Повторяю — Active убрать! ExecSQL выполнит запрос, а просматривать его невозможно (он ничего не возвращает).
Когда отладишь — попробуй перейти на параметры.

[Mercury13]

Объясню разницу между Open, Active и ExecSQL.

ExecSQL выполняет запрос без всяких обязательств и годится для запросов, которые модифицируют данные.

Open и Active — одно и то же, и используются как для перегонки ответа куда-то ещё, так и для интерактивной работы с БД-компонентами.

[Mercury13]

Что получается?

[animr]

Mercury13: получилось, после ExecSQL просто нужно было вернуть заново таблицу SELECTом, спасибо ...)

[animr]

Подскажи пожалуйста почему у меня ошибка несоответствие типов, при выполнении следующего кода?

Именно когда значение Integer.

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
varCounter : Integer;
varVariablePole : String;

varP_visible : Integer;
varP_date : TDate;
varP_article : String;

const
CRLF = #13#10;

begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Workbooks.Open(vargPathFileProduct);

dmContanierIcon.quProductAll.Close;

dmContanierIcon.quProductAll.SQL.Clear;
varCounter := 0;
while ExcelApp.ActiveSheet.UsedRange.Rows.Count do
begin
varCounter := varCounter + 1;
varVariablePole := ExcelApp.Range['I'+IntToStr(varCounter)];
if varVariablePole = '' then Break else
begin
varP_article := varVariablePole;

varVariablePole := ExcelApp.Range['A'+IntToStr(varCounter)];
varP_visible := StrToInt(varVariablePole);

varP_date := Date;

dmContanierIcon.quProductAll.SQL.Text := 'INSERT INTO dbt_ProductAll(p_visible, p_date, p_article)' + CRLF +
'VALUES(:_varP_visible, :_varP_date, :_varP_article)';

//Ошибка при добавлении этой строки
dmContanierIcon.quProductAll.ParamByName('_varP_visible').AsInteger := varP_visible;
//-----------------------------------
dmContanierIcon.quProductAll.ParamByName('_varP_date').AsDate := varP_date;
dmContanierIcon.quProductAll.ParamByName('_varP_article').AsString := varP_article ;
end;
dmContanierIcon.quProductAll.ExecSQL;
end;

ExcelApp.ActiveWorkbook.Close;
ExcelApp.Application.Quit;
end;

[Mercury13]

animr: Что собой представляет поле p_visible? Точно Integer, а не, например, строчку?

[animr]

точно Integer, а точнее поле Numeric в dbf

[animr]

содержит число "1"

[Mercury13]

Понятно. И СУБД Paradox — можно будет поэкспериментировать.
А пока попробуй AsFloat — тип Numeric явно не целый (в MS десятичный с фиксированной запятой, что в Paradox — не скажу).

[animr]

Ладно спасибо, попробую что нибудь придумать, что получится отпишусь. Спасибо огромное.