回答編集履歴
1
selectの*が無かったので追加。あと補足。
test
CHANGED
@@ -22,7 +22,7 @@
|
|
22
22
|
|
23
23
|
```
|
24
24
|
|
25
|
-
SQL.CommandText = "select from SJOYC_STF"
|
25
|
+
SQL.CommandText = "select * from SJOYC_STF"
|
26
26
|
|
27
27
|
Dim dr As SqlClient.SqlDataReader
|
28
28
|
|
@@ -32,7 +32,7 @@
|
|
32
32
|
|
33
33
|
Form1.Text = dr("STF_FNAME")
|
34
34
|
|
35
|
-
|
35
|
+
dr.Close()
|
36
36
|
|
37
37
|
```
|
38
38
|
|
@@ -61,3 +61,31 @@
|
|
61
61
|
|
62
62
|
|
63
63
|
また、ManagemntStudioでselect @@Versionで実行するとSQLServerのバージョンを確認できます。
|
64
|
+
|
65
|
+
|
66
|
+
|
67
|
+
### 追加
|
68
|
+
|
69
|
+
> 他のメソッドでは、まったく同じ接続文字列を使用してデータベースからテーブルを取得して表示ができている
|
70
|
+
|
71
|
+
|
72
|
+
|
73
|
+
であるならForm1.db_connection(1)あたりが正しく入っていれば問題無さそうですね。
|
74
|
+
|
75
|
+
読み込みの所、*が無かったので申し訳ありません。selectでは問題なくデータが読めますか?
|
76
|
+
|
77
|
+
このdeleteメソッド内で行って見てください。他とは同じ事をしているように見えても実は何か
|
78
|
+
|
79
|
+
delete()メソッド内だけ何かあるのかもしれません。sqlconnectionや接続文字列、sqlcommandなどをこのメソッド内で宣言しているので。
|
80
|
+
|
81
|
+
|
82
|
+
|
83
|
+
あと、以下の様にNewを付けないと`オブジェクト参照がオブジェクト インスタンスに設定されていません。`と言うエラーがSQL.Connection = Cnで出ませんか?
|
84
|
+
|
85
|
+
```
|
86
|
+
|
87
|
+
'Dim SQL As SqlClient.SqlCommand
|
88
|
+
|
89
|
+
Dim SQL As New SqlClient.SqlCommand()
|
90
|
+
|
91
|
+
```
|