毎回で心苦しいのですが、１日目は正常に処理されますが２回目になると
「DataAdapter.SelectCommand プロパティを初期化する必要があります」とでます。
HelpではFillやSQLのJOINの確認が記載されてましたがJOINはないし、Fillを行っても同じでした。DataAdapterを別定義しているのはGridとの表示をしながら更新・表示をしている関係です。何か根本的に間違っているのでしょうか。
<Loadイベントにて>
With npgDataAdapter
.SelectCommand = New NpgsqlCommand()
With .SelectCommand
.CommandText = CommandType.Text
.CommandText = strSelectSQL
.Connection = Cnn
End With
End With
npgDataSet.Tables.Clear()
npgDataAdapter.Fill(npgDataSet, "T_Zip")
<Editプロシージャにて>
Using npgBuilder As Npgsql.NpgsqlCommandBuilder = New Npgsql.NpgsqlCommandBuilder(npgDataAdapter)
If Cnn.State = ConnectionState.Closed Then
Cnn.Open()
End If
Using npgTrans As NpgsqlTransaction = Cnn.BeginTransaction(IsolationLevel.Serializable)
Try
Dim tempRow = npgDataSet.Tables("T_Zip").Select("ZipCode=123-0000" )
tempRow(0).BeginEdit()
tempRow(0).Item("ZipCode") = "123-0001"
tempRow(0).Item("Address") = "TEST"
tempRow(0).EndEdit()
npgBuilder.GetUpdateCommand.Connection = Cnn
npgBuilder.GetUpdateCommand.Transaction = npgTrans
npgDataAdapter.Update(npgDataSet.Tables("T_Zip")) <--ここ
npgTrans.Commit()
Catch
:
Finally
If Not npgTrans.Connection Is Nothing Then
npgTrans.Rollback()
End If
If Not (Cnn.State = ConnectionState.Closed) Then
Cnn.Close()
End If
End Try
End Using
End Using
