質問編集履歴
9
更新
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -65,4 +65,4 @@
|
|
|
65
65
|
|
|
66
66
|
追記
|
|
67
67
|
DBはPostgresです。
|
|
68
|
-
完成イメージ図のA,B,Cはセル結合されるものであり、Dのみ単体です。
|
|
68
|
+
完成イメージ図のAの３の行はA,B,Cはセル結合されるものであり、Dのみ単体です。
|
8
更新
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -59,4 +59,10 @@
|
|
|
59
59
|
|:--|:--:|--:|
|
|
60
60
|
|1|100|test||
|
|
61
61
|
|2|111|data||
|
|
62
|
+
|3|200|aaa|AAA|
|
|
62
|
-
|3|200|aaa|BBB|
|
|
63
|
+
|3|200|aaa|BBB|
|
|
64
|
+
|
|
65
|
+
|
|
66
|
+
追記
|
|
67
|
+
DBはPostgresです。
|
|
68
|
+
完成イメージ図のA,B,Cはセル結合されるものであり、Dのみ単体です。
|
7
追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -42,8 +42,8 @@
|
|
|
42
42
|
２つ目のSELECT文実行時の取得されるデータ
|
|
43
43
|
|ID|result|
|
|
44
44
|
|:--:|--:|
|
|
45
|
-
|200|
|
|
45
|
+
|200|AAA|
|
|
46
|
-
|200|
|
|
46
|
+
|200|BBB|
|
|
47
47
|
|
|
48
48
|
|
|
49
49
|
１つ目のSELECT文実行後のExcelシート
|
|
@@ -59,4 +59,4 @@
|
|
|
59
59
|
|:--|:--:|--:|
|
|
60
60
|
|1|100|test||
|
|
61
61
|
|2|111|data||
|
|
62
|
-
|3|200|aaa|
|
|
62
|
+
|3|200|aaa|BBB|
|
6
追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -39,7 +39,13 @@
|
|
|
39
39
|
恐らくB行のデータを空の行までループして値を取得→１つ目のSQLで取得しB行に表示されているIDを２つ目のSQLで取得したIDが同一かのチェックの実装→同一であれば紐づいたIDと同じ行にデータを繋げる
|
|
40
40
|
の実装かなとは思っています。
|
|
41
41
|
|
|
42
|
+
２つ目のSELECT文実行時の取得されるデータ
|
|
43
|
+
|ID|result|
|
|
44
|
+
|:--:|--:|
|
|
45
|
+
|200|aaa|
|
|
46
|
+
|200|bbb|
|
|
42
47
|
|
|
48
|
+
|
|
43
49
|
１つ目のSELECT文実行後のExcelシート
|
|
44
50
|
|A|B(ID)|C(name)|
|
|
45
51
|
|:--|:--:|--:|
|
5
更新
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -25,7 +25,7 @@
|
|
|
25
25
|
・２つ目のSQL
|
|
26
26
|
Dim SQL As String
|
|
27
27
|
Set myRS2 = New ADODB.Recordset
|
|
28
|
-
SQL = "SELECT ID,
|
|
28
|
+
SQL = "SELECT ID, RESULT FROM test INNER JOIN ~~ WHERE ~~ "
|
|
29
29
|
myRS2.ActiveConnection = myCon
|
|
30
30
|
myRS2.Source = SQL
|
|
31
31
|
|
|
@@ -39,6 +39,15 @@
|
|
|
39
39
|
恐らくB行のデータを空の行までループして値を取得→１つ目のSQLで取得しB行に表示されているIDを２つ目のSQLで取得したIDが同一かのチェックの実装→同一であれば紐づいたIDと同じ行にデータを繋げる
|
|
40
40
|
の実装かなとは思っています。
|
|
41
41
|
|
|
42
|
+
|
|
43
|
+
１つ目のSELECT文実行後のExcelシート
|
|
44
|
+
|A|B(ID)|C(name)|
|
|
45
|
+
|:--|:--:|--:|
|
|
46
|
+
|1|100|test|
|
|
47
|
+
|2|111|data|
|
|
48
|
+
|3|200|aaa|
|
|
49
|
+
|
|
50
|
+
|
|
42
51
|
完成イメージ図
|
|
43
52
|
|A|B(ID)|C(name)|D(result)|
|
|
44
53
|
|:--|:--:|--:|
|
4
更新
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -18,14 +18,14 @@
|
|
|
18
18
|
myCon.Open DSN=DB接続情報
|
|
19
19
|
|
|
20
20
|
・１つ目のSQL
|
|
21
|
-
|
|
21
|
+
SQL = "SELECT ID, NAME FROM test INNER JOIN ~~ WHERE ~~"
|
|
22
22
|
～～～ExcelシートのB行にID、C行にNameの書き込みの処理～～～
|
|
23
23
|
|
|
24
24
|
|
|
25
25
|
・２つ目のSQL
|
|
26
26
|
Dim SQL As String
|
|
27
27
|
Set myRS2 = New ADODB.Recordset
|
|
28
|
-
SQL = SELECT
|
|
28
|
+
SQL = "SELECT ID, result FROM test INNER JOIN ~~ WHERE ~~ "
|
|
29
29
|
myRS2.ActiveConnection = myCon
|
|
30
30
|
myRS2.Source = SQL
|
|
31
31
|
|
|
@@ -42,6 +42,6 @@
|
|
|
42
42
|
完成イメージ図
|
|
43
43
|
|A|B(ID)|C(name)|D(result)|
|
|
44
44
|
|:--|:--:|--:|
|
|
45
|
-
|1|100|test|
|
|
45
|
+
|1|100|test||
|
|
46
|
-
|2|111|data|
|
|
46
|
+
|2|111|data||
|
|
47
47
|
|3|200|aaa|resultdata|
|
3
更新
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -37,4 +37,11 @@
|
|
|
37
37
|
|
|
38
38
|
|
|
39
39
|
恐らくB行のデータを空の行までループして値を取得→１つ目のSQLで取得しB行に表示されているIDを２つ目のSQLで取得したIDが同一かのチェックの実装→同一であれば紐づいたIDと同じ行にデータを繋げる
|
|
40
|
-
の実装かなとは思っています。
|
|
40
|
+
の実装かなとは思っています。
|
|
41
|
+
|
|
42
|
+
完成イメージ図
|
|
43
|
+
|A|B(ID)|C(name)|D(result)|
|
|
44
|
+
|:--|:--:|--:|
|
|
45
|
+
|1|100|test| 空文字 |
|
|
46
|
+
|2|111|data| 空文字 |
|
|
47
|
+
|3|200|aaa|resultdata|
|
2
追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -36,5 +36,5 @@
|
|
|
36
36
|
```
|
|
37
37
|
|
|
38
38
|
|
|
39
|
-
恐らくB行のデータを空の行までループして値を取得→IDを２つ目のSQLで取得したIDが同一かのチェックの実装→同一であれば紐づいたIDと同じ行にデータを繋げる
|
|
39
|
+
恐らくB行のデータを空の行までループして値を取得→１つ目のSQLで取得しB行に表示されているIDを２つ目のSQLで取得したIDが同一かのチェックの実装→同一であれば紐づいたIDと同じ行にデータを繋げる
|
|
40
40
|
の実装かなとは思っています。
|
1
追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -25,7 +25,7 @@
|
|
|
25
25
|
・２つ目のSQL
|
|
26
26
|
Dim SQL As String
|
|
27
27
|
Set myRS2 = New ADODB.Recordset
|
|
28
|
-
|
|
28
|
+
SQL = SELECT文
|
|
29
29
|
myRS2.ActiveConnection = myCon
|
|
30
30
|
myRS2.Source = SQL
|
|
31
31
|
|