将参数传递给 TADOStoredProc (Delphi) 的更好方法

Posted 2023-04-18

【中文标题】将参数传递给 TADOStoredProc (Delphi) 的更好方法

【英文标题】：A better way of passing parameters to a TADOStoredProc (Delphi)

【发布时间】：2010-11-12 16:03:22

【问题描述】：

我需要将大量 SQL 查询转换为存储过程。我有一些代码在一个 Delphi 程序中一次更新大约 20 或 30 个值。我可以处理创建一个存储过程来做这样的事情。问题是我将参数传递给存储过程的方式非常庞大，如下所示：

    with stored_procedure do......
    Param := Parameters.AddParameter;
    Param.Name := '@SSN';
    Param.Value := edtSSN.text;

    Param := Parameters.AddParameter;
    Param.Name := '@FirstName';
    Param.Value := edtFirstName.Text;

    Param := Parameters.AddParameter;
    Param.Name := '@LastName';
    Param.Value := edtLastName.Text;

    Param := Parameters.AddParameter;
    Param.Name := '@UserRID';
    Param.Value:= GetRIDFromCombo(cbUser);

我也不确定这是否会导致内存泄漏（是否有必要释放此类 TParameter 对象？）

谁有更好的方法来处理大量参数？ （我不能使用新库。我必须使用 ADO，我使用的 SQL 是 MSSQL）（另外，我没有使用 ADO.net）

【参考方案1】：

有一个公认的答案:-)，但我想向您指出更简单的方法来定义和使用一行参数：

stored_procedure.Parameters.CreateParameter('SSN',ftString,pdInput,30,edtSSN.text);

简单灵活，可以在同一行定义输入输出参数。

来自 Delphi 的帮助：

function CreateParameter(const Name: WideString; DataType: TDataType;
    Direction: TParameterDirection; Size: Integer; 
    Value: OleVariant): TParameter;

【讨论】：

这似乎是比我更好的答案。

我不知道它存在。感谢分享！

感谢 Bruce 和 Rob，这就是 SO 的美妙之处，我在这里为 Delphier 学到了很多东西，并尝试与他人分享我所知道的 :-)

这很方便，虽然我还是更喜欢第一种方式，因为它对于大量的仅输入参数来说更简单

【参考方案2】：

这不会导致内存泄漏。 stored_procedure 将清理其参数。您可以通过将以下内容添加到您的 .dpr 来使用 FastMM 确认这一点：

  ReportMemoryLeaksOnShutdown := True;

首先，我要去掉“with”语句。它会导致更多的问题和更少的代码可读性。

我会创建一个辅助方法来接受存储过程、参数名称和参数值，这将使您的代码更易于管理。

AddParam(stored_procedure, '@SSN', edtSSN.text);
AddParam(stored_procedure, '@FirstName', edtFirstName.Text);
AddParam(stored_procedure, '@LastName', edtLastName.Text);
AddParam(stored_procedure, '@UserRID', GetRIDFromCombo(cbUser));

【参考方案3】：

ADO 会为你创建参数，你只需要在参数对象上调用 Refresh：

 SP.Connection := SqlConnection; // must be done before setting procedure name
 sp.ProcedureName := 'MyStoredProc';
 sp.Parameters.Refresh; // This will create the parameters for you as defined in SQL Server
 sp.Parameters.ParamByName('@SSN'').Value  := SSN; // params now exist

等

如果输出任何参数，您需要明确设置它们：

   sp.Parameters.ParamByName('@ReturnValue').Direction := pdInputOutput;

【讨论】：

这很好，但只有当过程在连接的默认数据库中时它才有效。如果您使用 DifferentDatabase.Owner.ProcedureName

，ADO 中有一个错误会破坏参数

我还发现 .Refresh 并不总是有效，即使在同一个 database.owner 中也是如此。我还没有找到任何模式来判断它何时起作用，何时不起作用，但是当它不起作用时，我会得到像“找不到参数'@SearchText'这样的错误。”当我使用 .ParamByName 时。同样的电话在 99.9% 的时间里都有效。手动添加参数似乎绕过了这个问题。

非常感谢。我在使用 TDate 和 TDateTime 类型的参数时遇到了问题，因为 sp.parameters.refresh 使用数据类型为 WideString 而不是 TDate 创建参数。

【参考方案4】：

这是我所知道的最短的：

stored_procedure.Parameters.ParamByName('@SSN').Value := edtSSN.text;

注意，您需要先分配stored_procedure.Connection并调用stored_procedure.Parameters.Refresh;