回答編集履歴
1
selectの*が無かったので追加。あと補足。
answer
CHANGED
|
@@ -10,12 +10,12 @@
|
|
|
10
10
|
```
|
|
11
11
|
を
|
|
12
12
|
```
|
|
13
|
-
SQL.CommandText = "select from SJOYC_STF"
|
|
13
|
+
SQL.CommandText = "select * from SJOYC_STF"
|
|
14
14
|
Dim dr As SqlClient.SqlDataReader
|
|
15
15
|
dr = SQL.ExecuteReader()
|
|
16
16
|
dr.Read()
|
|
17
17
|
Form1.Text = dr("STF_FNAME")
|
|
18
|
-
|
|
18
|
+
dr.Close()
|
|
19
19
|
```
|
|
20
20
|
これでForm1のタイトルバーに文字が入るか？
|
|
21
21
|
|
|
@@ -29,4 +29,18 @@
|
|
|
29
29
|
|
|
30
30
|
|
|
31
31
|
|
|
32
|
-
また、ManagemntStudioでselect @@Versionで実行するとSQLServerのバージョンを確認できます。
|
|
32
|
+
また、ManagemntStudioでselect @@Versionで実行するとSQLServerのバージョンを確認できます。
|
|
33
|
+
|
|
34
|
+
### 追加
|
|
35
|
+
> 他のメソッドでは、まったく同じ接続文字列を使用してデータベースからテーブルを取得して表示ができている
|
|
36
|
+
|
|
37
|
+
であるならForm1.db_connection(1)あたりが正しく入っていれば問題無さそうですね。
|
|
38
|
+
読み込みの所、*が無かったので申し訳ありません。selectでは問題なくデータが読めますか？
|
|
39
|
+
このdeleteメソッド内で行って見てください。他とは同じ事をしているように見えても実は何か
|
|
40
|
+
delete()メソッド内だけ何かあるのかもしれません。sqlconnectionや接続文字列、sqlcommandなどをこのメソッド内で宣言しているので。
|
|
41
|
+
|
|
42
|
+
あと、以下の様にNewを付けないと`オブジェクト参照がオブジェクト インスタンスに設定されていません。`と言うエラーがSQL.Connection = Cnで出ませんか？
|
|
43
|
+
```
|
|
44
|
+
'Dim SQL As SqlClient.SqlCommand
|
|
45
|
+
Dim SQL As New SqlClient.SqlCommand()
|
|
46
|
+
```
|