Icon View Incident Report

Serious Serious
Reported By: Helmut Schiefer
Reported On: 2/13/2005
For: Version 4.17 Build 1
# 1964 Manually Preparing a Query Causes an AV

I get an "access violation" error if I manually prepare the following query.

Query:
======
Table1 and Table is form 
Ole's DBBench

SELECT
  a.T1_KEY,
  a.T1_SFLD1,
  a.T1_SFLD2,
  b.T2_SFLD1
FROM
  TABLE1 a
INNER JOIN
  TABLE2 b ON (a.T1_KEY = b.T2_KEY1)
WHERE
  (a.T1_KEY BETWEEN :P_START AND :P_STOP)
  AND (b.T2_SFLD1 IS NULL)

Test Procedure:
procedure TFormTest.Button1Click(Sender: TObject);
Var
  i : Integer;
begin
   Try
     Query.Params.ParamByName('P_START').AsInteger := 4600;
     Query.Params.ParamByName('P_STOP').AsInteger := 4690;
     Query.Prepare;
     Try
       For i := 0 to 9 do
       Begin
         Query.Active := False;
         Query.Active := True;
       End;
     Except
       on E: Exception do MessageDlg('I='+IntToStr(i)+' 
'+E.Message, mtError, [mbOK], 0);
     End;
   Finally
     Query.Close;
   End;
end;



Resolution Resolution
Fixed Problem on 2/13/2005 in version 4.18 build 1
Image