I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
Vic Mackey
Vic Mackey
il 22 novembre 2004 alle 11:09
15 messaggi dal 18 novembre 2004
ho realizzato la pagina asp con la select diretta della tabella Employees del database Northwind. Ho inserito le check box per prelevare i risultati e visualizzare i risultati in un'altra pagina, ma... il browser non mi visualizza alcun errore... mi restituisce una pagina bianca!!!

[ C O D E ]

<%@ Language=VBScript %>
<% Response.Buffer = True %>
<html>
<head>
<title>Check</title>
</head>
<body>

<%

' Creo l'oggetto connection
StrConnect = "driver={SQL Server};server=(local);uid=sa;pwd=;datab
ase=Northwind"

set objConn= Server.CreateObject("ADODB.Connection")
objConn.Open StrConnect

' Creo l'oggetto recordset
SET objRS = Server.CreateObject("ADODB.Recordset")

' Estraggo il recordset
strSQL = "SELECT * FROM Employees"
objRS.Open strSQL,objConn,1,1

Response.Write("Trovati: " & objRS.RecordCount & " record<br>")
%>

<form name="Form" method="post" action="elabora.asp">


<%

' Creo un ciclo di visulizzazione
WHILE NOT objRS.EOF%>
<input type="checkbox" name="chk" value="<%=objRS("EmployeeID")%>">
<% Response.Write ("ID:" & objRS("EmployeeID")&" - Cognome: " & objRS("LastName") & " - Nome: " & objRS("FirstName")&"<br>")
objRS.MoveNext
WEND

' Chiudo e libero gli oggetti
objRS.Close
SET objRS = Nothing
objConn.Close
SET objConn = Nothing
%>
<input id="cmdSubmit" name="cmdSubmit" type="submit" value="Esegui">
</form>
</body>
</html>

[/ C O D E ]

e la seconda pagina...

[ C O D E ]
<%@ Language=VBScript %>
<% Response.Buffer = True %>
<html>
<head>
<title>Elabora</title>
</head>
<body>
<%
Dim objConn
' Creo l'oggetto connection
StrConnect = "driver={SQL Server};server=(local);uid=sa;pwd=;datab
ase=Northwind"

set objConn= Server.CreateObject("ADODB.Connection")
objConn.Open StrConnect


' Recupererai i valori dei vari campi del form
strLista = Request.Form("chk")

strSQL = "SELECT * FROM Employees WHERE EmployeeID IN(" & strLista & ");"
objConn.Execute strSQL

' Chiudo e libero gli oggetti
SET objRS = Nothing
objConn.Close()
SET objConn = Nothing


%>
</body>
</html>
[/ C O D E ]

DOVE SBAGLIO!!!
RispondiQuoting
vitosulla
vitosulla
il 22 novembre 2004 alle 13:01
593 messaggi dal 09 ottobre 2002
www.dotnetside.org
Scusa ma mi spieghi dov'è il comando per estrarre il resultset della query????

Dopo aver impostato la stringa SQL hai utilizzato objConn.Execute strSQL che andava bene nell'esempio che io ti avevo postato precedentemente (la cui azione era DELETE) poichè riguardava un'azione sul DB senza output (esempio DELETE, UPDATE, OPTIMIZE, etc.).

Se invece si richiede una visualizzazione, occorrerà aprire preventivamente un Recordset sul quale, come nella pagina precedente, andrà impostato un ciclo di scansione WHILE ... WEND per visualizzarne l'output.

Quindi la tua pagina che dici non visualizza, dovresti modificarle così:
' Recupererai i valori dei vari campi del form 
strLista = Request.Form("chk") 
 
' Creerai l'oggetto Recordset
SET objRS = Server.CreateObject("ADODB.Recordset") 
 
strSQL = "SELECT * FROM Employees WHERE EmployeeID IN(" & strLista & ");" 
 
' Apri il recordset
objRS.Open strSQL, objConn
 
' Scansioni il resultset
WHILE NOT objRS.EOF
 
  ....   Codice di visulizzazione dei record  ...
 
 
WEND

' Chiudo e libero gli oggetti 
objRS.Close
SET objRS = Nothing 
objConn.Close() 
SET objConn = Nothing

Ciao
Pochi post. Anzi, quasi quasi spengo
http://www.dotnetside.org/
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.