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

タイトル ： Mdb更新について
投稿日： 2005/02/14(Mon) 15:02
投稿者： 迷惑
[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　

テーブル更新ができない。
count = oCommand.ExecuteNonQuery()　←この文でいつもシステム例外エラーが起きる。
因みに更新しようとしてるMdbのテーブルColumnはテキスト型です。
ぜひお願いします。
ソースは以下
========================
　　　　　　Dim oConn As New OleDbConnection
            Dim oCommand As New OleDbCommand

            Const strUpdate As String = "UPDATE T_GROUP_ENV " + _
            "SET BS_DATA=@strData " + _
            "WHERE BS_GROUPID=@strGroupID AND BS_KEY=@strKey"

            'DB接続文字列の設定
            oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=&q
uot; + _
                FileName_To_Tmp

            'コネクションの設定
            oCommand.Connection = oConn

            'ＤＢ接続を開く
            oConn.Open()

            For i = 0 To dtTable.Rows.Count

                dtRow = dtTable.Rows(i)


                'SQL文の設定
                oCommand.CommandText = strUpdate

                'SQL文パラメータの設定
                oCommand.Parameters.Add(New OleDbParameter("@strData", OleDbType.
VarChar,
255))
                oCommand.Parameters("@strData").Value = dtRow(2)
                oCommand.Parameters.Add(New OleDbParameter("@strGroupID",
OleDbType.VarChar, 10))
                oCommand.Parameters("@strGroupID").Value = dtRow(0)
                oCommand.Parameters.Add(New OleDbParameter("@strKey", OleDbType.V
arChar,
50))
                oCommand.Parameters("@strKey").Value = dtRow(1)

                '更新SQL文実行
                Dim count As Integer
                count = oCommand.ExecuteNonQuery()
                If count > 0 Then
                    '更新成功
                    MessageBox.Show("成功")
                Else
                    '更新するレコードがなかった時の処理
                End If

            Next

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

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