vb.net トランザクション処理について
VB2005、SQLServer2005環境です。
VB.Netのトランザクション処理でエラーが発生します。
エラー内容の意味すらわかりません。
どなたかご教授お願いします。
＊エラー内容
"System.InvalidOperationException: ExecuteReader は、コマンドに割り当てられた接続が保留状態である
ローカルのトランザクションにあるとき、トランザクション オブジェクトを持つコマンドが必要です。
コマンドの Transaction プロパティがまだ初期化されていません。
Private Sub BTN_更新_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_更新.Click
Dim strsql As String
Dim Tran As SqlClient.SqlTransaction = Nothing
'---DB接続
Call DBConnect()
Try
'---SQL文作成
strsql = "SELECT * FROM Aテーブル"
'---SQL文を作成して実行する
Dim comm As SqlCommand = New SqlCommand(strsql, Con)
'---データアダプタの作成
Dim dataadapter As SqlDataAdapter = New SqlDataAdapter(comm)
'---データセットへの読み込み
Dim ds As DataSet = New DataSet()
dataadapter.Fill(ds, "Aテーブル")
Dim dt As New DataTable
dt = ds.Tables("Aテーブル")
'---主キーの設定
dt.PrimaryKey = New DataColumn() {dt.Columns("Aテーブル")}
'---データの更新
Dim targetRow As DataRow
targetRow = dt.NewRow()
targetRow = dt.Rows.Find(TXT_コード.Text)
targetRow("コード") = TXT_コード.Text
targetRow("氏名") = TXT_氏名.Text
'---コマンド自動作成
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(dataadapter)
'---トランザクション開始
Tran = Con.BeginTransaction()
'---データベースの更新
dataadapter.Update(ds, "社員テーブル") ＜＜＜エラーになります。
'---トランザクション完了
Tran.Commit()
Catch oExcept As Exception
'---ロールバック
Tran.Rollback()
'例外が発生した時の処理
MessageBox.Show(oExcept.ToString, "例外発生")
Finally
'---DB切断
Call Disconnect()
End Try
お礼
わかりました。 ありがとうございました。