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

編集履歴

質問編集履歴

2

ソースコードを元に戻す

2021/04/20 05:54

投稿

rarara_123
rarara_123

スコア11

test CHANGED
File without changes
test CHANGED
@@ -66,7 +66,69 @@
66
66
 
67
67
  'SQL、更新
68
68
 
69
- Dim cm As New OleDbCommand("UPDATE table2 Set [出勤時間(時)] = @syukkinJikan where 日付 = @hiduke", cnAccess)
69
+ Dim cm As New OleDbCommand("UPDATE table2 Set [出勤時間(時)] = @syukkinJikan where 日付 = @hiduke")
70
+
71
+
72
+
73
+
74
+
75
+ '作成した接続文字列を設定
76
+
77
+ cnAccess.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database2.mdb"
78
+
79
+
80
+
81
+ 'Access接続開始
82
+
83
+ cnAccess.Open()
84
+
85
+
86
+
87
+ 'SQL文の実行
88
+
89
+ cm.ExecuteNonQuery()
90
+
91
+
92
+
93
+ '終了
94
+
95
+ command.Dispose()
96
+
97
+ cnAccess.Close()
98
+
99
+ ```
100
+
101
+
102
+
103
+ 別のソースコードではエラーになりませんでした。
104
+
105
+ 下記は別のソースコードです。
106
+
107
+ ```
108
+
109
+ Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
110
+
111
+
112
+
113
+ 'Access接続準備
114
+
115
+ Dim command As New OleDbCommand
116
+
117
+ Dim cnAccess As OleDbConnection = New OleDbConnection()
118
+
119
+
120
+
121
+
122
+
123
+ 'SQL文作成
124
+
125
+ Dim cm As New OleDbCommand("INSERT INTO table2 (
126
+
127
+ 日付,[出勤時間(時)],[出勤時間(分)],[退勤時間(時)],[退勤時間(分)],給料)
128
+
129
+ VALUES(@hiduke,@syukkinJikan,@syukkinHun,@taikinJikan,@taikinHun,@TextBox2.Text)", cnAccess)
130
+
131
+
70
132
 
71
133
 
72
134
 
@@ -86,6 +148,8 @@
86
148
 
87
149
 
88
150
 
151
+
152
+
89
153
  '作成した接続文字列を設定
90
154
 
91
155
  cnAccess.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database2.mdb"
@@ -110,84 +174,6 @@
110
174
 
111
175
  cnAccess.Close()
112
176
 
113
- ```
114
-
115
-
116
-
117
- 別のソースコードではエラーになりませんでした。
118
-
119
- 下記は別のソースコードです。
120
-
121
- ```
122
-
123
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
124
-
125
-
126
-
127
- 'Access接続準備
128
-
129
- Dim command As New OleDbCommand
130
-
131
- Dim cnAccess As OleDbConnection = New OleDbConnection()
132
-
133
-
134
-
135
-
136
-
137
- 'SQL文作成
138
-
139
- Dim cm As New OleDbCommand("INSERT INTO table2 (
140
-
141
- 日付,[出勤時間(時)],[出勤時間(分)],[退勤時間(時)],[退勤時間(分)],給料)
142
-
143
- VALUES(@hiduke,@syukkinJikan,@syukkinHun,@taikinJikan,@taikinHun,@TextBox2.Text)", cnAccess)
144
-
145
-
146
-
147
-
148
-
149
- 'パラメーター化
150
-
151
- cm.Parameters.Add(New OleDbParameter("@hiduke", hiduke))
152
-
153
- cm.Parameters.Add(New OleDbParameter("@syukkinJikan", syukkinJikan))
154
-
155
- cm.Parameters.Add(New OleDbParameter("@syukkinHun", syukkinHun))
156
-
157
- cm.Parameters.Add(New OleDbParameter("@taikinJikan", taikinJikan))
158
-
159
- cm.Parameters.Add(New OleDbParameter("@taikinHun", taikinHun))
160
-
161
- cm.Parameters.Add(New OleDbParameter("@TextBox2.Text", TextBox2.Text))
162
-
163
-
164
-
165
-
166
-
167
- '作成した接続文字列を設定
168
-
169
- cnAccess.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database2.mdb"
170
-
171
-
172
-
173
- 'Access接続開始
174
-
175
- cnAccess.Open()
176
-
177
-
178
-
179
- 'SQL文の実行
180
-
181
- cm.ExecuteNonQuery()
182
-
183
-
184
-
185
- '終了
186
-
187
- command.Dispose()
188
-
189
- cnAccess.Close()
190
-
191
177
 
192
178
 
193
179
  ```

1

ソースコードを変更しました

2021/04/20 05:54

投稿

rarara_123
rarara_123

スコア11

test CHANGED
File without changes
test CHANGED
@@ -64,9 +64,25 @@
64
64
 
65
65
 
66
66
 
67
- 'SQL、更新
67
+ 'SQL、更新
68
-
68
+
69
- Dim cm As New OleDb.OleDbCommand("UPDATE tables Set [出勤時間(時)] = @syukkinJikan where 日付 = @hiduke")
69
+ Dim cm As New OleDbCommand("UPDATE table2 Set [出勤時間(時)] = @syukkinJikan where 日付 = @hiduke", cnAccess)
70
+
71
+
72
+
73
+ 'パラメーター化
74
+
75
+ cm.Parameters.Add(New OleDbParameter("@hiduke", hiduke))
76
+
77
+ cm.Parameters.Add(New OleDbParameter("@syukkinJikan", syukkinJikan))
78
+
79
+ cm.Parameters.Add(New OleDbParameter("@syukkinHun", syukkinHun))
80
+
81
+ cm.Parameters.Add(New OleDbParameter("@taikinJikan", taikinJikan))
82
+
83
+ cm.Parameters.Add(New OleDbParameter("@taikinHun", taikinHun))
84
+
85
+ cm.Parameters.Add(New OleDbParameter("@TextBox2.Text", TextBox2.Text))
70
86
 
71
87
 
72
88