6．DBに投稿内容を書き込む＠ASP.Netで掲示板を作成しよう

6．DBに投稿内容を書き込む＠ASP.Netで掲示板を作成しよう

テーブルを作成したので、DBに投稿内容を書き込みます。

aspx側は変更の必要はないです。
vb側の投稿ボタン処理を変更します。

投稿ボタンクリックにおいて、テーブルに書き込みを行う処理を書きます。
SqlConnectionを利用して、DBに接続を行います。
SQL文（INSERT文)を作成します。
SqlCommandとSqlParameterを利用しています。
ExecuteNonQueryを実行して、SQL文の実行を行います。

DBを確認して、テーブルに投稿データが格納されているのを確認します。

●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)
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",
System.DateTime.Now)
dbcmd.Parameters.Add(p4)

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

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

End Sub
End Class