Cerco in voi l'ultimo aiuto. Ho scaricato dall'area download un file in as che mi permetta di leggere il file del database...tutto bene apro la pagine e leggo perfettamente il database in TUTTI i suoi campi.....
adesso viene il problema:
Il file che si visualizza legge dei dati sensibili relativi a persone luoghi ecc..ecc..QUINDI deisderavo visualizzare il contenuto del file dati.mdb con la condizione però di visualizzare alcuni campi ed altri no..ad esempio: visualizzare l'uscita del mezzo di soccorso, il codice di uscita del mezzo, il numero del servizio....ed altro.....vorrei però escludere il NOME, il COGNOME..ecc...ecc..
Ultimissima cosa.....vi posto il codice che ho scaricato e che mi fa visualizzare tutto il database.....:
<html>
<head>
<title>Dati Volontari</title>
<style type="text/css">
<!--
.Stile2 {
font-size: 8px;
font-family: Verdana, Arial, Helvetica, sans-serif;
}
.Stile3 {
font-size: 10px;
font-weight: bold;
font-family: Verdana, Arial, Helvetica, sans-serif;
}
body,td,th {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: medium;
}
.Stile4 {
font-size: 10px;
font-family: Verdana, Arial, Helvetica, sans-serif;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body class="Stile2">
<%
'Stringa per la connessione
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/dati.mdb")
'creazione connessione
Set objConn=Server.CreateObject("ADODB.Connection")
'apertura connessione
objConn.Open cString
'creazione recordset
Set rs = Server.CreateObject("ADODB.Recordset")
nometabella="ANAGRAFICA_VOLONTARI" ' inserisci qui il nome della tabella da vedere
'query sql
sql = "select * from "&nometabella&""
'apertura recordset
rs.Open sql, objConn, 3, 3
if rs.eof then 'se il recordset è vuoto.....
%>
<center><table border="0" width="80%">
<tr>
<td align="center"><b class="Stile3">Niente dati[/b]</td>
</tr>
</table>
</center>
<%
else 'se invece il recordset contiene dei dati.....
%>
<center><table border="0" width="80%">
<tr>
<td align="center"><b class="Stile3">Questa è la tabella <%=nometabella%>[/b]</td>
</tr>
</table>
<table border="1" cellspacing='0' cellpadding='2' width="80%">
<tr>
<%
For Each campo in rs.Fields ' per ogni campo presente nel database ....
%>
<td align='center'><div align="left" class="Stile3"><%=campo.name%>
</div></td>
<%
Next
%>
</tr>
<%
do until rs.eof ' per tutti i records ...
For Each campo in rs.Fields '... scrivo di ogni campo ...
%>
<td class="Stile4"> <%=campo.value%> </td>
<%
next
%>
</tr>
<%
rs.movenext
loop
%>
</table>
</center>
<p class="Stile2">
<%
end if
'chiusura e distruzione recordset
rs.close
set rs=nothing
'chiusura e distruzione connessione
objConn.close
set objconn=nothing
%>
</p>
</body>
</html>
Attendo un Vostro gradito riscontro......Lifeonline
Rispondi quotando
