Проект написан на
Delphi7 . Используются компоненты ADO + MSSQL 2012.
В приложении все работает штатно, и компоненты не оповещают о каких либо ошибках.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
q:=TADOQuery.Create(application);
q.Connection:=pConnection;
q.SQL.Text:='Select dbo.AccountIdOnChipCode('+#39+data+#39+') AccountID';
try
q.Open;
q.Connection:=nil;
if q.RecordCount>0 then
begin
fAccountId:=q.Fieldbyname('AccountID').AsInteger;
end;
except on e:Exception do
MessageDlg(e.Message,mtError,[mbok],0);
end;
q.Free;
Однако профайлером отлавливаются ошибки скриптов:
1.
2.
3.
4.
5.
6.
Select dbo.AccountIdOnChipCode('BASETABLENAME
Select dbo.AccountIdOnChipCode('id
Select dbo.AccountIdOnChipCode('KEYCOLUMN
Select dbo.AccountIdOnChipCode('OPTIMIZE
Select dbo.AccountIdOnChipCode('myDBname
Select dbo.AccountIdOnChipCode('UTF-8
При том всем, что в той же сессии, профайлером отваливаются эти же процедуры, но с правильной переменной
1.
select AccountIdOnChipCode('0000ABCDEF') as AccountID
Примечательно еще то, что данному явлению подвержены еще несколько процедур и функций.
Закономерность в том, что замененный параметр, это всегда чип-код карты, считанный картридером.
А так же замечено, что подставляется что-то нечто слово целиком. Т.е. слово до пробела. И эти же слова тоже агрегируемы как в примере. Их не так много вариантов, часто повторяются.
Может кто сталкивался, что это за ерунда?
Приложение работает нормально, но есть опасения, что я чего-то не вижу и где-то может быть не нормально.
Спасибо
