delphi中如何把access表中的数据导入到stringgrid中？

Question

麻烦请给一段代码。我这么写对吗？
for   i:=1   to   ADOQuery3.RecordCount   do
          for   j:=2   to   ADOQuery3.FieldCount   -3   do
                  StringGrid1.Cells[j-2,i]   :=   ADOQuery3.Fields[j].AsString;我这么写之后没有反应啊。还有其他方法吗？谢谢大家了

Answer 1

就是循环写入，没有反应，你调试一下看看吧，很可能是你的行列没对应好，而且ADOQuery3要依次下移一条，否则，只读取的是第一条最好用
while not ADOQuery3.Eof do
begin
  //填充Grid
  ADOQuery3.Next;
end;

Answer 2

for  i:=1  to  ADOQuery3.RecordCount  do
begin
   for  j:=1  to  ADOQuery3.FieldCount    do
     StringGrid1.Cells[j,i]  :=  ADOQuery3.Fields[j].AsString;
   ADOQuery3.Next;
end

Answer 3

ADOQuery3.first;
for  i:=1  to  ADOQuery3.RecordCount  do
begin
   for  j:=1  to  ADOQuery3.FieldCount    do
     StringGrid1.Cells[j,i]  :=  ADOQuery3.Fields[j-1].AsString;
   ADOQuery3.Next;
end