質問編集履歴
1
コード一部修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -29,7 +29,7 @@
|
|
|
29
29
|
Dim cnAccess As OleDbConnection = New OleDbConnection()
|
|
30
30
|
|
|
31
31
|
'SQL、更新
|
|
32
|
-
Dim cm As New OleDb.OleDbCommand("UPDATE
|
|
32
|
+
Dim cm As New OleDb.OleDbCommand("UPDATE table2 (Set [出勤時間(時)] = :11 where 日付 = :1", cnAccess)
|
|
33
33
|
|
|
34
34
|
'作成した接続文字列を設定
|
|
35
35
|
cnAccess.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database2.mdb"
|