デルファイを使用してSQLストアドプロシージャを呼び出す方法は？

2年 ago
海斗, 葵
1 minute

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;



実際のコードは使用するデータベースとストアドプロシジャの要件によって異なる場合があるので、注意してください。これは基礎的な例にすぎません。

        


        
        

			        

    


	



		            	                        

        


    

















  
    bannerAds