DataAdapterで削除、追加(一部編集の上で・・)の実行について (ID:145287)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

VB.NET2003, WindowsXP使用です。

ACCESS内のテーブルＡのデータを全部Deleteし、
その後別のテーブルＢのSELECTした値のうち、
あるフィールドについて「-」や「 」(スペース)を削除したものを、
テーブルＡにINSERTしたいです。

下記のようにして、該当テーブルのデータ削除、追加が出来たのですが、
このINSERTの際の、商品マスタの部品番号から「-」や「 」(スペース)を削除しする場合、
どのようにして値を取得、編集とすればよいのでしょうか。

cn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strMDBPath
  cn1.Open()
  Adapt1 = New OleDb.OleDbDataAdapter("DELETE FROM work商品マスタ", cn1)
  Adapt1.Fill(ds, "work商品マスタ")
  Adapt2 = New OleDb.OleDbDataAdapter("INSERT INTO work商品マスタ SELECT 商品マスタ.部品番号 AS NT品番, 商品マスタ.住友コード FROM 商品マスタ", cn1)
  Adapt2.Fill(ds, "work商品マスタ")

(strMDBPath:MS-ACCESSまでの絶対パス)

上記の後続くコードは下記のようになる？と考えていますが、
dtがnothingとなってしまい、値が取れません。

dt = ds.Tables("work商品マスタ")
For i as integer = 0 to dt.Rows.Count -1
 Dim strField As String = CStr(dt.Rows(j)("NT品番")).Replace("-", "")
 dt.Rows(j)("NT品番") = strField.Replace(" ", "")
Next
Adapt2.Update(ds, "work商品マスタ")

上記、adapt1、adapt2と分けているのも、ACCESS上でDELETEとINSERTができていたので、
とりあえずヨシと見ていますが、これが正しいかどうかも分かっていませんが、
取得したデータをどのように編集して、元のDBを更新すればいいか教えて頂けますか。

←解決時は質問者本人がここをチェックしてください。

戻る