Road to DBD

カレンダー

カテゴリ

その他

(16)

バックナンバー

2026.05
2026.04
2026.03

2026.02
2026.01

キーワードサーチ

▼キーワード検索

プロフィール

ジャムシード

フォローする

コメント新着

mayggW@ продвижение раскрутка сайта договор Заказать seo поисковую оптимизацию сайт…

通りすがりプログラマー@ Re:複数テーブルによるUPDATE(02/11) 随分前の記事にコメント失礼します。 rown…

ワンコ0995 @ Re:包含データベース(06/02) （（データベース）データベース，）デー…

しぐしぐ@ Re:TOP 100 PERCENT(05/08) お世話になっております。最近、旧システ…

ハニー@ Re:INSTEAD OFトリガの限界(07/16) 1SQLでやらずに変数に入れればいいじゃん

< 新しい記事

新着記事一覧(全148件)

過去の記事 >

2009.01.04

SSISでファイルの内容を読み出すが、データベースには入れたくない場合、言い換えれば情報だけ抽出して使いたい場合には「データフロータスク」の「レコードセット変換先」は便利だ。
ただ、読み出したものをどうやって使うかは意外と面倒くさいので、備忘録的に。

1:For Eachループコンテナを使う
　Foreach ADO列挙子を使えば、１行ずつ読みだすことができるので、比較的容易。
　ただし、読みだすためにコンテナと変数の定義が必要なので、処理の内容の割にはフロー上大掛かりなものになってしまう。

2:スクリプトタスクで、ADOレコードセットとして使う
　レコードセット変換先はインラインADOレコードセットであるとなっているが、ADO.NETのDataAdapterなどでうまく変換できないので、結局レガシーのADOを使う方法が一般的。

　この方法は以下の細工が必要。
　・ADODB.dllはSSISから参照可能ではないため、ADODB.dllをProgramFilesフォルダから検索して、Windows\Microsoft.NET\Framework\の該当バージョンのフォルダにコピーする

　ただし、以下のように列数も簡単に取れるので、ADOになれた人には使いやすい。



　　Dim rs As ADODB.Recordset
　　rs = ReadVariable("FileData")
　　Dts.Variables("ColCnt").Value = rs.Fields.Count
　　Dts.TaskResult = ScriptResults.Success
End Sub


Private Function ReadVariable(ByVal varName As String) As Object
　　Dim result As Object
　　Try
　　　　Dim vars As Variables
　　　　Dts.VariableDispenser.LockForRead(varName)
　　　　Dts.VariableDispenser.GetVariables(vars)
　　　　Try
　　　　　　result = vars(varName).Value
　　　　Catch ex As Exception
　　　　　　Throw ex
　　　　Finally
　　　　　　vars.Unlock()
　　　　End Try
　　Catch ex As Exception
　　　　Throw ex
　　End Try
　　Return result
End Function

Private Sub WriteVariable(ByVal varName As String, ByVal varValue As Object)
　　Try
　　　　Dim vars As Variables
　　　　Dts.VariableDispenser.LockForWrite(varName)
　　　　Dts.VariableDispenser.GetVariables(vars)
　　　　Try
　　　　　　vars(varName).Value = varValue
　　　　Catch ex As Exception
　　　　　　Throw ex
　　　　Finally
　　　　　　vars.Unlock()
　　　　End Try
　　Catch ex As Exception
　　　　Throw ex
　　End Try
End Sub