質問編集履歴
1
コメントを元にコードを書き変え
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -24,6 +24,7 @@
|
|
|
24
24
|
Dim msg As String 'MsgBox
|
|
25
25
|
Dim ret As String '戻り値
|
|
26
26
|
Dim sql As String 'sql
|
|
27
|
+
Dim Command As String
|
|
27
28
|
|
|
28
29
|
'確認する
|
|
29
30
|
msg = "このデータを削除しますか？"
|
|
@@ -35,8 +36,12 @@
|
|
|
35
36
|
Exit Sub
|
|
36
37
|
End If
|
|
37
38
|
|
|
39
|
+
'SqlConnection.CreateCommand Method
|
|
40
|
+
dbCon.CreateCommand
|
|
41
|
+
dbCmd.CommandText = strSQL
|
|
42
|
+
|
|
38
43
|
' 登録するSQL文を作る
|
|
39
|
-
|
|
44
|
+
sql = "DELETE FROM MST_HAIZOKU WHERE"
|
|
40
45
|
|
|
41
46
|
' 実行する
|
|
42
47
|
dbCon.Execute (sql)
|
|
@@ -57,4 +62,11 @@
|
|
|
57
62
|
Me.Hide
|
|
58
63
|
|
|
59
64
|
End Sub
|
|
60
|
-
```
|
|
65
|
+
```
|
|
66
|
+
|
|
67
|
+
'SqlConnection.CreateCommand Method
|
|
68
|
+
dbCon.CreateCommand
|
|
69
|
+
dbCmd.CommandText = strSQL
|
|
70
|
+
|
|
71
|
+
メソッドでコマンドのインスタンスっていうのはどうすればよいのでしょうか？
|
|
72
|
+
JavaならNewをするような認識なのですが、、
|