sql-server – 将参数传递给TADOStoredProc(Delphi)的更好方法

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

解决方法

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

（编辑：青岛站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!