Creazione tabella e collegamento a database

[davide1983]

Ciao a tutti. Devo creare una tabella con 4 campi (data, luogo, evento, note) in cui ci saranno 20 righe (quindi venti eventi visualizzabili). Tutti gli eventi saranno inseriti in un database access. Il mio problema è visualizzare in una tabella il contenuto delle celle del database.

Ad esempio:

<table border="1">

'intestazione tabella

<tr>
<td>data</td>
<td>luogo</td>
<td>evento</td>
<td>note</td>
</tr>

'da qui in poi devo visualizzare i risultati contenuti nel db

<%
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver(*.mdb)};dbq="&_
Server.MapPath("mdb-database/eventi.mdb")
%>

<tr>
<td>data presa dal db</td>
<td>luogo preso dal db</td>
<td>evento preso dal db</td>
<td>note preso dal db</td>
</tr>

</table>


mi date qualche dritta please?

[davide1983]

Dimenticavo, per il tipo di sito che sto facendo ho definito come linguaggio VBscript

[michele.santoro]

Devi prima fare la connessione al database, poi aprirla e fare la sql, quindi estrarre i recordset presenti nel database spostandoti tra i record con MoveNext.
Es::

<%
	' Connessione al database
	dim Conn

Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mdb-database\db.mdb")

%>

<%
	set cn = server.CreateObject("Adodb.Connection")
	set rs = server.CreateObject("Adodb.Recordset")
	cn.Open conn

rs.open "Select * From eventi", cn
%>


 
</p>
  <table width="44%" border=1 cellpadding=1 cellspacing=1 bordercolor="#000000">
    <tr bgcolor="#CCCCCC"> 
      <td width="4%" align="center"><font face="Tahoma" size="2">data</font></td>
      <td width="4%" align="center"><font face="Tahoma" size="2">luogo</font></td>
      <td width="4%" align="center"><font face="Tahoma" size="2">Evento</font></td>
      <td width="4%" align="center"><font face="Tahoma" size="2">note</font></td>
    </tr>
    <%
    while not rs.EOF
	%>
    <tr> 
      <td><font face="Tahoma" size="2"><%=rs.Fields("data")%></font></td>
      <td><font face="Tahoma" size="2"><%=rs.Fields("luogo")%></font></td>
      <td><font face="Tahoma" size="2"><%=rs.Fields("Evento")%></font></td>
      <td><font face="Tahoma" size="2"><%=rs.Fields("note")%></font></td>
    </tr>
    <%
    rs.MoveNext
   wend
  
%>
  </table>

Dove il database si chiama "db.mdb", la tabella "eventi" e i campi sono quelli che hai detto tu.
Prova!

[davide1983]

GRANDISSIMO!!!!!!!!!!!!!!!!!!1


Grazie, è proprio ciò che cercavo

[davide1983]

Avrei ancora una domanda in merito. Sarebbe possibile effettuare anche un ordinamento per data decrescente? In modo tale da avere sempre al primo posto l'evento più recente?

Thanks

[davide1983]

Sono riuscito!!

rs.open "Select * From eventi ORDER BY data DESC", cn

[davide1983]

Solo un ultima informazione. Come mai anche impostando la larghezza delle colonne se il testo è troppo lungo non va a capo ma allunga la colonna?

[michele.santoro]

Se il testo troppo lungo non va a capo allarga la colonna e non l'allunga. La colonna si allarga fino a che le altre occupano lo spazio di cui necessitano. Se vuoi che il testo vada a capo dopo tot caratteri prova a mettere i valori della larghezza delle colonne in pixel e non in percentuale. Oppure aumenta il valore della percentuale.

[davide1983]

Si io li ho già messi in pixel perchè mi trovo meglio rispetto alla percentuale...ma non va a capo comunque...