split e database access

[mdegiova]

scusate ho usato uno scrip asp che divide un testo collegato da virgole con SPLIT.

<%
function separa(testo,carattere)
dim separati
separati = split(testo, carattere)
%>
<%
for i=0 to ubound(separati)
response.write "M"&separati(i)
next
%>
<%
end function
dim strTesto
strTesto = Request("EDIFC_TY")
dim chrCarattere
chrCarattere = ","
call separa(strTesto,chrCarattere)
%>

ora dovrei inserire il dato diviso all'interno di una ricerca su database access presente nella stessa pagina :


<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("A020102.mdb")

set Q1 = conn.execute("select * from 02010201 where .......... like '"& "%" & EDIFC_TY & "%" & "'")
if not Q1.EOF then
%>
.........
.....

[Roby_72]

Devi cercare tutte le parole singole (splittate) in più di un campo?
Devi fare una query dinamica.

Roby

[mdegiova]

la stringa è numerica :

1001,1002,1205,3478,9067....

dopo che vengono splittate ottengo

1001
1002
1205
3478
9067
.....

ogni singolo numero deve cadere nella ricerca del database in un solo capo "EDIFC_TY" :

set Q1 = conn.execute("select * from 02010201 where ROSSI like '"& "%" & EDIFC_TY & "%" & "'")

ROSSI è uguala al numero splittato es. ROSSI=1001 .....

[mdegiova]

scusa mi correggo


ogni singolo numero deve cadere nella ricerca del database in un solo capo "cod_1" :

set Q1 = conn.execute("select * from 02010201 where cod_1 like '"& "%" & ROSSI& "%" & "'")

ROSSI è uguala al numero splittato es. ROSSI=1001 .....

[Luca Rotella]

...
E se invece di splittarla usi il comodissimo "IN" ?

sql = "Select * from 02010201 where cod_1 IN (" & strTesto & ");"
connessione.execute sql 

A questo modo, ammesso che ricerchi una stringa esatta e non una sottostringa, ti trova tutti i record senza bisogno di splittare un bel niente!


Luka