2 replies to this topic

[invictus]

tenho um bco de dados em access e preciso que seus registros sejam mostrados dentro de uma tabela.

tentei esse mas nao deu certo:

<%
      'abre a conexão com banco de dados
  set usuariosDB = server.CreateObject("ADODB.CONNECTION")
  conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../dados/almanaque.mdb")
      usuariosDB.Open ConStr
 
      set tableSet = Server.CreateObject("ADODB.RecordSet")
    tableSet.Open "tododiadata", usuariosDB, adOpenForwardOnly, adLockOptimistic, adCmdTable
%>
      <TR>           
<%      p_numberOfColumns = tableSet.fields.Count
        for x = 0 to (p_numberOfColumns - 1)  %>
            <TH><%= tableSet.Fields(x).Name %></TH>
<%      next  %>
    </TR>

<%    while not tableSet.EOF    %>
        <TR>
       
       
<%            for col = 1 to (p_numberofColumns-1)
%>                  <TD>
                      <%= tableSet.fields(col).Value %>
                        </TD>
<%            next  %>
        </TR>
<%        tableSet.MoveNext
      wend
    tableSet.Close
%>

  </TABLE>
  <br>
 
<% 

  usuariosDB.Close
    set usuariosDB = Nothing
end if
%>

[Rodrigo]

qual erro da ?

[invictus]

meu funcionar funciona, mas sei lá por que a 1ª coluna do meu bco de dados foi "comida", isto é, não aparece