動的な配列コントロール3  次の文書

動的な配列コントロール1~5で完結します。


Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub

Private Sub コメント親cntGET()

Dim cn As New SqlConnection(ConfigurationManager.ConnectionStrings("LocalSqlServer").ToString())
cn.Open()

Dim コメント親GET As New SqlCommand("SELECT count(コメント) FROM DB_TBL_コメント親 WHERE ブログID=@pブログID and 削除=@p削除 ", cn)
Dim pブログID As SqlParameter = コメント親GET.Parameters.Add("@pブログID", Data.SqlDbType.Char, 6)
Dim p削除 As SqlParameter = コメント親GET.Parameters.Add("@p削除", Data.SqlDbType.Char, 1)
pブログID.Value = ブログIDRQ
p削除.Value = "0"
Dim drコメント親 As SqlDataReader = コメント親GET.ExecuteReader()

コメント親cnt = 0
While drコメント親.Read()
コメント親cnt = drコメント親.Item(0)
End While

drコメント親.Close()

cn.Close()
End Sub

Function コメント子GET(Wコメント親ID)
Dim cn As New SqlConnection(ConfigurationManager.ConnectionStrings("LocalSqlServer").ToString())
cn.Open()

Dim WorkArea As String = ""
Dim DataCnt As Integer = 0

Dim コメント子GETM As New SqlCommand("SELECT * FROM DB_TBL_コメント子 WHERE コメント親ID=@pコメント親ID and 削除=@p削除 ORDER BY 登録日 desc ,登録時間 desc", cn)
Dim pコメント親ID As SqlParameter = コメント子GETM.Parameters.Add("@pコメント親ID", Data.SqlDbType.Char, 6)
Dim p削除 As SqlParameter = コメント子GETM.Parameters.Add("@p削除", Data.SqlDbType.Char, 1)
pコメント親ID.Value = Wコメント親ID
p削除.Value = "0"
Dim drコメント子M As SqlDataReader = コメント子GETM.ExecuteReader()

While drコメント子M.Read()
DataCnt = DataCnt + 1
WorkArea = WorkArea & drコメント子M("コメント子ID") & " "
WorkArea = WorkArea & drコメント子M("登録日") & " "
WorkArea = WorkArea & drコメント子M("名前") & " "
WorkArea = WorkArea & drコメント子M("コメント") & "<BR>"
End While

drコメント子M.Close()
cn.Close()
Return WorkArea

End Function


 
TBLの構造



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)