Delphi6.0,用ADOQuery检索记录,如下代码:
ADOSQL.Close;
with ADOSQL do
begin
sql.Clear;
sql.Add('SELECT l_name FROM Music WHERE s_type=''歌曲''');
open;
end;
for i:=0 to ADOSQL.RecordCount-1 do
begin
ADOSQL.MoveBy(i);
tmpS:=tmpS+ADOSQL.Fields[0].Value +'\';
end;
返回的记录条数也对了,共15条,但是奇怪的问题来了,只有前5条是正确的,从第6条开始到第15条结束都是重复的(为第15条记录),也就是说第7-14条记录的值丢了!
我是真的不知道啥子原因!!!您知道吗?难道是D版????
ADOSQL.Close;
with ADOSQL do
begin
sql.Clear;
sql.Add('SELECT l_name FROM Music WHERE s_type=''歌曲''');
open;
end;
for i:=0 to ADOSQL.RecordCount-1 do
begin
ADOSQL.MoveBy(i);
tmpS:=tmpS+ADOSQL.Fields[0].Value +'\';
end;
返回的记录条数也对了,共15条,但是奇怪的问题来了,只有前5条是正确的,从第6条开始到第15条结束都是重复的(为第15条记录),也就是说第7-14条记录的值丢了!
我是真的不知道啥子原因!!!您知道吗?难道是D版????
解决方案 »
- 请问这段程序怎么实现关闭form1,打开form2的?
- 用DsFancyButton时出现run out of resources Canvas does not allow drawing!要如何解决呢?
- delphi控件问题(求助)
- ddfdsafdasfsdafdsfdfasfghgfh
- 如何测试一个文件已经不再增长?谢了!
- 为何对Text类型的字段,取得的内容仅为前4个字节?dbexpress driver for MSSQLServer
- delphi7 dbexpress 连接mssql时出现问题?
- 自己怎麽编写控件
- delphi7下载?
- 我想找份工作,希望大家能帮帮我。
- 请问如何在一个表中添加一个新的字段?
- 文件加密压缩的问题...高分求解!!!
请将ADOSQL.MoveBy(i)语句改为:ADOSQL.MoveBy(1);或者改为:adosql.next;
i在每次循环中移动的记录数为:1,2,3,4,5。也就是你得到的是第1、3、6、10、15条记录。