【急募】VB.NETにてSQLのDELETE文を実行してもデータが削除されません・・・。

Question

現在、VB.NETにてアプリを作成しております。
そこでデータベースに接続し、指定の行を削除するSQL文を実行しているのですが、コンパイルエラー無しで実行が完了します。

がしかし、データベースからデータが削除されません。
ソースコードの内容にも問題が見つからず、どうにか救いの手を差し伸べていただけますと幸いです。

「実際のソースコード」


```
Private Sub deleteAdd()

        Try

            Dim empList As New ArrayList
            Dim empName As New ArrayList
            Dim St As String
            Dim Cn As New System.Data.SqlClient.SqlConnection
            Dim SQL As SqlClient.SqlCommand

            Dim ServerName As String = Form1.db_connection(1) 'サーバー名(またはIPアドレス)
            Dim DatabaseName As String = Form1.db_connection(2) 'データベース
            Dim Integrated_Security As String = Form1.db_connection(3) 'セキュリティコード

            St = "Server=" & ServerName & ";Initial Catalog=" & DatabaseName & ";Integrated Security=" & Integrated_Security & ";"

            Cn.ConnectionString = St
            Cn.Open()

            SQL = Cn.CreateCommand
            SQL.Connection = Cn
            SQL.CommandType = CommandType.Text

            SQL.CommandText = "DELETE FROM SJOYC_STF WHERE STF_FNAME = '" & TextBox1.Text & "'"

            SQL.ExecuteNonQuery()

            SQL.Dispose()
            Cn.Close()
            Cn.Dispose()

            TextBox1.Text = ""


        Catch ex As Exception

            MsgBox("データベースへの接続に失敗しました。", MsgBoxStyle.Exclamation)

        End Try

    End Sub

```

Answer

ｄｂｍｓの実行ログを確認してみてはどうでしょうか？それにより問題が解決されるかと思います。

Answer

```VB.NET
SQL.CommandText = "DELETE FROM SJOYC_STF WHERE STF_FNAME = '" & TextBox1.Text & "'"
```
TextBox1.Text の内容を表示してみては？
SJOYC_STF.STF_FNAME に存在しないデータだから、0件 DELETE の正常処理に1票。

Answer

> データベースへの接続に失敗しました　

のメッセージが出ていない事とtryの最後まで(TextBox.Text=""まで)処理が進んでもDeleteできないものとしてお答えします。

1.読み込みなどのSQLでは処理が実行されるか？
```
SQL.CommandText = "DELETE FROM SJOYC_STF WHERE STF_FNAME = '" & TextBox1.Text & "'"

SQL.ExecuteNonQuery()
```
を
```
SQL.CommandText = "select * from SJOYC_STF"
Dim dr As SqlClient.SqlDataReader
dr = SQL.ExecuteReader()
dr.Read()
Form1.Text = dr("STF_FNAME")
dr.Close()
```
これでForm1のタイトルバーに文字が入るか？
　
２．エラーメッセージが出ていないので接続はされていると思うのだけれども接続されているか？
Serverは、名前付きインスタンス`サーバー名\インスタンス名`または、既定のインスタンス`サーバー名`
と正しくなっているか？
ManagementStudioのオブジェクトエクスプローラー画像参照。サーバー名\SQLEXPRESSなど。
また、Server=ではなくData Source=と名前を変えてみる。
Integrated Securityは私の知識が無いのかもしれませんがセキュリティコードとは何でしょう？
ここに入る値は、trueまたはfalseまたはSSPIなどの文字と思われますがどうでしょうか？

![イメージ説明](b8d437af845a2bc3ad55a0e3d031dfa1.png)

また、ManagemntStudioでselect @@Versionで実行するとSQLServerのバージョンを確認できます。

### 追加
> 他のメソッドでは、まったく同じ接続文字列を使用してデータベースからテーブルを取得して表示ができている

であるならForm1.db_connection(1)あたりが正しく入っていれば問題無さそうですね。
読み込みの所、*が無かったので申し訳ありません。selectでは問題なくデータが読めますか？
このdeleteメソッド内で行って見てください。他とは同じ事をしているように見えても実は何か
delete()メソッド内だけ何かあるのかもしれません。sqlconnectionや接続文字列、sqlcommandなどをこのメソッド内で宣言しているので。

あと、以下の様にNewを付けないと`オブジェクト参照がオブジェクト インスタンスに設定されていません。`と言うエラーがSQL.Connection = Cnで出ませんか？
```
'Dim SQL As SqlClient.SqlCommand
Dim SQL As New SqlClient.SqlCommand()
```

Answer

単純にTextBox1.Textに入力された内容にマッチしないんでは？
空白が含まれるとか。（Trimしてないし）

---

コメントで書いたけど反応なくなったので、こっちに追記しておきます。（後で検索してきて同様の問題を解決したい人のために）

この手の問題での調査を行う場合、プログラム上にミスがあってSQLそのものが発行されていなかったり、発行されているSQLが想定していたものと違ったりするケースを真っ先に疑うべきだと思いますので、SQL Server Profilerを使ってDBMSに実際に発行されたSQLを確認するのは非常に有効な手段です。

SQL Server Profilerは[簡単に起動](https://docs.microsoft.com/ja-jp/sql/tools/sql-server-profiler/start-sql-server-profiler?view=sql-server-2017)できますし、数回クリックして必要なフィルタをかければ良いだけですので、使い方を覚えておいて損はありません。
（ただ、DBにそれなりに負荷をかけるケースがあり、本番環境で使ってえらい目にあった事例を聞いたことがあるので、あくまで開発時に使うツールだと思っておいた方が良いです）

Answer

COMMITしてみる。

追加

関連した質問