O exemplo neste artigo descreve o método do VB que retorna resultados do conjunto de registros para tabelas HTML. Compartilhe com todos para sua referência. O método de implementação específico é o seguinte:
função ReturnHTMLTable (query) set rs = cn.Execute (query) rs.MoveFirst resposta.Write "<tabledata"" cols=""" & rs.Fields.Count & """>" resposta.Write "<tr>" Para cada oField em rs.Fields response.Write "<th>" & oField.Name & "</th>" Próxima resposta.Write "</tr>" Do While Not rs.EOF resposta.Write "<tr>" para cada oField em rs.Fields resposta.Write "<td>" If IsNull(oField) Então resposta.Write " " Else resposta.Write oField.Value End If resposta.Write " </td>" Próximo rs.MoveNext resposta.Write "</tr>" Loop resposta.Write "</table>"função final
Espero que este artigo seja útil para a programação VB de todos.