データベースを更新するためのこのコードがありますが、正しいデータで実行すると、エラーなしで実行されますが、データベースは更新されません
Dim conn As New SqlClient.SqlConnection(My.Resources.conn_str)
Dim SQL As String = "Update vehicle SET make=@make,reg_no=@reg_no,model=@model,year=@year,type=@type,last_service=@last_service Where (id = @id)"
conn.Open()
Try
Dim cmd As New SqlClient.SqlCommand(SQL, conn)
Try
cmd.Parameters.AddWithValue("@make", strMake)
cmd.Parameters.AddWithValue("@reg_no", strRegnNum)
cmd.Parameters.AddWithValue("@model", strModel)
cmd.Parameters.AddWithValue("@year", intYear)
cmd.Parameters.AddWithValue("@type", strType)
cmd.Parameters.AddWithValue("@last_service", LastService)
cmd.Parameters.AddWithValue("@id", ID.ToString)
cmd.ExecuteNonQuery()
cmd.Dispose()
Catch ex As Exception
Return ex.Message
End Try
Catch ex As Exception
Return ex.Message
Finally
conn.Dispose()
End Try
エラーメッセージが表示されないので、機能しない理由を誰か助けてもらえますか?
ありがとう
EDIT私はcmd.ExecuteNonQuery()を
Dim intAffected As Integer = cmd.ExecuteNonQuery()
Debug.Print(intaffected)
出力ウィンドウに1が表示されます