五顆星星的故事

http://delphi.ktop.com.tw/board.php?cid=30&fid=1498&tid=96292

小弟寫段SQL

SELECT    PART 
FROM        TABLE

PART
1
2
3
.以此類推

然後要把PART 的值 放在 EDIT 上面
如果SELECT 出來只有一各PART 放EDIT 沒問題

如果SELECT 出來有兩各以上
小弟該怎麼寫才可以都顯示在EDIT上 並且以逗號為區隔呢

1,2,3 <-- 像這樣顯示在同一格EDIT1

HI, 有兩種方式，參考看看

第一種，使用 SQL

with ADOQuery1 do 
begin 
    SQL.Text := 'Declare @sPart varchar(1000); Set @sPart = '';'+ 
                'Select @sPart=@sPart+Cast(Part as varchar(10))+'','' from Table;'+ 
                'Select SubString(@sPart, 1, Len(@sPart)-1) Part'; 
    Open; 
    Edit1.Text := FieldByName('PART').AsString; 
    Close; 
end; 

第二種，使用 Delphi 本身

with ADOQuery1 do 
begin 
    SQL.Text := 'SELECT PART FROM TABLE'; 
    Open; 
    while Not Eof do 
    begin 
        Edit1.Text := Edit1.Text+FieldByName('PART').AsString+','; 
        Next; 
    end; 
    Close; 
    if (Edit1.Text <> '') then 
        Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text)-1); 
end;