problemi con variabili all'interno di query sql

il 29 settembre 2001 alle 23:40

26 messaggi dal 14 settembre 2001

il codice che segue, funziona perfettamente
se però nelle query sql, al posto dei valori di "betwen" e "order by"
sostituisco con le opportune variabili, dichiarate e con i relativi valori
prelevati da un form, non funziona più la paginazione, ovvero viene restituita
a video la 1 pagina ma quando si clicca sul link per avere la seconda viene generato un
errore del tipo "il driver odbc non supporta ... ecc."
questo di seguito è il codice che funziona bene:

<%@language=vbscript%>
<%option explicit%>

<html>
<head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Ricerca articoli</title>
<bgsound src="GIAVA_01.MID" loop="-1">
</head>
<body background="file: ../matt.gif">


<% 'legge dal form
dim codice, categoria, prezzo, target, prodotto,miniatura,prezzominimo,page
dim prezzomassimo,disponibiledat,disponibiledal,i,strorderby
dim peso, note,pagine
categoria=request.form("categoria")
prezzominimo =Request.form("prezzominimo")
prezzomassimo = Request.form("prezzomassimo")

target=request.form("target")
prodotto=request.form("prodotto")
if categoria="selezionare" then categoria="%"
if target="selezionare" then target="%"
if prodotto="selezionare" then prodotto="%"

%>
<%
Dim objconn
'La solita variabile di connessione
Dim iPageSize
'Numero di record da visualizzare per ogni pagina
Dim iPageCount
'Numero di pagine totali che otteniamo dalla query
Dim iPageCurrent
'Pagina corrente
Dim SQL
Dim RS
'Il nostro solito recordSet
Dim iRecordsShown
ipagesize=5
page=request("page")
if page="" then page=1
strorderby=request.form("ordering")

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\3112\eligioielli\fpdb\eliart.mdb "
Set RS = Server.CreateObject("ADODB.Recordset")
%>
<%

sql= "select * from tabella1 where categoria like '%"&categoria&"%' and target like '%"&target&"%' and codice like '%"&codice&"%' and miniatura like '%"&miniatura&"%' and disponibiledat like '%"&disponibiledat&"%' and disponibiledal like '%"&disponibiledal&"%' "
sql=sql&"AND prezzo BETWEEN 2 AND 1500 "
RS.Open sql, objconn, adOpenKeyset
rs.pagesize=ipagesize
rs.absolutepage=page
miniatura=rs("MINIATURA")
if rs.eof=true or rs.bof=true then
response.write "Nessun risultato trovato"
else
%>
<center>
<h3> '<% response.write "Trovati " & rs.recordcount & " prodotti corrispondenti " %></h3> 

<%
for i=1 to ipagesize
if not rs.eof then
%>

<div align="left">


<table border="0" width="100%" height="161">

<tr>
<td width="45%" height="155" valilgn="top">codice articolo 
<%response.write(rs("codice"))%> 
<%response.write (rs("categoria"))%> 
<%response.write (rs("prodotto"))%> 
<%response.write (rs("disponibiledat"))%> 
a disposizione dal...<%response.write (rs("disponibiledal"))%> 
prezzo euro<%response.write (rs("prezzo"))%> 
<td width="30%" height="155" valilgn="center"><%=(" <IMG SRC="&MINIATURA&" WIDTH=65 HEIGHT=55 BORDER=1>")%></a> 
<td width="25%" height="155"></td>
</tr>
</table>

<%
rs.movenext
end if
next
end if
%>

<% response.write "Pagine:"
for pagine=1 to rs.PageCount
response.write"<a href='elipagine3-2nv.asp?page=" &pagine
response.write "&" & server.urlencode(strorderby)
response.write "'>"
response.write pagine
response.write "</a>"
next
response.write ""
%>

<%
RS.Close
Set RS = Nothing
objConn.Close
%>
</BODY>
</html>
Fine del codice che funziona bene
questo che segue invece è il codice che, con la sola differenza delle variabili inserite al posto dei valori di
between e order by, non funziona:
<%@language=vbscript%>
<%option explicit%>

<html>
<head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Ricerca articoli</title>
<bgsound src="GIAVA_01.MID" loop="-1">
</head>
<body background="file: ../matt.gif">


<% 'legge dal form
dim codice, categoria, prezzo, target, prodotto,miniatura,prezzominimo,page
dim prezzomassimo,disponibiledat,disponibiledal,i,strorderby
dim peso, note,pagine
categoria=request.form("categoria")
prezzominimo =Request.form("prezzominimo")
prezzomassimo = Request.form("prezzomassimo")

target=request.form("target")
prodotto=request.form("prodotto")
if categoria="selezionare" then categoria="%"
if target="selezionare" then target="%"
if prodotto="selezionare" then prodotto="%"

%>
<%
Dim objconn
'La solita variabile di connessione
Dim iPageSize
'Numero di record da visualizzare per ogni pagina
Dim iPageCount
'Numero di pagine totali che otteniamo dalla query
Dim iPageCurrent
'Pagina corrente
Dim SQL
Dim RS
'Il nostro solito recordSet
Dim iRecordsShown
ipagesize=5
page=request("page")
if page="" then page=1
strorderby=request.form("ordering")

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\3112\eligioielli\fpdb\eliart.mdb "
Set RS = Server.CreateObject("ADODB.Recordset")
%>
<%

