김민호 wrote:

> SQL에서 Select 문을 쓰고,거기에 해당되는 내용을 스트링그리드로 출력하는 것을 어떻게 써야 하는지 꼭 좀 답변 부탁합니다...과연 그런 방법이 없는지...흑흑..

> 그러니까 Select에서의 결과값들을 스트링그리드에 쫘악~~여러개의 레코드를 출력하는 방법을.....꼭!!꼭!!부탁!!!부탁!!합니다....



저는 이런 방법을 씁니다.

예를 들어 회원테이블에 있는 레코드를 스트링그리드에 보이도록 한다면..



procedure TFrom1.ShowDataOnGrid;

var

i,j:integer;

Qry: TQuery;

begin

Qry:= TQuery.Create(Self);

try

with Qry do begin

DatabaseName:='DBDEMOS';

Close;

sql.Clear;

sq.Add('select * fro "customer.db" order by Last_name');

Open;

with StringGrid1 do begin

for i:=1 to RecordCount do begin

for j:=0 to FieldCount-1 do

Cells[j,i]:= Fields[j].AsString;

Next;

end;

end;



end;

finally

Qry.free

end;

end;



인터넷상에서 직접 쓰는 거라 맞는지 확인해 보시기 바랍니다. 그리고 저보다 더좋은 방법이 있을겁니다. 한번 찾아 보세요. 그럼 도움이 되시길...

박성훈 wrote:

> 김민호 wrote:

> > SQL에서 Select 문을 쓰고,거기에 해당되는 내용을 스트링그리드로 출력하는 것을 어떻게 써야 하는지 꼭 좀 답변 부탁합니다...과연 그런 방법이 없는지...흑흑..

> > 그러니까 Select에서의 결과값들을 스트링그리드에 쫘악~~여러개의 레코드를 출력하는 방법을.....꼭!!꼭!!부탁!!!부탁!!합니다....

>

> 저는 이런 방법을 씁니다.

> 예를 들어 회원테이블에 있는 레코드를 스트링그리드에 보이도록 한다면..

>

> procedure TFrom1.ShowDataOnGrid;

> var

> i,j:integer;

> Qry: TQuery;

> begin

> Qry:= TQuery.Create(Self);

> try

> with Qry do begin

> DatabaseName:='DBDEMOS';

> Close;

> sql.Clear;

> sq.Add('select * from "customer.db" order by Last_name');

> Open;

> with StringGrid1 do begin

RowCount:= RecordCount+1; //*요부분을 빠뜨렸음.

> for i:=1 to RecordCount do begin

> for j:=0 to FieldCount-1 do

> Cells[j,i]:= Fields[j].AsString;

> Next;

> end;

> end;

>

> end;

> finally

> Qry.free

> end;

> end;

>

> 인터넷상에서 직접 쓰는 거라 맞는지 확인해 보시기 바랍니다. 그리고 저보다 더좋은 방법이 있을겁니다. 한번 찾아 보세요. 그럼 도움이 되시길...