一个简单的问题：Query.close

[StarRains]

环境：Win98＋Delphi5＋SQL Server2000
delphi代码：
...
Query1.close;
Query1.Sql.clear;
Query1.Sql.add('select * from table');
Query1。Open；
if not Query1.ISEmpt then
Query1.first;
while not Query1.Eof do
begin
dosomething;
...
Next ;
end;
Query1.Close;
...

在Query.close时，delphi提示错误：
Enther BOF of EOF is True,or the Current record been deleted,Requested option requires a current record.

delphi5已经安装ADO补丁，
本程序在数据库为Sql Server7.0 中并无错误。
请诸位大侠指教。

[cobi]

gz

[arthurwww]

Ado Update 2 才解决这个问题
ado update 1解决不了这个问题

[StarRains]

哪有Ado Update 2 下载，先谢了！
问题解决一定送分，还可以多加！

[wgjsoft]

这个问题我也遇到过！装上Ado的包就没事，在delphi6中就没事

[davin_zhang]

把if not Query1.ISEmpt then Query1.first;去掉﹐本來就是多余的﹐其它應該是沒有問題的.

[bigysw]

不知你做了什么 DoSomething,其他的正常！

[bigysw]

还有，在 AfterOpen 中又干了什么没有？？

[寒星]

我这里是对的呀。

[poleax]

应该不是query1.close的错，你再仔细检查.

[lldwolf]

close没错的

[snjun]

你是表中是不是没有记录

[StarRains]

表中有记录时，如果BOF或EOF有一个值为True（即Cursor没有定位到某条记录上）时，Close即会出现所说错误，表中没有记录时，肯定会出错。 我不清楚为什么相同的代码与环境用SQL Server7数据库就不出错？
与delphi5 、Sql server的补丁有关吗？我的Delphi5只安装了一个ADO补丁程序，不知是否还有其他的补丁。

[StarRains]

不管前两句多余与否，对于空表还是在close时出错！

[StarRains]

是否与没有SQL server2000 的pack包有关？

[StarRains]

没找到ADO update2 问题还没有解决

[truezerg]

这两句是多余的：
if not Query1.ISEmpt then
Query1.first;