Este código ler a tabela do banco de dados e exibe o conteúdo numa tabela criada automaticamente com formatação dos campos numéricos, vazios e tipo texto.
O usuário não precisa se preocupar com a quantidade de colunas. Ainda destaca as linhas intercalando com cores distintas.
Excelente dica e perfeitamente aplicável às suas aplicações…
<%Response.Charset="ISO-8859-1"%>
<%
Set cnn = Server.CreateObject( "adodb.Connection" )
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("bco_testes.mdb") &";"
Set rsDADOS = Server.CreateObject("ADODB.RecordSet")
tabela = "tb_dados"
sql = "SELECT * from " & tabela
SET rstemp = Server.CreateObject("Adodb.recordset")
rstemp.CursorLocation=3
rstemp.Open SQL, cnn
total = rstemp.recordcount
campos=rstemp.fields.count -1
if not rstemp.eof Then
x=0
response.write "Total de registros " & total & "
"
response.write ""
FOR i=0 to campos
response.write "" & rstemp(i).name & " "
NEXT
DO UNTIL rstemp.eof
if (x mod 2 = 0) then
response.write " "
else
response.write " "
end if
FOR i = 0 to campos
fieldvalue=rstemp(i)
If trim(fieldvalue)="" THEN
fieldvalue=" "
else
If IsNumeric(fieldvalue) Then
response.write "" & FormatNumber(fieldvalue,0)
else
response.write " " & fieldvalue
End if
end if
response.write " "
next
response.write " "
x=x+1
rstemp.movenext
LOOP
response.write "
"
Else
response.write "Tabela sem dados"
End if
rstemp.close
cnn.close
Set cnn=nothing
%>
