teratail
回答率
85.47%
質問するログイン新規登録
トップVisual Studioに関する質問ExecuteNonQuery: Connection プロパティは初期化されていません

編集履歴

回答編集履歴

5

再編集

2021/04/23 06:45

投稿

MasayaIshihara
MasayaIshihara

スコア21

test CHANGED
@@ -26,7 +26,7 @@
26
26
 
27
27
  cm.Parameters.Add("@syukkinJikan", oleDBtype.DBTime).Value = syukkinjikan
28
28
 
29
- 'DateTime.hiduke.toString("hhmmss")
29
+ 'DateTime.syukkinjikan.toString("hhmmss")
30
30
 
31
31
  cm.Parameters.Add("@hiduke", oleDBtype.DBDate).Value = hiduke
32
32
 

4

再編集

2021/04/23 06:44

投稿

MasayaIshihara
MasayaIshihara

スコア21

test CHANGED
@@ -24,8 +24,10 @@
24
24
 
25
25
 
26
26
 
27
- cm.Parameters.Add("@syukkinJikan", oleDBtype.DBDate).Value = syukkinjikan
27
+ cm.Parameters.Add("@syukkinJikan", oleDBtype.DBTime).Value = syukkinjikan
28
28
 
29
29
  'DateTime.hiduke.toString("hhmmss")
30
30
 
31
- cm.Parameters.Add("@hiduke", oleDBtype.DBTime).Value = hiduke 'DateTime.hiduke.toString("yyyymmdd")
31
+ cm.Parameters.Add("@hiduke", oleDBtype.DBDate).Value = hiduke
32
+
33
+ 'DateTime.hiduke.toString("yyyymmdd")

3

再編集

2021/04/23 06:43

投稿

MasayaIshihara
MasayaIshihara

スコア21

test CHANGED
@@ -26,6 +26,6 @@
26
26
 
27
27
  cm.Parameters.Add("@syukkinJikan", oleDBtype.DBDate).Value = syukkinjikan
28
28
 
29
- 'DateTime.hiduke.toString("yyyymmdd")
29
+ 'DateTime.hiduke.toString("hhmmss")
30
30
 
31
31
  cm.Parameters.Add("@hiduke", oleDBtype.DBTime).Value = hiduke 'DateTime.hiduke.toString("yyyymmdd")

2

再編集

2021/04/23 06:41

投稿

MasayaIshihara
MasayaIshihara

スコア21

test CHANGED
@@ -14,16 +14,6 @@
14
14
 
15
15
  実データがわからないのでエスパー返信します。
16
16
 
17
- syukkinjikan = "08:16:17"
18
-
19
- hiduke = "2021-04-23"
20
-
21
- と仮定します。
22
-
23
- DataTime ではありません、
24
-
25
- DateTime です。
26
-
27
17
 
28
18
 
29
19
  Dim cm As New OleDbCommand("UPDATE table2 Set [出勤時間(時)] = @syukkinJikan where 日付 = @hiduke")
@@ -34,10 +24,8 @@
34
24
 
35
25
 
36
26
 
37
- cm.Parameters.Add("@syukkinJikan", oleDBtype.DateTime).Value = Datetime.syukkinjikan.ToString("HH:mm:ss")
27
+ cm.Parameters.Add("@syukkinJikan", oleDBtype.DBDate).Value = syukkinjikan
38
28
 
39
- cm.Parameters.Add("@hiduke", oleDBtype.DateTime).Value = DateTime.hiduke.ToString("yyyy-MM-dd")
29
+ 'DateTime.hiduke.toString("yyyymmdd")
40
30
 
41
-
42
-
43
- 区切り文字(: or -)は都度修正してください。
31
+ cm.Parameters.Add("@hiduke", oleDBtype.DBTime).Value = hiduke 'DateTime.hiduke.toString("yyyymmdd")

1

4/23　追記

2021/04/23 06:40

投稿

MasayaIshihara
MasayaIshihara

スコア21

test CHANGED
@@ -5,3 +5,39 @@
5
5
  cm.Parameters.Add("@syukkinJikan", oleDBtype.DateTime).Value = __DateTime__
6
6
 
7
7
  cm.Parameters.Add("@hiduke", OleDBtype.DateTime).Value = __DateTime__
8
+
9
+
10
+
11
+ 追記
12
+
13
+
14
+
15
+ 実データがわからないのでエスパー返信します。
16
+
17
+ syukkinjikan = "08:16:17"
18
+
19
+ hiduke = "2021-04-23"
20
+
21
+ と仮定します。
22
+
23
+ DataTime ではありません、
24
+
25
+ DateTime です。
26
+
27
+
28
+
29
+ Dim cm As New OleDbCommand("UPDATE table2 Set [出勤時間(時)] = @syukkinJikan where 日付 = @hiduke")
30
+
31
+ ここでスカラ変数(@syukkinjikanと@hiduke)を宣言しているので
32
+
33
+ 値をいれる必要があります。
34
+
35
+
36
+
37
+ cm.Parameters.Add("@syukkinJikan", oleDBtype.DateTime).Value = Datetime.syukkinjikan.ToString("HH:mm:ss")
38
+
39
+ cm.Parameters.Add("@hiduke", oleDBtype.DateTime).Value = DateTime.hiduke.ToString("yyyy-MM-dd")
40
+
41
+
42
+
43
+ 区切り文字(: or -)は都度修正してください。