아래는 코드 부분 입니다.
(1) procedure button1.click(...);
(2) begin
(3) Query4.SQl.Clear;
(4) Query4.SQL.Add('select * from friend where f_myid = :pid');
(5) Query4.paramByName('pid').AsString := loginid;
(6) Query4.Open;
(7) Query4.First;
(8) while not query4.eof do
(9) begin
(10) showmessage(query4.fieldbyname('f_myid').asstring + ' ' + query4.fieldbyname('f_friid').asstring );
(11) query4.next;
(12) if query4.eof then break;
(13) end;
(14) Query4.Close;
(15) Query4.Active := true;
(16) end;
여기서... 10번째 줄에서 확인해 본 결과... select 된 내용은 sql 문과 동일한 값만
출력이 됩니다.
하지만, dbgrid3에 나타나는 리스트는 where 문이 적용되지 않은!!!
select * 리스트가 나타납니다.
뭐가 잘못되었는지 조언을 부탁합니다.
>
>
>
> 아래는 코드 부분 입니다.
>
> (1) procedure button1.click(...);
> (2) begin
> (3) Query4.SQl.Clear;
> (4) Query4.SQL.Add('select * from friend where f_myid = :pid');
> (5) Query4.paramByName('pid').AsString := loginid;
>
> (6) Query4.Open;
> (7) Query4.First;
> (8) while not query4.eof do
> (9) begin
> (10) showmessage(query4.fieldbyname('f_myid').asstring + ' ' + query4.fieldbyname('f_friid').asstring );
> (11) query4.next;
> (12) if query4.eof then break;
> (13) end;
>
> (14) Query4.Close;
> (15) Query4.Active := true;
> (16) end;
>
>
> 여기서... 10번째 줄에서 확인해 본 결과... select 된 내용은 sql 문과 동일한 값만
> 출력이 됩니다.
>
> 하지만, dbgrid3에 나타나는 리스트는 where 문이 적용되지 않은!!!
>
> select * 리스트가 나타납니다.
>
> 뭐가 잘못되었는지 조언을 부탁합니다.
>
>
>
제가 확실한지는 잘모르겠지만요..!~~~ 이코딩으로 한번해보셔요..!~~~
1) button1.click(...);
2) Begin
3) Query4.Close;
4) DBGrid3.DataSource := DataSource;
5) Query4.SQL.Clear;
6) Query4.SQL.Add('select * from friend');
7) Query4.SQL.Add('where f_myid like :pid'); <-- 이부분이 조금틀린것 같네여..!~
8) Query4.Open;
제가 문제의 핵심을 제대로