El ejemplo de este artículo describe el método mediante el cual VB devuelve resultados de conjuntos de registros a tablas HTML. Compártelo con todos para tu referencia. El método de implementación específico es el siguiente:
función ReturnHTMLTable(consulta) set rs = cn.Execute(query) rs.MoveFirst respuesta.Escribir "<tabledata"" cols=""" & rs.Fields.Count & """>" respuesta.Escribir "<tr>" Para cada oField en la respuesta de rs.Fields. Escriba "<th>" & oField.Name & "</th>" Siguiente respuesta. Escriba "</tr>" Hacer mientras no rs.EOF respuesta.Escriba "<tr>" para cada campo en rs.Fields respuesta.Escriba "<td>" Si es nulo (oField) Entonces respuesta.Escriba " " De lo contrario, respuesta.Escriba oField.Value Finalice si respuesta.Escriba " </td>" Siguiente rs.MoveNext respuesta.Escribir "</tr>" Respuesta de bucle.Escribir "</table>"función final
Espero que este artículo sea útil para la programación VB de todos.