Как определить существует ли в базе данных MySQL запись?

Question

[animr]

Почему мне возвращается 1, хотя ни одной записи нет в базе по запросу? Код следующий:

querySQL := 'SELECT COUNT(*) `article` FROM `sdvd_products` WHERE `article` = "'+article+'"';
qQuery.SQL.Clear;
uti := qQuery.SQL.Add(querySQL);

if uti = 0 then
ShowMessage('Указанная запись '+article+' не существует!')
else
begin
qQuery.SQL.Clear;
qQuery.SQL.Add('UPDATE `sdvd_products` SET `price` = :_price WHERE `article` = "'+article+'"');
qQuery.ParamByName('_price').Value := price;
qQuery.ExecSQL;
end;

что не так?

Answer 1

[ldv]

uti := qQuery.SQL.Add(querySQL);
это не выполнение запроса

Comments

[animr]

а как правильно выполнить запрос?

[ldv]

Какой компонент используете?

[animr]

DAC for MySQL

[ldv]

Что-то вроде этого. Проверить не на чем.

querySQL := 'SELECT COUNT(*) `article` FROM `sdvd_products` WHERE `article` = "'+article+'"';
qQuery.Close;
qQuery.SQL.Clear;
qQuery.SQL.Add(querySQL);
qQuery.Open;

if qQuery.FieldByName('article').AsInteger = 0 then
ShowMessage('Указанная запись '+article+' не существует!')
else
begin

qQuery.Close;
qQuery.SQL.Clear;
qQuery.SQL.Add('UPDATE `sdvd_products` SET `price` = :_price WHERE `article` = "'+article+'"');
qQuery.ParamByName('_price').Value := price;
qQuery.ExecSQL;
end;

[animr]

Сейчас проверю...

[animr]

Спасибо огромное ... работает ...