I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
perla0279
perla0279
il 24 agosto 2006 alle 22:25
10 messaggi dal 24 agosto 2006
Ciao
sono alle prime armi con la costruzione di un database.
Ho inserito la seguente stringa.......che ovviamente non funziona.


code:
--------------------------------------------------------------------------------

<div id="Layer1" style="position:absolute; left:300px; top:151px; width:501px; height:193px; z-index:1">
<%
Dim connSet conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/db1.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT top 15 * from tabella1 order by id")
Do While NOT objRs.EOF
<table width="500" height="108" border="1"> <tr>
<td width="117"> </h5>response.write "foto = " & objRs("foto")</td> <td width="179"></h5>response.write "nome sito = " & objRs("nome sito")</td>
<td width="182"> </h5>response.write "descrizione = " & objRs("descrizione")</td> </tr>
</table>
Conn.Close Set Conn=Nothing
%>
</div>

--------------------------------------------------------------------------------

Volevo effetuare la connesione al database e far apparire all'interno della tabella i record indicati.

Grazie
Elena
RispondiQuoting
scarface
scarface
il 25 agosto 2006 alle 11:46
25 messaggi dal 13 agosto 2005
prova così:
<div id="Layer1" style="position:absolute; left:300px; top:151px; width:501px; height:193px; z-index:1"> 
<% 
Dim conn
Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/db1.mdb") 
Set objRs = Server.CreateObject("ADODB.Recordset") 
set objRs = objConn.Execute("SELECT top 15 * from tabella1 order by id") 
Do While NOT objRs.EOF 
response.write "<table width=""500"" height=""108"" border=""1""> <tr>" 
response.write "<h5><td width=""117""> </h5>"
response.write "<h5>foto = " & objRs("foto")&"</td> <td width=""179""></h5>"
response.write "<h5>nome sito = " & objRs("nome sito")&"</td></h5>" 
response.write "<h5><td width=""182""> </h5>"
response.write "<h5>descrizione = " & objRs("descrizione")&"</td> </tr></h5>" 
response.write "</table>" 
loop
Conn.Close 
Set Conn=Nothing 
%> 
</div>
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.