7．DBの内容を表示＠ASP.Netで掲示板を作成しよう

7．DBの内容を表示＠ASP.Netで掲示板を作成しよう

DBの内容を表示します。
aspx側の変更はありません。

bbsdispを作成します。
DBに接続し、SQL文を発行します。
結果をStringに結合し、ラベルに表示します。

bbsdispをページロード、投稿ボタン処理に追加します。
ページロード時、もしくは投稿ボタンクリック時に、
テーブルの内容が表示されるのを確認します。

●vb

Imports System.Data.SqlClient

Partial Class SampleBBS_bbs
Inherits System.Web.UI.Page

'投稿ボタンクリック処理
Protected Sub tkuBtn_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles tkuBtn.Click

Dim dbcon As SqlConnection
Dim dbcmd As SqlCommand
Dim dbResult As Integer

Dim sqlStr As String
Dim sqlUrl As String

'接続文字列
sqlUrl = "data source=(local)\SQLEXPRESS;initial
catalog=DB;user id=id;password=pass;persist security info=True;packet
size=4096"

'ＤＢコネクション作成
dbcon = New SqlConnection(sqlUrl)

'DB接続
dbcon.Open()

'SQL文
sqlStr = "INSERT INTO BBS(NAME,TITLE,COMMENT,CREATEDATE)
VALUES(@NAME,@TITLE,@COMMENT,@CREATEDATE)"

'ＳＱＬコマンド作成
dbcmd = New SqlCommand(sqlStr, dbcon)

'パレメータセット
Dim p1 As SqlParameter = New SqlParameter("@NAME", Me.nameTxt.Text)
dbcmd.Parameters.Add(p1)

Dim p2 As SqlParameter = New SqlParameter("@TITLE",
Me.titleTxt.Text)
dbcmd.Parameters.Add(p2)

Dim p3 As SqlParameter = New SqlParameter("@COMMENT",
Me.commentTxt.Text)
dbcmd.Parameters.Add(p3)

Dim p4 As SqlParameter = New SqlParameter("@CREATEDATE",
Me.commentTxt.Text)
dbcmd.Parameters.Add(p4)

'ＳＱＬ文実行
dbResult = dbcmd.ExecuteNonQuery()

'クローズ処理
dbcmd.Dispose()
dbcon.Close()
dbcon.Dispose()

'投稿内容表示
bbsdisp()

End Sub

'ページロード時の処理
Protected Sub Page_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
If Not IsPostBack Then
'投稿内容表示
bbsdisp()
End If
End Sub

Protected Sub bbsdisp()
Dim dbcon As SqlConnection
Dim dbcmd As SqlCommand
Dim dataRead As SqlDataReader

Dim sqlStr As String
Dim sqlUrl As String

'接続文字列
sqlUrl = "data source=(local)\SQLEXPRESS;initial
catalog=DB;user id=id;password=pass;persist security info=True;packet
size=4096"

'ＤＢコネクション作成
dbcon = New SqlConnection(sqlUrl)

'DB接続
dbcon.Open()

'SQL文
sqlStr = "SELECT * FROM BBS ORDER BY NO DESC"

'ＳＱＬコマンド作成
dbcmd = New SqlCommand(sqlStr, dbcon)

'ＳＱＬ文実行
dataRead = dbcmd.ExecuteReader()

'結果を読み込み
Dim bbsStr As String = ""
While (dataRead.Read())
bbsStr += CStr(dataRead("NO"))
bbsStr += dataRead("NAME")
bbsStr += dataRead("TITLE")
bbsStr += dataRead("COMMENT")
bbsStr += CSTR(dataRead("CREATEDATE"))
End While

'ラベルに表示
Me.bbsLbl.Text = bbsStr

'クローズ処理
dataRead.Close()
dbcmd.Dispose()
dbcon.Close()
dbcon.Dispose()
End Sub
End Class