質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.38%

  • SQL

    3160questions

    SQL(Structured Query Language)は、リレーショナルデータベース管理システム (RDBMS)のデータベース言語です。大きく分けて、データ定義言語(DDL)、データ操作言語(DML)、データ制御言語(DCL)の3つで構成されており、プログラム上でSQL文を生成して、RDBMSに命令を出し、RDBに必要なデータを格納できます。また、格納したデータを引き出すことも可能です。

  • Access

    643questions

    Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

accessでのINSERT,DELETEの書き方について教えてください

受付中

回答 2

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 2,663

makino

score 24

初心者で申し訳ないのですが、
accessでのSQLで、UPDATE,INSERT,DELETEを組み合わせた書き方がよくわかりません。

マスターとトランザクションで、
1 商品コードが被ったら更新、
2 マスター側に商品コードがなかったら追加、
3 商品コードが被ってるけど、追加するデータが入ってなかったら削除
というプログラムです。

まず、INSERTするとテーブルのデータが全て追加されてしまうので、
1行ずつ追加したいこと。

次に、Ifでrs_ans! rs_transaction!としてるので、毎回、OpenとCloseを繰り返さなければならないのか。
(現在ここでエラーになります・・・)

そもそもIf文ではなくUnionで書けないのか・・・

色々とおかしな部分があるかと思いますが、教えてください。お願いします。

Sub Key()

Dim cnn As ADODB.Connection

Dim rs_master As ADODB.Recordset
Dim rs_ans As ADODB.Recordset
Dim rs_transaction As ADODB.Recordset
Dim aSQL As String

Set cnn = CurrentProject.Connection
Set rs_master = New ADODB.Recordset
Set rs_ans = New ADODB.Recordset
Set rs_transaction = New ADODB.Recordset


    rs_master.Open "master", cnn, adOpenKeyset, adLockOptimistic
    rs_ans.Open "ans", cnn, adOpenKeyset, adLockOptimistic

    Do Until rs_master.EOF
        rs_ans.AddNew

        rs_ans!商品コード = rs_master!商品コード
        rs_ans!商品名 = rs_master!商品名
        rs_ans!単価 = rs_master!単価

        rs_ans.Update
        rs_ans.MoveNext
        rs_master.MoveNext
    Loop


    rs_transaction.Open "transaction", cnn, adOpenKeyset, adLockOptimistic
    rs_ans.MoveFirst

    Do Until rs_transaction.EOF

        If rs_ans!商品コード = rs_transaction!商品コード Then
            aSQL = "UPDATE ans SET ans.商品名 = '" & rs_transaction!商品名 & "', ans.単価 = " & rs_transaction!単価 & "" & _
            " WHERE ans.商品コード = " & rs_transaction!商品コード & ""

            If rs_transaction!単価 = 0 And rs_transaction!商品名 Is Null Then
                aSQL = "DELETE FROM ans" & _
                " WHERE (" & rs_transaction!単価 & " = 0) & (" & rs_transaction!商品名 & " IS NULL)"
            End If

        ElseIf rs_ans!商品コード <> rs_transaction!商品コード Then
            aSQL = "INSERT INTO ans ( 商品コード, 商品名, 単価 ) SELECT transaction.商品コード, transaction.商品名, transaction.単価 " & _
            " FROM transaction WHERE ans.商品コード <> " & rs_transaction!商品コード & ""

        End If

        rs_ans.Close
        rs_ans.Open aSQL, cnn, adOpenKeyset, adLockOptimistic
        rs_transaction.MoveNext
    Loop

Set rs_ans = Nothing
rs_master.Close: Set rs_master = Nothing
rs_transaction.Close: Set rs_transaction = Nothing
cnn.Close: Set cnn = Nothing

End Sub

~追記~

masterにあるデータをtransactionのデータと比較して、処理し、
ansのテーブルに出力する流れです。
商品コード、商品名、単価が全てのテーブルにあります。

1度ansのテーブルにmasterのデータを全て書いて、
rs_ans!商品コード = rs_master!商品コード
rs_ans!商品名 = rs_master!商品名
rs_ans!単価 = rs_master!単価
( ↑のループ部分です。 )

