VBAでOracleに接続し、取得したレコードを突き合せようとしています。
2つのテーブル(TBL_A、TBL_B)からレコードを1件ずつ取得し、
それぞれのレコードの項目を突き合わせて一致しているかを確認します。
2つのテーブルは以下のような状態です。
【TBL_A】
社員番号,SYAIN_NO,VARCHAR2(10)
社員名 ,SYAIN_NM,VARCHAR2(50)
【TBL_B】
社員番号,SYAIN_NO,VARCHAR2(10)
社員名 ,SYAIN_NM,VARCHAR2(50)
レコードを取得する際、
以下のようなユーザ定義型変数に値を設定しています。
Dim TBL_A_REC As SYAIN
Dim TBL_B_REC As SYAIN
Type SYAIN
SYAIN_NO As String
SYAIN_NM As String
End Type
今後、各テーブルに生年月日のカラム(BIRTH)を追加する可能性があり、生年月日も突き合わせたいです。
先日、こちらで質問してユーザ定義型変数を動的に増やすことは不可能であるとご回答を頂きました。
ユーザ定義型変数を用いずにDBから取得した値を設定し、
突き合わせを行う良い方法はあるのでしょうか?
No.2ベストアンサー
- 回答日時:
オラクルのsqlの文法を知らないのですみません。
1.社員番号でJOINした、レコードセットをADOかなんかで取得して、
一件ずつ比べていく
2.TBL_Aにあって、TBL_Bにないレコードを抽出する
3.TBL_Bにあって、TBL_Aにないレコードを抽出する
で網羅できると思います。
1.に関しては
DIM CON AS NEW ADODB.CONNECTION
DIM RST AS NEW ADODB.RECORDSET
strCON = "Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;"
strSQL = "SELECT TBL_A.*, TBL_B.*
FROM TBL_A INNER JOIN TBL_B ON TBL_A.SHAIN_NO = TBS_B.SHAIN_NO"
CON.OPEN STRCON
RST.OPEN STRSQL,ADOPENKEYSET,ADLOCKOPTIMISTIC
DO WHILE NOT RST.EOF
IF RST.FIELDS(1) <> RST.FIELDS(?) THEN ’判定
DEBUG.PRINT RST.FIELDS(1) ’処理
END IF
......
LOOP
RST.CLOSE
CON.CLOSE
みたいな感じで、
一方のテーブルにしか存在しないレコードはないので
2、3のケースは想定していません。
DB接続はoo4oを介して行っていますが
ADOの方式も試してパフォーマンスを比べてみようと思います。
ご回答ありがとうございました。
No.3
- 回答日時:
参考程度の回答になります。
EXCEL(VBA)から、オラクル接続&データ取り込みした方が、
ACCESS、VB6よりも、比較が簡単にできそうな、感じがします。
ACCESSとVBは開発環境がないので選択肢にはありませんでしたが、
使用できる機会があったらそちらも試してみようと思います。
ご回答ありがとうございました。
No.1
- 回答日時:
オラクル使ったことない私が言うのも何ですが、
不一致分だけ抽出するのではダメなんですか?
この回答への補足
ご回答ありがとうございます。
確かに不一致レコードのみ抽出するSQLでも良いのですが、
実際のところ各テーブルには社員番号と社員名だけではなく、
他に30項目ほどあります。
(質問に全て記述すると長くなってしまうと思い
省略しております。すみません。)
項目には空白除去や、前ゼロ削除等の加工をした上で
突き合わせる項目もあります。
また、突き合わせた結果として各レコードをファイルに出力します。
そのためSQLでは単純に抽出だけを行います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/12】 急に朝起こしてきた母親に言われた一言とは?
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・好きな「お肉」は?
- ・あなたは何にトキメキますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【PL/SQL】FROM区に変数を使う方法
-
where句中のtrim関数について
-
単一グループのグループ関数で...
-
トランザクションログを出力せ...
-
「数字で始まらない」ものを抽...
-
データ
-
updateで複数行更新したい
-
group byの並び順を変えるだけ...
-
SQL*Loader Append
-
ACCESS レコードの並び順について
-
AccessのSQL文で1件のみヒット...
-
アクセスのレポートでレコード...
-
SELECT FOR UPDATE で該当レコ...
-
1レコード全てを改行なしで表...
-
oracle10g update件数の取得方法
-
レコードの更新履歴について
-
SELECT文の結果を変数に・・・
-
あるカラムに同じ値を持つレコ...
-
複数レコードを横並び1レコー...
-
oracle DB内のデータを増幅す...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
単一グループのグループ関数で...
-
【PL/SQL】FROM区に変数を使う方法
-
group byの並び順を変えるだけ...
-
where句中のtrim関数について
-
SQL*Loader Append
-
データ
-
SELECT FOR UPDATE で該当レコ...
-
「数字で始まらない」ものを抽...
-
トランザクションログを出力せ...
-
SQLで条件にヒットしたレコード...
-
アクセスのレポートでレコード...
-
AccessのSQL文で1件のみヒット...
-
引数によってwhere句を切り替え...
-
BLOB型項目をSQLの検索条件に指...
-
レコードの更新履歴について
-
1レコード全てを改行なしで表...
-
大量レコードをTRUNCATEせずに...
-
ACCESS レコードの並び順について
-
デフォルトでデータが表示され...
-
PL/SQL内の共通関数の引数にフ...
おすすめ情報