質問編集履歴

1

実際のコードを記載しました。

2017/04/14 00:15

投稿

cd987456
cd987456

スコア33

test CHANGED
File without changes
test CHANGED
@@ -97,3 +97,53 @@
97
97
  【ORA-00905: キーワードがありません。】のメッセージが出てエラーになります。
98
98
 
99
99
  コードに間違いがあれば、教えて頂きたいです。
100
+
101
+
102
+
103
+ ★テーブル名は英数字表記しています。
104
+
105
+ VBAのADODB.ConnectionオブジェクトとSQL文を使ってエクセルにデータ抽出しようとしています。
106
+
107
+ 実際のコードとテーブル名を記載します。
108
+
109
+
110
+
111
+ 品名テーブル・・XHEAD
112
+
113
+ 製品構成テーブル・・XPRTS
114
+
115
+ ```ここに言語を入力
116
+
117
+ Dim strSQL As String
118
+
119
+ strSQL = "select XPRTS.CODE,H1.NAME,XPRTS.KCODE,H2.NAME"
120
+
121
+ strSQL = strSQL & " from XPRTS"
122
+
123
+
124
+
125
+ strSQL = strSQL & " left join XHEAD As H1 on XPRTS.CODE = H1.CODE"
126
+
127
+ strSQL = strSQL & " left join XHEAD As H2 on XPRTS.KCODE = H2.CODE"
128
+
129
+ ```
130
+
131
+ XHEAD As H1、XHEAD As H2 と別名に置き換えずにXPRTS.CODEに対してXHEAD.NAMEを
132
+
133
+ 結合するだけだと上手く抽出できています。
134
+
135
+ ```ここに言語を入力
136
+
137
+ strSQL = "select XPRTS.CODE,XHEAD.NAME,XPRTS.KCODE"
138
+
139
+ strSQL = strSQL & " from XPRTS"
140
+
141
+
142
+
143
+ strSQL = strSQL & " left join XHEAD on XPRTS.CODE = XHEAD.CODE"
144
+
145
+ ```
146
+
147
+ なので、ADODB.Connectionオブジェクトなどのコードに問題はないと思い、
148
+
149
+ 上記コードから省略しています。