如何读取adoquery1里的数据,二维的。
比如第3行,第4列,用什么属性?
或者有这样的问题:
已经  with Fm_FDM.ADOQuery1 do
     begin
      SQL.Clear;
      SQL.Add('select Rtrim(a.USER_name) as 用户名');
      SQL.Add(' from WM_USERS a');
      Active:=True;
      Open;
     end; 得到一个列,“用户名”,如何写到Combobox中。

解决方案 »

  1.   

    如何读取adoquery1里的数据,二维的。 
    比如第3行,第4列,用什么属性? 什么意思??
    你查询的就USER_name这一列,那来的4列??
      

  2.   

    是2个问题,第一个是通用的问题,第2个是个案再比如: 
    已经  with Fm_FDM.ADOQuery1 do 
         begin 
          SQL.Clear; 
          SQL.Add('select Rtrim(a.USER_name) as 用户名,a.user_password as 口令'); 
          SQL.Add(' from WM_USERS a'); 
          Active:=True; 
          Open; 
        end; 不就是2个列了吗?我是求教通用的解决方法,只是举个例子,至于是1列,还是多列,都有可能的。就是问,如何如何读取adoquery1里的数据。不用管有几行几列。
      

  3.   

    Edit1输入列,Edit2输入行,假设已打开Adoquery1,则:If (Strtoint(Edit1.Text)>adoquery1.FieldCount) or (Strtoint(Edit1.Text)=0) then exit;
    if (Strtoint(Edit2.Text)>adoquery1.RecordCount) or(Strtoint(Edit2.Text)=0) then exit;ADOQuery1.RecNo:=strToint(Edit2.Text);
    Combobox.Items.add(adoquery1.Fields[strToint(Edit1.Text)-1].AsString);
      

  4.   


    procedure TForm1.Button1Click(Sender: TObject);
    begin
     with Fm_FDM.ADOQuery1 do  begin
          SQL.Clear;
          SQL.Add('select Rtrim(a.USER_name) as 用户名,a.user_password as 口令');
          SQL.Add(' from WM_USERS a');
          Open;
      ComboBox1.Items.Clear;
      while not eof do  begin
      ComboBox1.Items.Add(FieldValues['用户名']);
       next;
      end;
     end;end;
      

  5.   

      ComboBox1.Items.Add(FieldValues['用户名']);
      

  6.   


    procedure TForm1.Button1Click(Sender: TObject);
    begin
      with Fm_FDM.ADOQuery1 do  
      begin
        SQL.Clear;
        SQL.Add('select Rtrim(a.USER_name) as 用户名,a.user_password as 口令');
        SQL.Add(' from WM_USERS a');
        Open;
      end;  ComboBox1.Items.Clear;  while not eof do  
      begin
        ComboBox1.Items.Add(ADOQuery1.FieldByName('用户名').AsString);
        next;
      end;
     end;end;
      

  7.   


    combobox1.items.clear;//先清空组合框里的itemswhile not eof do //循环遍历
    begin
    combobox1.items.add(fieldbyname('用户名').asstring); 
    next;
    end;
      

  8.   

    combobox1.items.add(fieldbyname('用户名').asstring); fieldbyname('用户名')这里用fields[i]吧
      

  9.   

    用个循环添加
    while not eof do //循环遍历 
    begin 
    combobox1.items.add(fieldbyname('用户名').asstring); 
    next; 
    end;