Delphi - BOF或EOF为True，或者当前记录已被删除

发布于 2024-09-12 22:58:20 字数 1011 浏览 21 评论 0原文

当我尝试在 MS SQL Server 2005 中选择一个空表时，出现此错误：“BOF 或 EOF 为 True，或者当前记录已被删除”。我在 Delphi 5 中使用 TADOConnection 和 TADODataSet 来连接数据库并检索数据。

  Conn := TADOConnection.Create(nil);
  DataSet := TADODataSet.Create(nil);

  Conn.ConnectionString := 'Provider=SQLOLEDB.1;Password=sa;' +
                           'Persist Security Info=True;' +
                           'User ID=user;Initial Catalog=mydb;' +
                           'Data Source=MYPC\SQLEXPRESS;' +
                           'Use Procedure for Prepare=1;' +
                           'Auto Translate=True;Packet Size=4096;' +
                           'Workstation ID=MYPC;' +
                           'Use Encryption for Data=False;' +
                           'Tag with column collation when possible=False';
  Conn.LoginPrompt := False;
  Conn.Open;

  DataSet.Connection := Conn;
  DataSet.CommandText := 'SELECT * FROM MYTABLE';
  DataSet.Open;

  DataSet.Free;
  Conn.Free;

有没有一种方法可以检查数据库表是否为空而不发生此类错误？

原文

This error showed when I tried to select on an empty table in MS SQL Server 2005: "either BOF or EOF is True, or the current record has been deleted". I have used TADOConnection and TADODataSet in Delphi 5 to connect and retrieve data from the database.

  Conn := TADOConnection.Create(nil);
  DataSet := TADODataSet.Create(nil);

  Conn.ConnectionString := 'Provider=SQLOLEDB.1;Password=sa;' +
                           'Persist Security Info=True;' +
                           'User ID=user;Initial Catalog=mydb;' +
                           'Data Source=MYPC\SQLEXPRESS;' +
                           'Use Procedure for Prepare=1;' +
                           'Auto Translate=True;Packet Size=4096;' +
                           'Workstation ID=MYPC;' +
                           'Use Encryption for Data=False;' +
                           'Tag with column collation when possible=False';
  Conn.LoginPrompt := False;
  Conn.Open;

  DataSet.Connection := Conn;
  DataSet.CommandText := 'SELECT * FROM MYTABLE';
  DataSet.Open;

  DataSet.Free;
  Conn.Free;

Is there a way to check if a database table is empty without incurring such error?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

七禾 2024-09-19 22:58:20

此错误最初是在更新 MDAC_TYP（从内存中更新到 2.6）时发生的。根据旧的 Borland 公告
“这是 SQL Server 提供程序中的一个错误。设置
CursorLocation = clUseClient 以消除错误。”

Borland，但该链接不起作用。Embarcadero 现在将其托管在此处：ftp://ftpd.embarcadero.com/pub/delphi/devsupport/updates/adoexpress/d5adoupdate2.exe（感谢 Jeroen 的官方链接！）

我建议下载并安装 Embarcadero 站点上列出的所有补丁（假设您可以找到它们）。

回复收藏 0 原文

没有心的人 2024-09-19 22:58:20

在此处下载 Delphi 5 的 ADO 更新：ftp://ftpd. embarcadero.com/pub/delphi/devsupport/updates/adoexpress/d5adoupdate2.exe

确保您还安装了常规更新：

还有更多更新（Corba、原始 ADO 安装）和语言（法语、德语），但这些应该可以帮助您继续。

曾经还有一个 http://info.borland.com/devsupport/delphi /download_files/zlibupdate.zip，但它不在 ftpd 服务器上。

——杰罗恩

回复收藏 0 原文

安静被遗忘 2024-09-19 22:58:20

这是很久以前的事了，但我记得 Delphi 5 中的这个问题通过 Delphi 更新解决了。早期版本的 ADO 组件存在严重

问题我还发现您的代码使用的不是典型的运行时创建组件，并且没有使用某些容器（例如数据模块或表单）（通常不好）来进行组件的可视化工作。有时通过 adoConnection.execute 运行简单查询也很有用。如果不使用可视组件，ADO 的 Recordset 对象的处理与 Delphi 的 AdoDataset 非常相似。

回复收藏 0 原文