怎么把表中的字段值取出？(100分)

把一个表yy中一个字段accno的任意一个值赋给一个变量@xx,要求每个值都要赋，每个值赋几次
不做要求。我现在急呀，谢谢拉。用SQL语句。

var
xx:string;

xx:=fieldbyname('accno').asstring;

怎么，我提的SQL语句，都用DELPHI的语法回答了。不过还是谢谢。知道用SQL怎么写吗？

var
xx: array of integer;

i := 0;
with query do
begin
close;
sql.text := 'select accno from yy';
open;
while not eof do
begin
xx := fields[0].asinteger;
inc(i);
next;
end;
end;

sql的话写存储过程，用游标，方法类似。

使用游标，命令如下：
declare cc cursor for
select accno from yy
open cc
declare @xx as integer
fetch next from cc into @xx
WHILE (@@FETCH_STATUS = 0)
begin
fetch next from cc into @xx
end
close cc
DEALLOCATE cc
这上面难道不是用SQL写的吗？？？？？？？？？
SQL并不知有select、updata、delete才是SQL！！！！！

我是说说用SQL语句写

ALTER PROCEDURE [p_make_arraymonth](
@dtbegin varchar(10),
@dtend varchar(10)
)
AS
begin
----
declare @d1 datetime
declare @d2 datetime
set @d1=CAST(@dtbegin as datetime)
set @d1=CAST((DATENAME(yyyy,@d1)+'.'+right((month(@d1)+100),2)+'.01') as datetime)
set @d2=CAST(@dtend as datetime)
set @d2=CAST((DATENAME(yyyy,@d2)+'.'+right((month(@d2)+100),2)+'.02') as datetime)
create table #t_dt(dt varchar(7))
insert into #t_dt(dt) values(DATENAME(yyyy,@d1)+'.'+right((month(@d1)+100),2))
while (@d2>@d1)
begin
insert into #t_dt(dt) values(DATENAME(yyyy,@d2)+'.'+right((month(@d2)+100),2))
set @d2=DATEADD (mm,-1,@d2)
continue
end
select distinct dt as 月份 from #t_dt order by dt asc
-----
end

循环你不会？