☆彡　なみぶたぁのだんなのブログ　☆彡: 2012年1月 6日アーカイブ

【SQLServer】ストアドのVBA(ADO)からの呼び出し方

なみぶたぁのだんな (2012年1月 6日 15:48) | コメント(0)

先程の自動番号採番用のストアドをVBA(ADO)から呼びだす為のロジックです。

    Dim cmd As ADODB.Command
    Dim rst As ADODB.Recordset
    Dim param1 As ADODB.Parameter
    Dim param2 As ADODB.Parameter

    取得された値= -1
    Set rst = New ADODB.Recordset
    Set cmd = New ADODB.Command
    With cmd
        ' コネクション
        .ActiveConnection = DBへのコネクション
        ' タイプ=Procudure
        .CommandType = adCmdStoredProc
        ' プロシージャ名
        .CommandText = "ストアド名"

        ' 引数１
        Set param1 = .CreateParameter("@主キー", adInteger, adParamInput)
        param1.Value = 主キーの値
        .Parameters.Append param1
        ' 引数２
        Set param2 = .CreateParameter("@戻り値", adInteger, adParamOutput)
        .Parameters.Append param2

        ' ストアド実行
        .Execute

        取得された値= param2.Value
   End With

Set rst = Nothing
Set cmd = Nothing
Set param1 = Nothing
Set param2 = Nothing

これもパクる際には自己責任でお願いしますね。

あとバグってたら教えて下さい！

開発案件も受付中でーすｗｗ

なみぶたぁのMyMiniCityはコチラ

↓クリックして頂けるとうれしいです（ワンクリック詐欺ではないです（笑））
人気blogランキングへ
 日本ブログ村へ

【SQLServer】ストアドプロシージャの作り方

なみぶたぁのだんな (2012年1月 6日 15:33) | コメント(0)

SQLServerでストアドも余り作らないので、ついつい忘れてしまうので備忘録がてら記載。

まじめに仕事をしてるって事で。

良くある自動番号採番用ロジックです。

「トランザクション」「行ロック」に対応している（はずｗｗ）。

create procedure dbo.fnGetCurrentNo(@パラメータ int, @戻り値 int output) AS
declare @l_CurNum int

begin try
-- トランザクション開始
begin transaction トランザクション名
-- 現在番号を取得(行ロック)
select @l_CurNum=現在番号 from MT_NUMBER with (ROWLOCK) where 主キー=@パラメータ
-- 現在番号を更新
update 番号管理テーブル set 現在番号=現在番号+1 where 主キー=@パラメータ
-- 正常の場合、コミット
commit transaction トランザクション名
-- 戻り値設定
set @戻り値 = @l_CurNum + 1
end try

-- 例外処理
begin catch
    -- ロールバック
    rollback transaction トランザクション名
    -- エラー出力
    print ERROR_MESSAGE()
end catch

-- 終了
return

あんまり試験してないので、パクる際には自己責任でお願いしますねｗｗ

あと、間違ってたら教えて下さい！

なみぶたぁのMyMiniCityはコチラ

↓クリックして頂けるとうれしいです（ワンクリック詐欺ではないです（笑））
人気blogランキングへ
 日本ブログ村へ