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

編集履歴

質問編集履歴

2

ソースコードを元に戻す

2021/04/20 05:54

投稿

rarara_123
rarara_123

スコア11

title CHANGED
File without changes
body CHANGED
@@ -32,15 +32,8 @@
32
32
  Dim cnAccess As OleDbConnection = New OleDbConnection()
33
33
 
34
34
  'SQL、更新
35
- Dim cm As New OleDbCommand("UPDATE table2 Set [出勤時間(時)] = @syukkinJikan where 日付 = @hiduke", cnAccess)
35
+ Dim cm As New OleDbCommand("UPDATE table2 Set [出勤時間(時)] = @syukkinJikan where 日付 = @hiduke")
36
36
 
37
- 'パラメーター化
38
- cm.Parameters.Add(New OleDbParameter("@hiduke", hiduke))
39
- cm.Parameters.Add(New OleDbParameter("@syukkinJikan", syukkinJikan))
40
- cm.Parameters.Add(New OleDbParameter("@syukkinHun", syukkinHun))
41
- cm.Parameters.Add(New OleDbParameter("@taikinJikan", taikinJikan))
42
- cm.Parameters.Add(New OleDbParameter("@taikinHun", taikinHun))
43
- cm.Parameters.Add(New OleDbParameter("@TextBox2.Text", TextBox2.Text))
44
37
 
45
38
  '作成した接続文字列を設定
46
39
  cnAccess.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database2.mdb"

1

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

2021/04/20 05:54

投稿

rarara_123
rarara_123

スコア11

title CHANGED
File without changes
body CHANGED
@@ -31,9 +31,17 @@
31
31
  Dim command As OleDbCommand
32
32
  Dim cnAccess As OleDbConnection = New OleDbConnection()
33
33
 
34
- 'SQL、更新
34
+ 'SQL、更新
35
- Dim cm As New OleDb.OleDbCommand("UPDATE tables Set [出勤時間(時)] = @syukkinJikan where 日付 = @hiduke")
35
+ Dim cm As New OleDbCommand("UPDATE table2 Set [出勤時間(時)] = @syukkinJikan where 日付 = @hiduke", cnAccess)
36
36
 
37
+ 'パラメーター化
38
+ cm.Parameters.Add(New OleDbParameter("@hiduke", hiduke))
39
+ cm.Parameters.Add(New OleDbParameter("@syukkinJikan", syukkinJikan))
40
+ cm.Parameters.Add(New OleDbParameter("@syukkinHun", syukkinHun))
41
+ cm.Parameters.Add(New OleDbParameter("@taikinJikan", taikinJikan))
42
+ cm.Parameters.Add(New OleDbParameter("@taikinHun", taikinHun))
43
+ cm.Parameters.Add(New OleDbParameter("@TextBox2.Text", TextBox2.Text))
44
+
37
45
  '作成した接続文字列を設定
38
46
  cnAccess.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database2.mdb"
39
47