sintassi su sql

**vil13** · 07-09-2004, 11:51

Ciao a tutti sto facendo una pagina di ricerca su un paio ditabelle in oracle prendendo valori da 4 select option, ma ho un problema nell eseguire l'sql...

codice:

<style type="text/css">
<!--
@import url(stile.css);
-->
</style>
<%
mm=Request.Form("mm")
aaaa=Request.Form("aaaa")
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
dim ti
ti=Request.QueryString("ti")
if request.QueryString("ti") <> "pi" Then
  varti=" AND animal.specie= '"& request.QueryString("ti")&"'"
 else 
 varti=""
End If
%>
<%
dim Comuni
Comuni=Request.QueryString("Comuni")
if request.QueryString("Comuni") <> "2" Then
  varComu= " AND animal.id_com= '"&request.QueryString("Comuni")&"'"
 else
  varComu=""
End If
%>
<%
dim Ricerca
Ricerca=Request.QueryString("Ricerca")
if request.QueryString("Ricerca") <> "4" Then
  varRic=" AND accertamenti.tipo_ricerca= '"&request.QueryString("Ricerca")&"'"
 else
  varRic=""
End If
%>
<%
dim mm
mm=Request.Form("mm")
if request.Form("mm") <> "" Then
  varmm=" AND animal.data Like %"& request.Form("mm")&"%"
 else
  varmm=""
End If
%>
<%
dim aaaa
aaaa=Request.Form("aaaa")
if request.Form("aaaa") <> "" Then
  varaa=" AND animal.data Like %"&request.Form("aaaa")&"%"
 else 
 varaa=""
End If
%>
<%
call openConn()
	set rsAni = Server.CreateObject("ADODB.Recordset")
	sql = "select distinct animal.id, animal.id_com, animal.specie, animal.descr_cattura, animal.data, animal.num_verb, "_
	&"animal.num_campioni,comunife.descr,comunife.id_com, specie.latino, accertamenti.tipo_ricerca, t_ricerca.descr_ricerca "_ 
	&"from animal,comunife,specie,accertamenti,t_ricerca where comunife.id_com=animal.id_com "_
	&"and accertamenti.tipo_ricerca=t_ricerca.tipo_ricerca and animal.specie=specie.descr_specie "_
	&"and animal.id=accertamenti.id and animal.id<>0 '" & varti & "''"& varComu &"''"& varRic &"''"& varmm &"''"& varaa &"'"   
rsAni.Open sql, dbc, 1,3
response.Write(sql)
response.Flush
%>

na volta eseguita la pagina ho questo errore!!!
Error Type:
ADODB.Recordset.1 (0x80004005)
SQLState: HY000 Native Error Code: 933 [DataDirect][ODBC Oracle Wire Protocol driver][Oracle]ORA-00933: SQL command not properly ended SQLState: 01S02 Native Error Code: 0 [DataDirect][ODBC Oracle Wire Protocol driver]Option value changed.
/veterinari/vivi.asp, line 71
MI DATE UN AIUTINO
grazie

**mimedia** · 07-09-2004, 12:25

..ma hai pensato che forse prima mandare in esecuzione la sql sarebbe bello vedere cosa contiene con un semplice, tradizionale e sempre utile response.write della var sql???

così la vita ti apparirebbe meno grigia e una nuova alba si staglierebbe all'orizzonte...

**vil13** · 07-09-2004, 12:37

ti ho postato il form mi passa solo il primo valore "ti" gli altri non li vedo...

**vil13** · 07-09-2004, 12:44

trovati i inseriti nella pagina

codice:

response.Write(aaaa)
response.Write(mm)
response.Write(Ricerca)
response.Write(Comune)
response.Write(ti)

Così le vedo ma se metto
response.Write(varaa)
response.Write(varmm)
response.Write(varRic)
response.Write(varComu)
response.Write(varti)
le variabili non ci sono

**mimedia** · 07-09-2004, 13:00

1^ cappella : ..form method="POST" action="vivi.asp" ...

2^ cappella (multipla) i valori inviati dal form (name nelle select) li recuperi con request.form("name")... come da file originale

3^ cappella (opzionale) cosa te ne fai delle variabili che chiami con lo stesso nome dei campi nei request.form all'inizio di ogni condizione?:
---- tuo code ----
dim ti
>>> ?? ti=Request.QueryString("ti")
if request.QueryString("ti") <> "pi" Then
--->> poi qui nel form quando non seleziono passo ai e non ti
varti=" AND animal.specie= '"& request.QueryString("ti")&"'"
else
varti=""
End If
---- /tuo code ----

4^ cappella il response.write del sql devi fare prima della connessione (che potresti/devi pure commentare)

..teoria

Discussione: sintassi su sql

Strumenti discussione

Ricerca discussione

Visualizza

sintassi su sql

fatto

iii

Permessi di invio