Lepszy sposób przekazywania parametrów do TADOStoredProc (Delphi)

Question

Potrzebuję przekonwertować dużą liczbę zapytań SQL do procedur składowanych. Mam pewien kod, który aktualizuje około 20 lub 30 wartości jednocześnie w jednej procedurze Delphi. Potrafię sobie poradzić z tworzeniem procedur przechowywanych w celu zrobienia czegoś takiego. Problemem jest to mój sposób na przekazywanie parametrów do procedur składowanych jest bardzo nieporęczne tak:

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

ja też nie jestem pewien, czy to powoduje wyciek pamięci (nie jest to konieczne, aby uwolnić takich obiektów TParameter?)

Ktoś ma lepszy sposób obsługi dużej liczby parametrów? (Nie mogę użyć nowej biblioteki, muszę używać ADO, a SQL, którego używam, to MSSQL) (również, NIE używam ADO.net)

Answer 1

Nie powoduje to przecieku pamięci. stored_procedure wyczyści jej parametry. Można to potwierdzić z FastMM przez dodanie następujących do .dpr:

ReportMemoryLeaksOnShutdown := True; 

Po pierwsze, chciałbym pozbyć się „z” oświadczeniem. Może to prowadzić do większej liczby problemów i mniej czytelnego kodu.

Utworzyłem metodę pomocniczą, która akceptuje procedurę składowaną, nazwę parametru i wartość parametru, co uczyni twój kod łatwiejszym w zarządzaniu.

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

Jest akceptowaną odpowiedź :-), ale chcę wskazać na prostszy i łatwiejszy sposób definiować i wykorzystywać parametry z jednej linii:

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

to proste i elastyczne, ponieważ ciebie może definiować parametry wejściowe i wyjściowe za pomocą tej samej linii.

iz pomocą Delphi:

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

Answer 3

ADO stworzy parametry dla Ciebie, wystarczy zadzwonić Refresh na parametry obiektu:

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 

etc

jeśli parametry są dane wyjściowe, musisz je jawnie ustawić:

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

Answer 4

Jest to najkrótsza wiem:

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

Uwaga, trzeba przypisać stored_procedure.Connection i nazywają stored_procedure.Parameters.Refresh; przed wykonaniem tej