この記事の例では、VB がレコードセットの結果を HTML テーブルに返す方法について説明します。皆さんの参考に共有してください。具体的な実装方法は以下の通りです。
function ReturnHTMLTable(query) set rs = cn.Execute(query) rs.MoveFirst response.Write "<tabledata""cols=""" & rs.Fields.Count & """>" response.Write "<tr>" rs.Fields の各 oField の応答。「<th>」 & oField.Name & "</th>" 次の応答。「</tr>」を書き込みます。Do While Not rs.EOF response.Write "<tr>" For each oField In rs.Fields response.Write "<td>" If IsNull(oField) then response.Write " " Else response.Write oField.Value End If response.Write " </td>" 次の rs.MoveNext 応答.Write "</tr>" ループ応答.Write "</table>"end 関数
この記事が皆様の VB プログラミングのお役に立てれば幸いです。