Cách tốt hơn để truyền tham số cho TADOStoredProc (Delphi)

Question

Tôi cần chuyển đổi một lượng lớn truy vấn SQL thành các thủ tục được lưu trữ. Tôi có một số mã cập nhật khoảng 20 hoặc 30 giá trị cùng một lúc trong một thủ tục Delphi. Tôi có thể xử lý việc tạo một thủ tục được lưu trữ để làm một điều như vậy. Vấn đề là cách của tôi để truyền tham số cho thủ tục lưu trữ là rất cồng kềnh như thế này:

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

Tôi cũng không chắc chắn nếu nó gây ra rò rỉ bộ nhớ (là nó cần thiết để giải phóng đối tượng TParameter như vậy?)

Bất cứ ai có một cách tốt hơn để xử lý một số lượng lớn các thông số? (Tôi không thể sử dụng thư viện mới. Tôi phải sử dụng ADO và SQL tôi sử dụng là MSSQL) (cũng được, tôi KHÔNG sử dụng ADO.net)

Answer 1

Điều này không gây rò rỉ bộ nhớ. archive_procedure sẽ dọn sạch các tham số của nó. Bạn có thể xác nhận điều này bằng FastMM bằng cách thêm thông tin sau vào tệp .dpr:

ReportMemoryLeaksOnShutdown := True; 

Trước tiên, tôi muốn loại bỏ câu lệnh "có". Nó có thể dẫn đến nhiều vấn đề hơn và ít mã dễ đọc hơn.

Tôi muốn tạo phương thức trợ giúp chấp nhận quy trình được lưu trữ, tên thông số và giá trị tham số, điều này sẽ làm cho mã của bạn dễ quản lý hơn.

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 2

Có một câu trả lời chấp nhận :-), nhưng tôi muốn chỉ cho bạn cách đơn giản và dễ dàng hơn để xác định và sử dụng các thông số với một dòng:

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

Nó đơn giản và linh hoạt, bởi vì bạn có thể xác định các tham số đầu vào và đầu ra với cùng một dòng.

và từ Delphi giúp đỡ:

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

Answer 3

ADO sẽ tạo ra các thông số cho bạn, bạn chỉ cần gọi Refresh trên các thông số đối tượng:

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 

vv

Nếu bất kỳ thông số là đầu ra, bạn sẽ cần phải đặt chúng rõ ràng:

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

Answer 4

Đây là ngắn nhất tôi biết:

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

Lưu ý, bạn cần gán stored_procedure.Connection và gọi stored_procedure.Parameters.Refresh; trước khi làm điều này