求教,和数据库有关,关于Query的.解决方法

求教,和数据库有关,关于Query的.
一个select查询数据库的ID字段,然后得出5行数据,我想把这5行数据用逗号拼接起来连成一个字符串s.
但这样些都是取的第一个数据.主要代码如下,请指正...

Delphi(Pascal) code

var   i : integer;  s : string;begin  for i := 1 to query.RecordCount do  begin    if s = '' then       s := Query.FileByName('ID').AsString     else       s := s + ',' + Query.FileByName('ID').AsString;    Query.Next;  end;end;

请问哪里出了问题?谢谢指点.

[解决办法]
使用Next，就不要使用For循环。
while not query..eof do
begin
if s = ''
then s := Query.FileByName('ID').AsString 
else s := s + ',' + Query.FileByName('ID').AsString;
Query.Next;
end;

[解决办法]

探讨

Delphi(Pascal) code

var
s : string;
begin
with query do
begin
first;
while not eof do
begin
s := s + ',' + FileByName('ID').AsString;
Next;
end;
de……

[解决办法]
var 
i : integer;
s : string;
begin
  
while not query.eof do
begin
if s = '' then 
s := Query.FileByName('ID').AsString 
else 
s := s + ',' + Query.FileByName('ID').AsString;
Query.Next;
end;
end;

查看更多 下一篇