タイトル | : Re^3: TableAdapterを使ってテーブル更新について |
記事No | : 8355 |
投稿日 | : 2008/10/22(Wed) 13:23 |
投稿者 | : ムラ |
るしぇさん回答ありがとうございます。
自分なりに勉強しました。
最初にフォームを開くときコマンドを初期化したつもりなのですが↓
Private Sub frmRiskAssessmentResultUpdate_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load '★コマンド初期化 'コネクションを指定する Using connection As New SqlClient.SqlConnection(My.Settings.ReskAssessmentKConnectionString) 'コマンドをコネクションから作成する Dim command As SqlClient.SqlCommand = connection.CreateCommand()
'コネクションを開く connection.Open()
'データリーダの定義 Dim dr As SqlClient.SqlDataReader
'コマンド定義 command.CommandText = "SELECT * FROM RiskAssessmentResult"
'データリーダからデータの読み出し dr = command.ExecuteReader()
'データリーダを閉じる dr.Close()
'コネクションを閉じる connection.Close()
End Using End Sub
次に更新ボタンを押すと前に示したUpdateが実行されるのですが↓
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'保存確認・保存処理 If MsgBox("この内容をデータベースに反映しますか?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
'編集状態を確定する RiskAssessmentResultBindingSource.EndEdit()
Me.RiskAssessmentResultTableAdapter.Update(Me.ReskAssessmentKDataSet.RiskAssessmentResult) ''テーブルアダプタを介して、RiskAssessmentKを更新する 'Me.RiskAssessmentResultTableAdapter.Update(Me.ReskAssessmentKDataSet.RiskAssessmentResult)
End If End Sub
同じ例外がでます。上のコードで初期化されているかどうか教えてください。
|