用TAdoQuery 中的Next就可以了。with TAdoQuery.Create(nil) do
begin
//设置连接属性
ConnectionString := '';
try
//初始化SQL语句,并打开记录集
Close;
SQL.Clear;
SQL.Add(strSQL);
Open;
//读取记录
First;
while not eof do
begin
//......codes.
Next;
end;
finally
Free;
end;
end;
begin
//设置连接属性
ConnectionString := '';
try
//初始化SQL语句,并打开记录集
Close;
SQL.Clear;
SQL.Add(strSQL);
Open;
//读取记录
First;
while not eof do
begin
//......codes.
Next;
end;
finally
Free;
end;
end;
//用个样式,看得舒服点。with TAdoQuery.Create(nil) do
begin
//设置连接属性
ConnectionString := '';
try
//初始化SQL语句,并打开记录集
Close;
SQL.Clear;
SQL.Add(strSQL);
Open;
//读取记录
First;
while not eof do
begin
//......codes.
Next;
end;
finally
Free;
end;
end;