セルに複数項目を出力するには2　

Function 内容作成(By Val ID AsObject) As Object
Dim cn As NewSqlConnection(ConfigurationManager.ConnectionStrings("xxxxxx").ToString())
cn.Open()
Dim 記事GET As NewSqlCommand("SELECT * FROM DB名 WHERE 文書ID=@p文書ID",cn)
Dim p文書ID As SqlParameter=記事GET.Parameters.Add("@p文書ID",Data.SqlDbType.Char,6)
p文書ID.Value=ID
Dim dr記事GET As SqlDataReader=記事GET.ExecuteReader()
Dim DataCnt As Integer=0
Dim 内容 As String=""
While dr記事GET.Read()
内容=Left(dr記事GET("内容"),50) & "・・・・"
内容 = 内容 & "＜div id=btn_naiyou＞＜ahref=blogsyousai.aspx?ID="&ID&"＞続きを読む＜/A＞＜/div＞"
End While
dr記事GET.Close()
cn.Close()
Return 内容
End Function

＜＞は全角です。コピペ後半角へ変換が必要です。

　
セルに複数項目を出力する



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

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