sql= "select * from tabella1 where categoria like '%"&categoria&"%' and target like '%"&target&"%' and codice like '%"&codice&"%' and miniatura like '%"&miniatura&"%' and disponibiledat like '%"&disponibiledat&"%' and disponibiledal like '%"&disponibiledal&"%' "
sql=sql&"AND prezzo BETWEEN "&CInt(prezzominimo)&" AND "&CInt(prezzomassimo)&" "
sql=sql&"ORDER BY prezzo "&strOrderBy&" ASC"

RS.Open sql, objconn, adOpenKeyset
rs.pagesize=ipagesize
rs.absolutepage=page
miniatura=rs("MINIATURA")
if rs.eof=true or rs.bof=true then
response.write "Nessun risultato trovato"
else
%>
<center>
<h3> '<% response.write "Trovati " & rs.recordcount & " prodotti corrispondenti " %></h3> 

<%
for i=1 to ipagesize
if not rs.eof then
%>

<div align="left">


<table border="0" width="100%" height="161">

<tr>
<td width="45%" height="155" valilgn="top">codice articolo 
<%response.write(rs("codice"))%> 
<%response.write (rs("categoria"))%> 
<%response.write (rs("prodotto"))%> 
<%response.write (rs("disponibiledat"))%> 
a disposizione dal...<%response.write (rs("disponibiledal"))%> 
prezzo euro<%response.write (rs("prezzo"))%> 
<td width="30%" height="155" valilgn="center"><%=(" <IMG SRC="&MINIATURA&" WIDTH=65 HEIGHT=55 BORDER=1>")%></a> 
<td width="25%" height="155"></td>
</tr>
</table>

<%
rs.movenext
end if
next
end if
%>

<% response.write "Pagine:"
for pagine=1 to rs.PageCount
response.write"<a href='elipagine3-2nv.asp?page=" &pagine
response.write "&" & server.urlencode(strorderby)
response.write "'>"
response.write pagine
response.write "</a>"
next
response.write ""
%>

<%
RS.Close
Set RS = Nothing
objConn.Close
%>
</BODY>
</html>
qualcuno ma può aiutare a capire ??

Rispondi Quoting

HelpDesk

il 30 settembre 2001 alle 05:37

153 messaggi dal 20 aprile 2001

Questo post l'ho visto già in un altro forum.... EHEHE!

HD
____________
Posso indicarti la strada, ma poi devi seguirla da te.

Rispondi Quoting

HelpDesk

il 30 settembre 2001 alle 05:56

153 messaggi dal 20 aprile 2001

Comunque, anche se non penso che l'errore sia qui (ma nel provider di dati usato e nelle proprietà che forse non supporta), la clausola SQL non è necessaria farla tutta in un colpo solo, anche perchè così resta complicata anche quando non è necessario.

Ti faccio un esempio:

categoria=Trim(request.form("categoria"))
prezzominimo =Trim((Request.form("prezzominimo"))
prezzomassimo = Trim(Request.form("prezzomassimo"))
target=Trim(request.form("target"))
prodotto=Trim(request.form("prodotto"))

strWhere=""
If (categoria<>"selezionare") and (Categoria <> "") then
strWHERE=" categoria='""& SQLStr(categoria) & "%'"
End If

If target<>"selezionare" and (Target<>"") then
if strWHERE <> "" then strWHERE=strWHERE & " AND "
strWHERE=strWHERE & " target='%" & SQLStr(target) & "%'"
End if

e via così con tutti gli altri e alla fine si fa:

if strWhere<> "" then strWhere=" WHERE " & strWhere
strSQL="SELECT * from tabella1" & strWHERE & ";"

aiutandosi con una funzioncina in modo da evitare problemi con gli apici ed i caratteri jolly.

Function SQLstr(stringa)
SQLStr=replace(replace(replace(stringa,"'","['']),"*","[*]"),"%","[%]")
End Function


In tal modo la query si costruisce molto meglio ed e' più controllabile.

HD
____________
Posso indicarti la strada, ma poi devi seguirla da te.

Modificato - HelpDesk - 29 Set 2001 23:59:32

HD
____________
Posso indicarti la strada, ma poi devi seguirla da te.

Rispondi Quoting

conidi

il 30 settembre 2001 alle 17:03

499 messaggi dal 14 luglio 2001

Ti Ho risposto sul forum DATABASE.

ciao

enzo
www.dnetware.it

enzo
www.dnetware.it

Rispondi Quoting

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.

Community

Corsi e consulenza

In primo piano

.NET Conference Italia 2024 - Milano

.NET Conference Italia 2023 - Milano e Online

Le novità di .NET 7 e C# 11

Le novità in ASP.NET Core e Blazor con .NET 7

I più letti di oggi

In evidenza

Misc

Utilizziamo i cookie per analisi, contenuti personalizzati e pubblicità.

.NET Conference Italia 2024 - Milano

.NET Conference Italia 2023 - Milano e Online

Le novità di .NET 7 e C# 11

Le novità in ASP.NET Core e Blazor con .NET 7