Devo fare un programma che mi estrapoli dei valori in una tabella SQL
il codice che ho usato è questo come devo fare considerando che con una query sql ci riesco. Ringazio tutti coloro che potranno darmi un aiuto, vi allego il codice che uso io
<HTML>
<HEAD>
<TITLE>Risultato</TITLE>
</HEAD>
<BODY>
<%
'Recupera i dati dal form
Dim WEEK,TC,PL
WEEK=request.form("WEEK")
TC=request.form("TC")
PL=request.form("PL")
'Controllo spazi vuoti form
if WEEK="" then WEEK="%"
'Definisco l'istruzione SQL
Dim sql
sql="select * from Delivered_Weekly_Data where titolo like '%"&week&"%' and TC like '%"&TC&"%' and PL like '%"&PL&"%'"
'*Connessione al database*
' dichiaro la variabile che conterrà l'oggetto Connection
Dim OBJdbConnection
'creo l'oggetto Connection
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
'apro la connessione con la fonte di dati
OBJdbConnection.Open("Provider = SQLOLEDB.1;Persist Security Info=False;User Id=sa; Initial Catalog= Scorecards; Data Source = mant18")
'Leggo il Record set
Set RS = Server.CreateObject("ADODB.Recordset")
'Eseguo la query contenuta nella variabile sql
Set RS=OBJdbConnection.Execute(sql)%>
<%
' Generazione della tabella in Html
response.write ("<center><h2>Risultato Ricerca</h2></center>
<table border=1><tr><td>Week</td><td align=center>TC</td><td>PL</td><td>PL</td></tr>")
%>
<%Do while NOT RS.EOF%>
<TR>
<td><%response.write (RS("WEEK"))
WEEK=rs("WEEK")%></td>
<td><%response.write(RS("TC"))
TC=rs("TC")%></td>
<td><%response.write(RS("PL"))
PL=rs("PL")%></td>
</TR>
<%
RS.MoveNext
Loop
RS.Close
OBJdbConnection.Close%>
</table>
</BODY>
</HTML>
Rispondi quotando
