回答編集履歴
5
再編集
answer
CHANGED
|
@@ -12,6 +12,6 @@
|
|
|
12
12
|
値をいれる必要があります。
|
|
13
13
|
|
|
14
14
|
cm.Parameters.Add("@syukkinJikan", oleDBtype.DBTime).Value = syukkinjikan
|
|
15
|
-
'DateTime.
|
|
15
|
+
'DateTime.syukkinjikan.toString("hhmmss")
|
|
16
16
|
cm.Parameters.Add("@hiduke", oleDBtype.DBDate).Value = hiduke
|
|
17
17
|
'DateTime.hiduke.toString("yyyymmdd")
|
4
再編集
answer
CHANGED
|
@@ -11,6 +11,7 @@
|
|
|
11
11
|
ここでスカラ変数(@syukkinjikanと@hiduke)を宣言しているので
|
|
12
12
|
値をいれる必要があります。
|
|
13
13
|
|
|
14
|
-
cm.Parameters.Add("@syukkinJikan", oleDBtype.
|
|
14
|
+
cm.Parameters.Add("@syukkinJikan", oleDBtype.DBTime).Value = syukkinjikan
|
|
15
15
|
'DateTime.hiduke.toString("hhmmss")
|
|
16
|
-
cm.Parameters.Add("@hiduke", oleDBtype.
|
|
16
|
+
cm.Parameters.Add("@hiduke", oleDBtype.DBDate).Value = hiduke
|
|
17
|
+
'DateTime.hiduke.toString("yyyymmdd")
|
3
再編集
answer
CHANGED
|
@@ -12,5 +12,5 @@
|
|
|
12
12
|
値をいれる必要があります。
|
|
13
13
|
|
|
14
14
|
cm.Parameters.Add("@syukkinJikan", oleDBtype.DBDate).Value = syukkinjikan
|
|
15
|
-
'DateTime.hiduke.toString("
|
|
15
|
+
'DateTime.hiduke.toString("hhmmss")
|
|
16
16
|
cm.Parameters.Add("@hiduke", oleDBtype.DBTime).Value = hiduke 'DateTime.hiduke.toString("yyyymmdd")
|
2
再編集
answer
CHANGED
|
@@ -6,17 +6,11 @@
|
|
|
6
6
|
追記
|
|
7
7
|
|
|
8
8
|
実データがわからないのでエスパー返信します。
|
|
9
|
-
syukkinjikan = "08:16:17"
|
|
10
|
-
hiduke = "2021-04-23"
|
|
11
|
-
と仮定します。
|
|
12
|
-
DataTime ではありません、
|
|
13
|
-
DateTime です。
|
|
14
9
|
|
|
15
10
|
Dim cm As New OleDbCommand("UPDATE table2 Set [出勤時間(時)] = @syukkinJikan where 日付 = @hiduke")
|
|
16
11
|
ここでスカラ変数(@syukkinjikanと@hiduke)を宣言しているので
|
|
17
12
|
値をいれる必要があります。
|
|
18
13
|
|
|
19
|
-
cm.Parameters.Add("@syukkinJikan", oleDBtype.
|
|
14
|
+
cm.Parameters.Add("@syukkinJikan", oleDBtype.DBDate).Value = syukkinjikan
|
|
15
|
+
'DateTime.hiduke.toString("yyyymmdd")
|
|
20
|
-
cm.Parameters.Add("@hiduke", oleDBtype.
|
|
16
|
+
cm.Parameters.Add("@hiduke", oleDBtype.DBTime).Value = hiduke 'DateTime.hiduke.toString("yyyymmdd")
|
|
21
|
-
|
|
22
|
-
区切り文字(: or -)は都度修正してください。
|
1
4/23 追記
answer
CHANGED
|
@@ -1,4 +1,22 @@
|
|
|
1
1
|
スカラ変数が代入されてないからでは？
|
|
2
2
|
|
|
3
3
|
cm.Parameters.Add("@syukkinJikan", oleDBtype.DateTime).Value = __DateTime__
|
|
4
|
-
cm.Parameters.Add("@hiduke", OleDBtype.DateTime).Value = __DateTime__
|
|
4
|
+
cm.Parameters.Add("@hiduke", OleDBtype.DateTime).Value = __DateTime__
|
|
5
|
+
|
|
6
|
+
追記
|
|
7
|
+
|
|
8
|
+
実データがわからないのでエスパー返信します。
|
|
9
|
+
syukkinjikan = "08:16:17"
|
|
10
|
+
hiduke = "2021-04-23"
|
|
11
|
+
と仮定します。
|
|
12
|
+
DataTime ではありません、
|
|
13
|
+
DateTime です。
|
|
14
|
+
|
|
15
|
+
Dim cm As New OleDbCommand("UPDATE table2 Set [出勤時間(時)] = @syukkinJikan where 日付 = @hiduke")
|
|
16
|
+
ここでスカラ変数(@syukkinjikanと@hiduke)を宣言しているので
|
|
17
|
+
値をいれる必要があります。
|
|
18
|
+
|
|
19
|
+
cm.Parameters.Add("@syukkinJikan", oleDBtype.DateTime).Value = Datetime.syukkinjikan.ToString("HH:mm:ss")
|
|
20
|
+
cm.Parameters.Add("@hiduke", oleDBtype.DateTime).Value = DateTime.hiduke.ToString("yyyy-MM-dd")
|
|
21
|
+
|
|
22
|
+
区切り文字(: or -)は都度修正してください。
|