質問編集履歴
5
デバッガ結果の相違について補足を行いました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -92,6 +92,8 @@
|
|
|
92
92
|
|
|
93
93
|
SQLite error (1): near "on": syntax error
|
|
94
94
|
|
|
95
|
+
※VALUES前とon前のスペースは、空いている・空いていない版の両方を試しましたが、結果は同じでした。
|
|
96
|
+
|
|
95
97
|
```
|
|
96
98
|
|
|
97
99
|
ご存じの方、ご指導のほど、よろしくお願いいたします。
|
4
誤字修正のみです。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -88,7 +88,7 @@
|
|
|
88
88
|
|
|
89
89
|
```
|
|
90
90
|
|
|
91
|
-
StrSQLString
|
|
91
|
+
StrSQLString = INSERT INTO test_aggregate(delivery_date,product_type,stock_A,stock_B,stock_C,stock_D,stock_E) VALUES('2020-08-03','aaa',0,0,0,0,0) on CONFLICT(delivery_date,product_type) DO UPDATE SET stock_A = 0, stock_B = 0, stock_C = 0, stock_D = 0, stock_E = 1
|
|
92
92
|
|
|
93
93
|
SQLite error (1): near "on": syntax error
|
|
94
94
|
|
3
デバッガでVBコード内のSQL文の変数の中身を確認し、追記しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -84,6 +84,14 @@
|
|
|
84
84
|
|
|
85
85
|
視認性をよくするために改行を行っている以外は完全にコピペです。)
|
|
86
86
|
|
|
87
|
+
- デバッガで見た、strSQLStringの中身
|
|
87
88
|
|
|
89
|
+
```
|
|
90
|
+
|
|
91
|
+
StrSQLString4 = INSERT INTO test_aggregate(delivery_date,product_type,stock_A,stock_B,stock_C,stock_D,stock_E) VALUES('2020-08-03','aaa',0,0,0,0,0) on CONFLICT(delivery_date,product_type) DO UPDATE SET stock_A = 0, stock_B = 0, stock_C = 0, stock_D = 0, stock_E = 1
|
|
92
|
+
|
|
93
|
+
SQLite error (1): near "on": syntax error
|
|
94
|
+
|
|
95
|
+
```
|
|
88
96
|
|
|
89
97
|
ご存じの方、ご指導のほど、よろしくお願いいたします。
|
2
追記依頼があった部分を記述しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -80,7 +80,9 @@
|
|
|
80
80
|
|
|
81
81
|
- DB browser for SQLiteのコンソール(SQL実行タブ)で上記strSQLstring内のupsert文を実行し、問題なく処理された。
|
|
82
82
|
|
|
83
|
+
(実際には、DB browserで通ったSQL文を、VBのコードで文字列として再度記述しています。
|
|
83
84
|
|
|
85
|
+
視認性をよくするために改行を行っている以外は完全にコピペです。)
|
|
84
86
|
|
|
85
87
|
|
|
86
88
|
|
1
本質問に関係ない変数の宣言文が含まれていたので削除しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -46,7 +46,7 @@
|
|
|
46
46
|
|
|
47
47
|
```
|
|
48
48
|
|
|
49
|
-
Dim DT As DataTable
|
|
49
|
+
Dim DT As DataTable
|
|
50
50
|
|
|
51
51
|
Dim StrSQLString As String = String.Empty
|
|
52
52
|
|