tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^3: TableAdapterを使ってテーブル更新について
投稿日: 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

同じ例外がでます。上のコードで初期化されているかどうか教えてください。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。