L'exemple de cet article décrit la méthode par laquelle VB renvoie les résultats du jeu d'enregistrements aux tableaux HTML. Partagez-le avec tout le monde pour votre référence. La méthode spécifique de mise en œuvre est la suivante :
function ReturnHTMLTable(query) set rs = cn.Execute(query) rs.MoveFirst réponse.Write "<tabledata"" cols=""" & rs.Fields.Count & """>" réponse.Write "<tr>" Pour chaque oField dans rs.Fields réponse.Écrivez "<th>" & oField.Name & "</th>" Réponse suivante.Écrivez "</tr>" Do While Not rs.EOF réponse.Écrivez "<tr>" Pour chaque champ oDans rs.Fields réponse.Écrivez "<td>" Si IsNull(oField) Alors réponse.Écrivez " " Sinon réponse.Écrivez oField.Value Fin si réponse.Écrivez " </td>" Réponse suivante rs.MoveNext.Ecriture "</tr>" Réponse en boucle.Ecriture "</table>"fonction de fin
J'espère que cet article sera utile à la programmation VB de chacun.