** 아래 코딩중에 에러가 발생합니다.



코딩은 SQL의 Where문에서 Division조건을 달리해서 StringGrid에

입력시키는 부분입니다.



에러 부분을 코딩부분에 표시했습니다.





procedure TfrmBONBONG.SGOutPutList;

var

i : integer;

SGRowCount : integer;

begin

SGRowCount := 1;

with Query1 do

begin

close;

SQL.Clear;

SQL.ADD('select DutyNumber, Amount from '+ DBName);

SQL.ADD('Where Division =1');

open;

While SGRowCount < 51 do

begin

if SGRowCount = 1 then

begin

for i := 1 to 17 do

begin

stringGrid1.cells[0,i]:=Fields[0].AsString;

StringGrid1.cells[1,i]:=Fields[1].AsString;

Next;

inc(SGRowCount);

end;

end;

end;



Close;

SQL.Clear;

SQL.ADD('Select DutyNumber, Amount from' + DBName);

SQL.ADD('where Division=2'); // erorr!!(where문에 에러)

Open; // 실제로는 Open이 안되는것 같아요~ 위에 Where까지는 실행하는데

first; // open에서 걸리더라구요~

SGRowCount := 1;



While SGRowCount < 51 do

begin

if SGRowCount = 1 then

begin

for i := 1 to 17 do

begin

StringGrid4.cells[0,i]:=Fields[0].AsString;

StringGrid4.cells[1,i]:=Fields[1].AsString;

Next;

inc(SGRowCount);

end;

end;



end;

Close;

end;

end;



** 부탁드립니다.