Das Beispiel in diesem Artikel beschreibt die Methode, mit der VB Recordset-Ergebnisse an HTML-Tabellen zurückgibt. Teilen Sie es als Referenz mit allen. Die spezifische Implementierungsmethode ist wie folgt:
function ReturnHTMLTable(query) set rs = cn.Execute(query) rs.MoveFirst Response.Write "<tabledata"" cols=""" & rs.Fields.Count & """>" Response.Write "<tr>" Für jedes oField in rs.Fields Antwort.Schreiben Sie „<th>“ & oField.Name & „</th>“ Nächste Antwort.Schreiben Sie „</tr>“ Do While Not rs.EOF Response.Write „<tr>“ für jedes oField in rs.Fields Response.Write „<td>“ If IsNull(oField) Then Response.Write „ „ Else Response.Write oField.Value End If Response.Write „ </td>“ Nächste rs.MoveNext Antwort.Write „</tr>“ Schleifenantwort.Write „</table>“Endfunktion
Ich hoffe, dass dieser Artikel für die VB-Programmierung aller hilfreich sein wird.