Ricerca

[Descendz]

Ciao guys,
ho scritto una sintassi per la ricerca di codici e di parole all'interno di 2 tabella di un db mysql: l'utente tramite un form invia il valore da selezionare e scegli la tabella sulla quale eseguire la ricerca:

		SelDe1=Cstr(Request.Form("selector"))
				SelDe2=replace(replace(trim(SelDe1),"'",""),"""","")
				
				if selde2=sel1 then
				tabella=codice
				end if
				if selde2=sel2 then
				tabella=note
				end if
				
				Finderd1=Cstr(Request.Form("finder"))
				Finderd2=replace(replace(trim(Finderd1),"'",""),"""","")
				
				If Len(page) > 0 And IsNumeric(page) Then
				page = CLng(page)
				Else
				Page = 1
				End If
				
				Rig = Rig + 1
				If Rig Mod 2 = 0 then
				color = "#EFEFEF"
				Else
				color = "#DBEDF2"	
				End if
				
				Set rscontol2 = Conn.Execute ("SELECT * FROM prodotti WHERE '" & tabella &"'='" & Finderd2 &"'")

Purtroppo però continuo a ricevere questo errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14' 

[MySQL][ODBC 3.51 Driver][mysqld-4.0.20-standard-log]You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near '='123'' at line 1 

/public/prodotti_res.asp, line 142

Sapete aiutarmi?!
:master:

[diegoctn]

("SELECT * FROM prodotti WHERE '" & tabella &"'='" & Finderd2 &"';")

[Descendz]

ti ringrazio però ho un nuovo problema: praticamente inserendo un criterio di ricerca che nel DB esistemi il record è cmq sempre vuoto, da cosa può dipendere?

[99eros9]

("SELECT * FROM prodotti WHERE " & tabella &" = '" & Finderd2 &"';")

Ma il valore di tabella sarebbe? mi viene un dubbio.

[Descendz]

Originariamente inviato da 99eros9

("SELECT * FROM prodotti WHERE " & tabella &" = '" & Finderd2 &"';")

Ma il valore di tabella sarebbe? mi viene un dubbio.

Il nome della tabella è appunto contenuto in " & tabella &" e viene generatp tramite un menu di scelta del form che invia l'utente e successivamente:

SelDe1=Cstr(Request.Form("selector"))
SelDe2=replace(replace(trim(SelDe1),"'",""),"""","")
				
  if selde2=sel1 then
  tabella=codice
  end if
  if selde2=sel2 then
  tabella=note
  end if

[Descendz]

Originariamente inviato da Descendz
Il nome della tabella è appunto contenuto in " & tabella &" e viene generatp tramite un menu di scelta del form che invia l'utente e successivamente:

SelDe1=Cstr(Request.Form("selector"))
SelDe2=replace(replace(trim(SelDe1),"'",""),"""","")
				
  if selde2=sel1 then
  tabella=codice
  end if
  if selde2=sel2 then
  tabella=note
  end if

In ogni caso ho provato anche con

"& tabella &" = '" & Finderd2 &"'

ma non va!

[Descendz]

up

[99eros9]

perchè non stampi la query e la posti? così non si riesce a capire.

[Descendz]

Ok ecco tutta la sintassi:

Form:

<form name="form1" method="post" action="prodotti_res.asp">
	<input name="finder" type="text" id="finder" class="box01" >
	<select name="selector" id="selector" class="box01">
	<option value="sel1">Codice</option>
	<option value="sel2">Descrizione</option>
	</select> 
	<input name="upload" type="hidden" id="upload" value="1"> 
	<input type="hidden" name="sid" value="<%=request.QueryString("sid")%>"> 
	<input type="hidden" name="id" value="<%=request.QueryString("id")%>"> 
	<input type="hidden" name="user" value="<%=request.QueryString("user")%>"> 
	<input type="hidden" name="pwd" value="<%=request.QueryString("pwd")%>">
	<input type="hidden" name="action" value="searci"> 
	<input type="submit" name="Submit" value="vai">
</form>

Ricerca:

<%
if request.form("action")="searci" then
				
	RecordsPerPage = 10
				
	SelDe1=Cstr(Request.Form("selector"))
	SelDe2=replace(replace(trim(SelDe1),"'",""),"""","")
				
		if SelDe2="sel1" then
		tabella="tab1"
		end if
		if SelDe2="sel2" then
		tabella="tab2"
		end if
		response.write tabella
				
	Finderd1=Cstr(Request.Form("finder"))
	Finderd2=replace(replace(trim(Finderd1),"'",""),"""","")
	response.write Finderd2
				
		If Len(page) > 0 And IsNumeric(page) Then
		page = CLng(page)
		Else
		Page = 1
		End If
				
	Rig = Rig + 1
	If Rig Mod 2 = 0 then
	color = "#EFEFEF"
	Else
	color = "#DBEDF2"	
	End if
				
	Set rscontol2 = Conn.Execute ("SELECT * FROM prodotti WHERE "& tabella &" = '" & Finderd2 &"';")

				
		If rscontol2.EOF Then
		response.write "<table width='20%' height='5' border='0' align='center' cellpadding='0' cellspacing='0'>"
		response.write "<tr>"
		response.write "<td></td>"
		response.write "</tr>"
		response.write "</table>"
		response.write "<table width=""700"" height=""30"" border=""0"" cellpadding=""1"" cellspacing=""1""  bgcolor=""#EFEFEF"" align=""center"">"
		response.write "<tr>"
		response.write "<td><font size=2 face=Verdana><div align=center>Non ci sono prodotti con le caratteristiche ricercate</div></font></td>"
		response.write "</tr>"
		response.write "</table>"
		
		Else
				
		rscontol2.PageSize = RecordsPerPage
		rscontol2.AbsolutePage = Page
				
		For x = 1 To RecordsPerPage
		response.write("<table width='20%' height='4' border='0' align='center' cellpadding='0' cellspacing='0'>")
		response.write("<tr>")
		response.write("<td></td>")
		response.write("</tr>")
		response.write("</table>")
		response.write "<table width='700' border='0 align='center' cellpadding='0' cellspacing='1'  bgcolor=" & color & ">"
		response.write "<tr>"
		response.write "<td width='50'><font size=1 face=Verdana> " & adoRst("codice") & "</font></td>"
		response.write "<td width='210'><font size=1 face=Verdana> " & adoRst("nome") & "</font></td>"
		response.write "<td width='170'><div align=""center""><font size=1 face=Verdana> " & adoRst("categoria") & "</font></div></td>"
		response.write "<td width='90'><div align='center'><font size='1' face='Verdana'>" & day(adoRst("data")) & "/" & month(adoRst("data")) & "/" & year(adoRst("data")) & "</font></div></td>"
		response.write "<td width='90'>"
		response.write "<div align=""center"">visualizza</div>"
		response.write "<td>"
		response.write "<td width='90'>"
		response.write "<div align=""center"">cancella</div>"
		response.write "</td>"
		response.write "</tr>"
		response.write "</table>"
		response.write "<table width='20%' height='5' border='0' align='center' cellpadding='0' cellspacing='0'>"
		response.write "<tr>"
		response.write "<td></td>"
		response.write "</tr>"
		response.write "</table>"
		rscontol2.MoveNext
				
	End If
	Next
	End If
	
	rscontol2.Close
	Set rscontol2 = Nothing
	Conn.Close
	Set Conn = Nothing
	end if
%>

[Descendz]

up up