それをtransactionのテーブルと比較し処理するのがいいかなと思っただけですので、
他によい方法があれば教えてください。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • kaz.Suenaga

    2016/03/25 11:12

    master、ans、transaction のそれぞれのテーブルの関係性を整理していただけますか。
    追加、削除、更新の対象は ans ですか。

    キャンセル

回答 2

+1

先に突っ込み的な話ですが、

  •  rs_ans.AddNew するなら、rs_ans.MoveNextは不要です
  • せっかくRecordset(rs_ans)を開いている状態で、あえてSQLを発行して処理しようとするのはなぜでしょうか。

本題ですが、プランとして

  • まず「マスター」と「トランザクション」を結合した、各レコードについて評価すればいいようなレコードセットを作る
  • そのレコードセットの各行に対して、rs_ans に追加していく

方がスマートかと思いました。

SELECT * FROM master LEFT JOIN transaction ON master.商品コード = transaction.商品コード
WHERE transaction.商品コード IS NULL

で master にしかないデータ、

SELECT * FROM master LEFT JOIN transaction ON master.商品コード = transaction.商品コード
WHERE transaction.商品コード IS NOT NULL

で master 、transaction 両方にあるデータ、

SELECT * FROM transaction LEFT JOIN master ON transaction.商品コード = master.商品コード
WHERE master.商品コード IS NULL

で transaction にしかないデータ、になるので、それぞれのパターンでレコードセットを作成して処理すれば、削除せずにできる気がします。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

0

Do Until rs_transaction.EOF
の所を下記のようなSQLにしたら出来るのでは?

下記のSQLは参考です。
実際の環境で動かしていないので実際に動かすと
構文エラーが出るかも知れません。

--削除処理
DELETE FROM ans
INNER JOIN transaction
ON ans.商品コード = transaction.商品コード
WHERE transaction.単価=0 AND transaction.商品名 Is Null

--更新処理
UPDATE ans
INNER JOIN transaction
ON ans.商品コード = transaction.商品コード
SET ans.単価=transaction.単価,ans.商品名 = transaction.商品名
WHERE transaction.単価<>0 OR transaction.商品名 Is Not Null

--追加処理
INSERT INTO ans
SELECT transaction.* FROM transaction
LEFT JOIN ans
ON ans.商品コード = transaction.商品コード
WHERE (transaction.単価<>0 OR transaction.商品名 Is Not Null) AND ans.商品コード Is Null

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/03/25 13:35

    ありがとうございます。

    下記のように書いたところ、更新はされるのですが、
    削除と追加がされない状態になりました。
    書き方が間違ってますでしょうか?

      rs_ans.MoveFirst
    rs_ans.Close

    Do Until rs_transaction.EOF
       aSQL = "DELETE FROM~
       aSQL = "INSERT INTO~
       aSQL = "Update~
      rs_ans.Open aSQL, cnn, adOpenKeyset, adLockOptimistic
    rs_transaction.MoveNext

    Loop

    キャンセル

  • 2016/03/25 19:07

    Do Until rs_transaction.EOF
     中略
    rs_transaction.MoveNext

    aSQL = "DELETE FROM~
    rs_ans.Open aSQL, cnn, adOpenKeyset, adLockOptimistic
    aSQL = "INSERT INTO~
    rs_ans.Open aSQL, cnn, adOpenKeyset, adLockOptimistic
    aSQL = "Update~
    rs_ans.Open aSQL, cnn, adOpenKeyset, adLockOptimistic
    としたら使えるはずです。
    紹介したSQLは、1行づつ処理するのではなく一括で処理を行えるようにしたものです。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.38%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

同じタグがついた質問を見る

  • SQL

    3160questions

    SQL(Structured Query Language)は、リレーショナルデータベース管理システム (RDBMS)のデータベース言語です。大きく分けて、データ定義言語(DDL)、データ操作言語(DML)、データ制御言語(DCL)の3つで構成されており、プログラム上でSQL文を生成して、RDBMSに命令を出し、RDBに必要なデータを格納できます。また、格納したデータを引き出すことも可能です。

  • Access

    643questions

    Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。