質問編集履歴

4

SQLのみも補足に追加しておきました。

2020/05/15 22:42

投稿

ataru2222
ataru2222

スコア272

test CHANGED
File without changes
test CHANGED
@@ -98,6 +98,12 @@
98
98
 
99
99
 
100
100
 
101
+
102
+
103
+
104
+
105
+
106
+
101
107
  ### 補足・現在使っているDB
102
108
 
103
109
  現在使用しているのはAccessDB(2013)ですが、
@@ -106,4 +112,26 @@
106
112
 
107
113
 
108
114
 
115
+ SQLのみ表示
116
+
117
+ ```SQL
118
+
119
+ INSERT INTO 本日の予想と結果(日付け,安値予想,高値予想,安値結果,高値結果,差,勢い)
120
+
121
+ SELECT T1.日付け,Cint(Nz(T2.安値,T3.安値)*10*0.99) / 10 AS 安値予想,
122
+
123
+ Cint(Nz(T2.高値,T3.高値)*10*0.99) / 10 AS 高値予想, T1.安値 AS 安値結果,
124
+
125
+ T1.高値 AS 高値結果, (T1.高値 - T1.安値) AS 差,
126
+
127
+ SWITCH( 差 >= 3 , '高' ,差 >= 2 , '中' ,差 >= 1 , '並' ,差 < 1 ,'低' ) AS 勢い
128
+
129
+ FROM (ドル円 AS T1 LEFT JOIN ドル円 AS T2 ON T1.日付け = (T2.日付け + 1))
130
+
131
+ LEFT JOIN ドル円 AS T3 ON T1.日付け = (T3.日付け + 3)
132
+
133
+ ```
134
+
135
+
136
+
109
137
  よろしくお願いいたします。

3

タグにaccessを追加

2020/05/15 22:42

投稿

ataru2222
ataru2222

スコア272

test CHANGED
File without changes
test CHANGED
@@ -48,7 +48,7 @@
48
48
 
49
49
 
50
50
 
51
- ### 該当のソースコード
51
+ ### 該当のソースコード(サンプル)
52
52
 
53
53
 
54
54
 

2

バージョンを書き忘れたので追加しました。

2020/05/15 22:14

投稿

ataru2222
ataru2222

スコア272

test CHANGED
File without changes
test CHANGED
@@ -100,7 +100,7 @@
100
100
 
101
101
  ### 補足・現在使っているDB
102
102
 
103
- 現在使用しているのはAccessDBですが、
103
+ 現在使用しているのはAccessDB(2013)ですが、
104
104
 
105
105
  もしもSQL文の実行順序に違いがあるようでしたら、そこについても知りたいです。
106
106
 

1

コードをSQLのみに切り取り

2020/05/15 22:04

投稿

ataru2222
ataru2222

スコア272

test CHANGED
File without changes
test CHANGED
@@ -52,13 +52,9 @@
52
52
 
53
53
 
54
54
 
55
- ```ここに言語名を入力
55
+ ```SQL
56
-
57
- Sub todays_Click()
58
56
 
59
57
 
60
-
61
- Dim strSQL As String
62
58
 
63
59
  strSQL = "INSERT INTO 本日の予想と結果(" & _
64
60
 
@@ -98,10 +94,16 @@
98
94
 
99
95
 
100
96
 
101
- CurrentDb.Execute (strSQL)
97
+ ```
102
98
 
103
99
 
104
100
 
105
- End Sub
101
+ ### 補足・現在使っているDB
106
102
 
103
+ 現在使用しているのはAccessDBですが、
104
+
105
+ もしもSQL文の実行順序に違いがあるようでしたら、そこについても知りたいです。
106
+
107
+
108
+
107
- ```
109
+ よろしくお願いいたします。