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

Question

我需要将大量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)

Answer 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;

Answer 2

这不会导致内存泄漏.stored_procedure将清理其参数.您可以通过在.dpr中添加以下内容来使用FastMM进行确认:

  ReportMemoryLeaksOnShutdown := True;

首先,我将摆脱"与"声明.它可能导致更多问题和更少可读代码.

我创建了一个辅助方法,它接受存储过程,参数名称和参数值,这将使您的代码更易于管理.

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

Answer 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;