在 Delphi 中調用 SQL 存儲過程的步驟如下:
1. 在 Delphi 中創建一個 TADOConnection 組件并設置數據庫連接屬性。
2. 在 Delphi 中創建一個 TADOStoredProc 組件,并將其 Connected 屬性設置為 True,將 Connection 屬性設置為 TADOConnection 組件。
3. 在 TADOStoredProc 組件的 Parameters 屬性中設置存儲過程的參數列表。
4. 調用 TADOStoredProc 組件的 ExecProc 方法來執行存儲過程。
5. 檢查存儲過程的返回值或輸出參數的值。
以下是一個示例代碼,演示了如何在 Delphi 中調用 SQL 存儲過程:
var??ADOConnection1:?TADOConnection;
??ADOStoredProc1:?TADOStoredProc; begin
??ADOConnection1?:=?TADOConnection.Create(nil);
??ADOStoredProc1?:=?TADOStoredProc.Create(nil);
??try
????//?設置數據庫連接屬性
????ADOConnection1.ConnectionString?:=?'Provider=SQLOLEDB;Data?Source=YourServerName;Initial?Catalog
????=YourDatabaseName;User?ID=YourUserID;Password=YourPassword';
????ADOConnection1.LoginPrompt?:=?False;
????ADOConnection1.Connected?:=?True;
????//?設置?TADOStoredProc?組件的屬性
????ADOStoredProc1.Connection?:=?ADOConnection1;
????ADOStoredProc1.ProcedureName?:=?'YourStoredProcedureName';
????ADOStoredProc1.Parameters.Refresh;?//?刷新參數列表
????//?設置存儲過程的輸入參數值
????ADOStoredProc1.Parameters.ParamByName('ParamName1').Value?:=?ParamValue1;
????ADOStoredProc1.Parameters.ParamByName('ParamName2').Value?:=?ParamValue2;
????//?執行存儲過程
????ADOStoredProc1.ExecProc;
????//?檢查存儲過程的返回值或輸出參數的值
????ReturnValue?:=?ADOStoredProc1.Parameters.ParamByName('ReturnValue').Value;
????OutputParamValue?:=?ADOStoredProc1.Parameters.ParamByName('OutputParamName').Value;
??finally
????ADOStoredProc1.Free;
????ADOConnection1.Free;
??end; end;
請注意,這只是一個基本示例,實際的代碼可能會有所不同,具體取決于你使用的數據庫和存儲過程的要求。