| タイトル | ： レコードの更新でエラー |
| 記事No | ： 1629 |
| 投稿日 | ： 2005/04/22(Fri) 18:05 |
| 投稿者 | ： FM |
[OSのVer]：Windows 2000 [VBのVer]：VB.NET 2003
Mdbファィルのレコードの更新を実行したいのですが
下記のコードではエラーが発生します。
よろしくお願いします。
'-----------
Db_File_Name = "Test.mdb"
Dim Cns As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= " & Db_Path & Db_File_Name & ";" & _
"Persist Security Info=False"
Dim cn As New Data.OleDb.OleDbConnection(Cns)
Dim da As New Data.OleDb.OleDbDataAdapter
Dim cmd As New OleDb.OleDbCommand
Dim SQ As String = "select * from Teble"
cn.Open()
cmd.Connection = cn
cmd.CommandText = SQ
da.SelectCommand = cmd
da.Fill(dtSet, "Teble")
Dim CB As Data.OleDb.OleDbCommandBuilder = New Data.OleDb.OleDbCommandBuilder(da)
cn.Close()
dtSet.Tables("Teble").Rows(0).Item("NO") = "0001" 'データの変更
cn.Open()
'Err -------------
'System.InvalidOperationException' のハンドルされていない例外が system.data.dll で
発生しました。
'UpdateCommand の動的 SQL 生成は、キーである列情報を返さない SelectCommand に対して
サポートされていません。
'-------------
Dim s As Integer = da.Update(dtSet, "Teble") 'ここで上記のエラーが発生します。
cn.Close()
cmd.Dispose()
da.Dispose()
cn.Dispose()
|