ADOQuery1中怎样动态添加字段呢?

Question

像在界面字段编辑器中的 右键 添加所有字段目前只能一个字段一个字段添加
sqlStr:=' select  *  from  t_user ';
with   ADOQuery1   do
begin
LockType:=ltBatchOptimistic;
close;
sql.clear;
sql.add(sqlStr);  with TIntegerField.Create(Self) do
 begin
    FieldName := 'Id';
    DataSet := ADOQuery1;
  end;   with TStringField.Create(Self) do
 begin
    FieldName := 'UserName';
    DataSet := ADOQuery1;
  end;
然后添加fkLookup字段怎样一个字段一个字段 添加 挺麻烦的 怎么一次性加入呢?

Answer 1

是要一个个添加。因为类型各异，字段名也不规律(即使很有规律也是要一个个添加，只不过可以做成循环吧了)
不建议在代码添加字段，让adoquery根据查询字段的多少來显示吧

Answer 2

select * from t_user//动态执行查询语句后，如果没有静态字段的话，ADOQUERY会自动添加相应的字段，一般无需手动设置

Answer 3

下面这样不用在ADOQuery1的字段编辑器添加字段 就可以读出所有字段
procedure TForm1.initDBGridEh();
var
  sqlStr:string;
  i:Integer;
begin
sqlStr:='Select a.* from [t_user] a ';
with   ADOQuery1   do
begin
close;
sql.clear;
sql.add(sqlStr);
open;
end;
end;
所有我想,像上面这样,应该包含ADOQuery1所有字段了但是当我 在代码中添加个lookup字段 确提示Id,UserName等字段不存在 
要一个个手动添加TStringField.Create后 才行

Answer 4

我想加一个lookup字段为什么就要手动一个个添加了呢