Npgsql+VB2008環境にてDataAdapterでのデータの追
Npgsql+VB2008環境にてDataAdapterでのデータの追加できない
この環境で、以下のプログラムを書いていますが、なぜか追加されません。問題はどこにあるのでしょうか。あとトランザクション処理も加えたいのですが。NpgsqlのVBサンプルがなくて・・・まして.NETをはじめたばかりで。初歩的なことですいません。
宜しくお願いします。
Dim strCnn As String
strCnn = /* PostegreSQL接続文字列 */
Dim Cnn = New NpgsqlConnection(strCnn)
Dim npgDataSet As DataSet = New DataSet
Dim npgDataAdapter As Npgsql.NpgsqlDataAdapter
npgDataAdapter = New Npgsql.NpgsqlDataAdapter("SELECT * FROM T_Zip;", Cnn)
npgDataAdapter.Fill(npgDataSet, "T_Zip")
Dim npgCommand = New NpgsqlCommand("INSERT INTO T_Zip(ZipCode, Address) VALUES (:Code,:Adr);", Cnn)
npgCommand.Parameters.Add("Code", SqlDbType.NVarChar, 10, "ZipCode")
npgCommand.Parameters.Add("Adr", SqlDbType.NVarChar, 50, "Address")
npgDataAdapter.InsertCommand = npgCommand
Dim dt As New DataTable
npgDataAdapter.Fill(dt)
Dim tempRow = dt.NewRow()
tempRow.BeginEdit()
tempRow("ZipCode") = "487-0023"
tempRow("Address") = "AAAA"
tempRow.EndEdit()
dt.Rows.Add(tempRow)
npgDataAdapter.Update(npgDataSet, "T_Zip")
補足
ありがとうございました！