Ошибка AdoQuery при использовании параметров - PullRequest
Новая
       12

Ошибка AdoQuery при использовании параметров

1 голос
/ 12 февраля 2010

Мне нужно обновить значение поля, увеличив старое значение. что-то вроде этого 

UPDATE MYTABLE SET FIELD1=FIELD1+VALUE WHERE ....

но при запуске следующего кода у меня появляется эта ошибка

Параметр объекта неверно определены. Непоследовательный или неполный информация была предоставлена ​​

это мой код 

AdoQuery:=TADOQuery.Create(nil);
    try
        AdoQuery.Connection:=FAdoConnection;
        AdoQuery.Active:=False;
        AdoQuery.Parameters.CreateParameter('RECON',ftFloat,pdInput,SizeOf(Double),d1);
        AdoQuery.Parameters.CreateParameter('NUM',ftInteger,pdInput,SizeOf(Integer),Trans);
        AdoQuery.Parameters.CreateParameter('LIN'   ,ftInteger,pdInput,SizeOf(Integer),Lin);
        AdoQuery.SQL.Clear;
        AdoQuery.SQL.Add('UPDATE DIPTT SET VALRECON=:RECON+VALRECON WHERE NUM=:NUM AND LIN=:LIN');
        AdoQuery.Prepared:=True;
        AdoQuery.ExecSQL;
    finally
        if AdoQuery.Active then AdoQuery.Close;
        AdoQuery.Free;
    end;

Я попробовал несколько комбинаций

1) 

    AdoQuery.SQL.Add('UPDATE DIPTT SET VALRECON=VALRECON+:RECON WHERE NUM=:NUM AND LIN=:LIN');

2) 

        AdoQuery.SQL.Add('UPDATE DIPTT SET VALRECON=(VALRECON)+:RECON WHERE NUM=:NUM AND LIN=:LIN');

Только когда я попробовал это, это работает. (очевидно, это неверный вариант, но покажите мне, где проблема) 

        AdoQuery.SQL.Add('UPDATE DIPTT SET VALRECON=:RECON WHERE NUM=:NUM AND LIN=:LIN');

Как можно переписать это предложение?

Есть какие-нибудь подсказки?

1 Ответ

2 голосов
/ 12 февраля 2010

Быстрое предположение (сейчас ничего не поделать, чтобы поиграть с этим), но попробуйте поместить параметр в скобки следующим образом; 

UPDATE DIPTT SET VALRECON=(:RECON)+(VALRECON) WHERE NUM=:NUM etc

Если это не удастся, лучшим способом будет динамическое построение оператора SQL для этой части, например 

FSQL:='UPDATE DIPTT SET VALRECON=VALRECON+' + IntToStr(d1) + 
      ' WHERE NUM=:NUM etc';
AdoQuery.SQL.Text:=FSQL;

затем установите значения параметров Num (и т. Д.), Как раньше

...