L
LSBIN
Unregistered / Unconfirmed
GUEST, unregistred user!
各位大虾:
我想从ACCESS数据表中取出指定条数的记录,并将全部记录放入一个二维动态数组中,我用以下的方法:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
setlength(abc,a,5);
for i:=0 to (b-1) do
begin
c:=(b-1)-i;
adoq1.Close;
adoq1.SQL.Clear;
adoq1.SQL.Add('select * from my_table where ID='+inttostr(c)+'');
adoq1.Open;
old[nx_i,0]:=adoq1.Fields[2].AsInteger;
old[nx_i,1]:=adoq1.Fields[3].AsInteger;
old[nx_i,2]:=adoq1.Fields[4].AsInteger;
old[nx_i,3]:=adoq1.Fields[5].AsInteger;
old[nx_i,4]:=adoq1.Fields[6].AsInteger;
end;
end;
//ID是记录编号
//abc是二维数组
有提示:where子句出错什么的
请问如何解决?如标题所示,谁有好的方法请提供,不谨感谢!
我想从ACCESS数据表中取出指定条数的记录,并将全部记录放入一个二维动态数组中,我用以下的方法:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
setlength(abc,a,5);
for i:=0 to (b-1) do
begin
c:=(b-1)-i;
adoq1.Close;
adoq1.SQL.Clear;
adoq1.SQL.Add('select * from my_table where ID='+inttostr(c)+'');
adoq1.Open;
old[nx_i,0]:=adoq1.Fields[2].AsInteger;
old[nx_i,1]:=adoq1.Fields[3].AsInteger;
old[nx_i,2]:=adoq1.Fields[4].AsInteger;
old[nx_i,3]:=adoq1.Fields[5].AsInteger;
old[nx_i,4]:=adoq1.Fields[6].AsInteger;
end;
end;
//ID是记录编号
//abc是二维数组
有提示:where子句出错什么的
请问如何解决?如标题所示,谁有好的方法请提供,不谨感谢!