info su visualizzazione record database

**gianfrancolosanno** · 27-04-2009, 09:06

Salve a tutti ho il seguente codice

<%
Dim Conn
Set Conn = Server.CreateObject(”ADODB.Connection”)

conn.Open “driver={Microsoft Access Driver (*.mdb)};dbq=” & server.mappath(”database/link.mdb”)
Dim rs
Set rs = Server.CreateObject(”ADODB.Recordset”)
rs.Open “select * from link order by id DESC”, conn
Do while NOT RS.EOF
%>

<%
Dim descrizione
descrizione=rs(”descrizione”)
response.write(descrizione)
%>

<%
Dim link
link=rs(”link”)
%>

” target=”_blank”><% response.write(link) %>
</p>
<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing
%>

visualizzo i campi di un database in questo modo
1
2
3
4
5
6
7
8
9
10

ma quello che vorrei è fare in modo che i campi vengano visualizzati in questo modo:

1 2 3 4 5
6 7 8 9 10

grazie mille

**michele.santoro** · 27-04-2009, 10:28

Devi fare la paginazione, se cerchi sul forum trovi diversi esempi.
Comunque puoi provare ad esempio a fare così:

codice:

<%@ LANGUAGE = "VBScript"%>
<%
' IMPOSTO IL NUMERO DELLE COLONNE CHE POSSO VARIARE A PIACERE
Dim num
num="5"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("link.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT * from link ")

Response.Write "<html><body>"            
      
' SE CI SONO RECORD NEL DATABASE
          If Not objrs.EOF Then

         
' APRO LA TABELLA E IMPOSTO LA LARGHEZZA AL 100%
' quindi la moltiplico per il numero delle colonne per ottenere la larghezza giusta
' in questo modo aumentando o diminuendo il num delle colonne la tabella si adatterà
' al nuovo numero di celle.

            Response.Write"<table border=1 width=100%*num align=center>"
            numeroColonne = 0
            
' CONTO I RECORDSET FINO ALLA FINE
             Do Until objrs.EOF
            If numeroColonne Mod num = 0 Then
				
				If numeroColonne <> 0 Then Response.Write"</tr>"
	%>			
<%
Dim link
link=objrs("link")
%>
<td><% response.write(link) %> </td>
<%
				Else
				%>
<td><% response.write(link) %> </td>
				
<%				End If
				
' PASSO ALLA COLONNA SUCCESSIVA
				numeroColonne = numeroColonne + 1
               
' RECORDSET SUCCESSIVO
             objrs.MoveNext

            Loop
            
' CHIUDO LA TABELLA
            Response.Write"</tr></table>"
            
' CHIUDO IL RECORDSET
            objrs.Close
            Set objrs = Nothing
         Else 

 'SE NON CI SONO RECORDS SCRIVE UN MESSAGGIO
            Response.Write"IL DATABASE NON CONTIENE RECORD!"
        
         End If

      Response.Write "</body></html>"
   
 'CHIUDO LA CONNESSIONE AL DATABASE
      objconn.Close
   Set objconn = Nothing
%>

provalo, non l'ho provato!

**gianfrancolosanno** · 27-04-2009, 22:31

ciao e grazie per l'aiuto...

la paginazione a 5 colonne funziona il problema però è che mi visualizza sulla prima riga sempre il primoo campo del database mentre sulla seconda riga l'ultimo campo..

cosa c'è che non va???

grazie

**michele.santoro** · 28-04-2009, 00:21

Ti avevo detto che non l'avevo provato.
Questo dovrebbe funzionare:

codice:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("link.mdb")

SQL="SELECT * FROM link"
Set rs=Server.CreateObject("ADODB.Recordset")
Set rs=Conn.Execute(SQL)

dim i, n
' Stabilisco il numero delle n colonne
n=5
i=0
%>
<table cellpadding="2" cellspacing="2" border="0" width="100%">
<%
while not rs.eof

if i=0 then
%>
<tr>
<%
end if
i=i+1
%>
<td>"><%=rs("link")%></td>
<%
if i=n then
%>
</tr>
<%
i=0
end if

rs.movenext
wend
%>
</table>

fai sapere

Discussione: info su visualizzazione record database

Strumenti discussione

Ricerca discussione

Visualizza

info su visualizzazione record database

Permessi di invio