1．どのような掲示板を作成するか

2．投稿フォームの作成
3．投稿内容をファイルに書き込む
4．投稿内容を表示

5．DBにテーブルを作成
6．DBに投稿内容を書き込む
7．DBの内容を表示
8．Repeaterコントロールの配置
9．Repeaterで投稿内容を表示

10．その他の処理（aspx側）
11．その他の処理（vb側）

12．足りない処理

13.削除ボタンの追加

トップ

13．削除ボタンの追加＠ASP.Netで掲示板を作成しよう

Repeaterに削除ボタンを追加します。
投稿Noをラベルコントロールに配置する様に変更します。

削除ボタンの処理を記述します。
reapeaterのItemCommandをハンドルします。
e.Item.Controls(1)にて、削除ボタンが押された投稿Noのラベルが取得できます。
取得した投稿Noを元に削除SQL文を発行します。

投稿、削除が正常に行われているのかを確認します。

●aspx

<ItemTemplate> <div style='padding:5px;border-color:#cccccc;border-width:1px;border-style:solid;width:500px;background:#F7F7F7;'> <B> <asp:Label ID="noItemLbl" runat="server" Text=<%#DataBinder.Eval(Container.DataItem, "NoItem")%>></asp:Label> ：<%#DataBinder.Eval(Container.DataItem, "titleItem")%></B> &nbsp;&nbsp;<%# DataBinder.Eval(Container.DataItem, "nameItem") %> （<%# DataBinder.Eval(Container.DataItem, "createDateItem") %>） <br /> <%# DataBinder.Eval(Container.DataItem, "commentItem") %> <br /> <asp:Button ID="del" runat="server" Text="　削除　" OnClientClick="return confirm('削除しますか？');" /> </div> </ItemTemplate>

●vb

Protected Sub repeater1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.RepeaterCommandEventArgs) Handles repeater1.ItemCommand Dim dbcon As SqlConnection Dim dbcmd As SqlCommand Dim dbResult As Integer Dim sqlStr As String Dim sqlUrl As String Dim no As Label '選択された投稿を削除 Try '選択されたNoを取得 no = e.Item.Controls(1) '接続文字列 sqlUrl = "data source=(local)\SQLEXPRESS;initial catalog=COCOADB;user id=sa;password=sa;persist security info=True;packet size=4096" 'ＤＢコネクション作成 dbcon = New SqlConnection(sqlUrl) 'DB接続 dbcon.Open() 'SQL文 sqlStr = "DELETE FROM BBS WHERE NO = @NO" 'ＳＱＬコマンド作成 dbcmd = New SqlCommand(sqlStr, dbcon) 'パレメータセット Dim p1 As SqlParameter = New SqlParameter("@NO", CInt(no.Text)) dbcmd.Parameters.Add(p1) 'ＳＱＬ文実行 dbResult = dbcmd.ExecuteNonQuery() 'クローズ処理 dbcmd.Dispose() dbcon.Close() dbcon.Dispose() '投稿内容表示 Me.bbsdisp() '投稿メッセージ表示 Me.msgLbl.Text = "削除しました。" '投稿項目初期化 Me.initDisp() Catch ex As Exception Me.msgLbl.Text = ex.Message Exit Sub Finally dbcmd = Nothing dbcon = Nothing End Try End Sub