タイトル : レコードの更新でエラー 投稿日 : 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() |