怎样循环从数据库里读取记录

Question

表结构
id      des        falg
01     我是第一    t
02     我是第2    null
03     我是第3    t
04      我是第4   null
05      我是第5   t字段全是字符类型的；我的目的是把flag为t的依次读取，并且flag为1的des的内容添加到listbox中，那么这段代码应该如何来写:谢谢各位了：

Answer 1

wiht adoquery1 do
begin
close;
sql.clear;
sql.('select * from 表名');
open;
while not eof do
begin
s:=adoquery1.fieldbyname('flag').asstring;
这里加上对s的判断。就可以了next;
end;
end;

Answer 2

在sql语句中控制
select id, des, flag from table1 where flag = 't' order by id

Answer 3

SQL := 'select * from tb where falg = ' + #39 + 1 + #39 ;
ADOQ.Close;
ADOQ.Sql.Clear;
ADOQ.Sql.add(SQL);
ADOQ.open;
while not ADOQ.EOf do 
  listbox.items.add(ADOQ.EOf.filedbyname('des').asstring);没测试

Answer 4

var s:string;
begin
      with adoq do
      begin
          close;
          sql.clear;
          sql.Add('select * from test');
          open;
      while not eof do
            begin
            s:=trim(adoq.fieldbyname('flag').asstring);
            if(s='t') then
               begin
               ListBox1.Items.Add(adoq.fieldbyname('des').AsString);
               adoq.Next;
               end
              else   //如果不是t的情况下，则执行下一条记录
                begin
                adoq.Next;
                end;
            end;
      end;end;

Answer 5

直接select出那个标志是t的不就完了，还判断什么啊？