Delphi TADOStoredProc / D6 和 RAD Studio XE2 最近的故障

Posted 2023-02-15

【中文标题】Delphi TADOStoredProc / D6 和 RAD Studio XE2 最近的故障

【英文标题】：Recent Failures on Delphi TADOStoredProc / D6 and RAD Studio XE2

【发布时间】：2012-08-23 14:36:11

【问题描述】：

感谢任何可以提供帮助的人...

背景：

我有一个应用程序在 Borland Delphi v6 中编码并且仍然受支持。最近，我遇到了 TADStoredProc 类无法执行存储过程的问题。这段代码之前已经稳定了好几年，从未被修改过。

我可以在请求上配置超时，这是受尊重的，但是存储过程调用永远不会运行，即使超时时间很长。应用程序只是挂起，或因超时异常而退出。 （我知道服务器没有负担过重，并响应同一个客户端发起的其他 SQL SELECT 请求。）

我知道 D6 很旧。我确实有一个使用 Embarcadero RAD Studio XE2 的单独环境，在那里我设法构建了相同的项目，但仍然存在相同的问题。 ...只是为了确保。

去哪里？

请查看提供的代码，看看是否有更好的方法来做事。 （也许 MSSQL 界面在最近更新之后更加挑剔？）我当然欢迎推荐。 是否有替代方法可以插入应用程序，即可靠且不需要 TADStoredProc？我已经完成了挖掘，但没有找到任何好的例子。

代码示例

function TImport.OpenHeader(DriverID: Integer, …, ScanStart: DateTime, ...): integer;
var
    suid: integer;
    jid: integer;

    con : TADOConnection;
    sp : TADOStoredProc;
begin
    suid := getScanUnitID();
    jid := deriveJobID(ScanStart);

    con := TADOConnection.Create(nil);
    con.LoginPrompt := false;
    con.ConnectionString :=  'Provider=SQLOLEDB.1;Password=<testPwd>;Persist Security Info=True;User ID=<testUser>;Initial Catalog=<myDB>;Data Source=<myServer>';
    con.CommandTimeout := 10;
    con.KeepConnection := true;
    con.Connected := true;

    sp := TADOStoredProc.Create(nil);
    sp.Connection := con;
    sp.CommandTimeout := 10;
    sp.ProcedureName := 'mon4_OpenHeader;1';
    sp.Parameters.Refresh;

    sp.Parameters.ParamByName('@ScanUnitID').Value := suid;
    sp.Parameters.ParamByName('@JobID').Value := jid;
    sp.Parameters.ParamByName('@DriverID').Value := DriverID;
    //[…]

    sp.Parameters.ParamByName('@Result').Direction := pdOutput; //returned from stored proc

    sp.ExecProc;

    Result := sp.Parameters.ParamByName('@Result').Value;
    sp.Free;
    con.Free;
end; // end OpenHeader(DriverID: Integer, …, ScanStart: DateTime, …): integer

感谢您提供的任何帮助。

【问题讨论】：

你有什么错误吗？您是否尝试过 Profiler 以了解该过程是否已执行？您是否尝试过从 ssms 执行该过程？

感谢您的推荐。奇怪的是，这次 SQL Profiler 似乎对它“起作用”了。抛出的 Delphi ADO 运行时异常是“超时”。从 SSMS 运行没有问题。

感谢您的推荐。 |奇怪的是，这次 SQL Profiler 似乎对它“起作用”了。抛出的 Delphi ADO 运行时异常是很长的“超时”。从 SSMS 运行没有问题。 |奇怪的是，通过 TADOQuery 运行动态 SQL 在所有情况下都可以，除非我为存储过程调用运行“EXEC ...”。 |服务器上有什么“关闭”吗？

我想，问题一定出在程序执行计划的改变上。尝试使用与 Delphi 中相同的参数值在 SSMS 中执行该过程（您可以在 Profiler 中获取它们），您应该面临很长的执行时间，这是导致超时的原因。如果这是真的，那么您应该提高您的程序性能。

伊戈尔，感谢您的意见。我已经进行了一些挖掘，这是相当过时的开发平台的调试组件一直在扔东西。 |今天我在数据库上发现了一些锁定问题。其他一些开发团队正在测试一些需要数小时才能运行（通过广域网）的查询，并且共享锁阻止了对主表的任何更新/插入/删除操作。我仍在探讨这些问题的解决方案，包括在数据库本身上使用“read_committed_snapshot”。今晚还在测试。再次感谢。

【参考方案1】：

尝试使用 SQL Server Native Client 10.0 OLE DB Provider

Provider=SQLNCLI10;Server=myServerAddress;Database=myDataBase;Uid=myUsername;
Pwd=myPassword;

【参考方案2】：

您可以尝试在SQLOLEDB 之后简单地删除.1，因为它只是指定要使用的版本号。

con.ConnectionString :=  'Provider=SQLOLEDB;Password=<testPwd>;Persist Security Info=True;User ID=<testUser>;Initial Catalog=<myDB>;Data Source=<myServer>';

您应该考虑切换到更新的SQLNCLI 驱动程序。

您尚未指定 windows 服务器版本、sql server 版本或客户端 windows 版本，但是：SQLOLEDB 应该也存在于较新的系统中以实现向后兼容性；SQLNCLI 应该带有 SQL Server 2005；SQLNCLI10 应与 SQL Server 2008 一起提供；SQLNCLI11 应与 SQL Server 2012 和 2014 一起提供；SQLNCLI13 应与 SQL Server 2016 一起提供；

注意 32/64bit 版本的驱动，因为要与 32 位 sql server 通信，您需要 32 位驱动，反之亦然。

确保在您的客户端上安装了正确的驱动程序。

Microsoft® SQL Server® 2016 功能包 Windows 8、8.1、10、Windows Server 2012、2012 R2、2016https://www.microsoft.com/en-us/download/details.aspx?id=52676 您将找到 sqlncli.msi 的 x86/x64 版本

Microsoft® SQL Server® 2012 Native Client Windows 7、8、8.1、10、Windows Server 2008 R2、2012、2012 R2https://www.microsoft.com/en-us/download/details.aspx?id=50402 您将找到 sqlncli.msi 的 x86/x64 版本

Microsoft® SQL Server® 2008 R2 Native Client Windows Vista、XP、7、Windows Server 2003、2008、2008 R2 x86 包：http://go.microsoft.com/fwlink/?LinkID=188400&clcid=0x409 x64 包：http://go.microsoft.com/fwlink/?LinkID=188401&clcid=0x409

还要注意OLEDB/ODBC lifecycle ，OLEDB 被宣布弃用以切换到最新的 ODBC 驱动程序，但去年 10 月它被重新声明为undeprecated。