質問編集履歴
2
ソースコードを元に戻す
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"
|
|
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
ソースコードを変更しました
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
|
|
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
|
|