62,272
社区成员
发帖
与我相关
我的任务
分享
DECLARE @intR INT
DECLARE @chvR INT
EXEC spBAS_MsgDetectNewForSelf
@chvUserTypeID,
@intR OUTPUT,
@chvR OUTPUT
SELECT @intR AS Normal, @chvR AS newSys
Dim dlgRtn As DialogResult '確認ダイアログの戻り値
Dim objCommand As OleDbCommand
Dim intOpDataCnt As Integer '出力データ件数
'確認ダイアログ
dlgRtn = MessageBox.Show("突合データ出力処理を行います。" & vbCrLf & "よろしいですか?", "実行確認", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If dlgRtn = Windows.Forms.DialogResult.No Then
Exit Sub
End If
'カーソルを砂時計にする
Me.Cursor = Cursors.WaitCursor
g_objOleDBConnection.Open() 'DB Open
objCommand = New OleDbCommand(g_strUserName & "." & cst_PROC_OUT_MATCHING, g_objOleDBConnection)
objCommand.CommandText = cst_PROC_OUT_MATCHING
objCommand.CommandType = CommandType.StoredProcedure
objCommand.Connection = g_objOleDBConnection 'コマンドを使用する接続用インスタンスを関係付ける
'INパラメータを設定
objCommand.Parameters.Add("wkOpPath", OleDbType.VarChar).Value = g_strFileOpDir
'アウトパラメータ(出力データ件数)の設定
Dim prmOut As New OleDbParameter("wkOpDataCnt", OleDbType.Integer)
prmOut.Direction = ParameterDirection.Output
objCommand.Parameters.Add(prmOut)
'ストアドプロシージャ実行
objCommand.ExecuteNonQuery()
'出力データ件数
intOpDataCnt = prmOut.Value.ToString()