Array in una Select SQL non funge.

[Rob2002]

Ciao a tutti,

dopo tanta fatica sono arrivato alla fine di un processo che mi restituisce una serie di nomi e li mette in Array (visualizzandoli)... e qui tutto OK.

Quando vado a mettere l'Array in una Select SQL il risultato è:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente

la mia Select è:

rs.Source = "SELECT * FROM ADS WHERE AD_POSTER ='" & aryUser & "' AND AD_EXPIRED > date() AND AD_APPROVED = 1 ORDER BY AD_TITLE ASC"

perchè il tipo non corrisponde? Sono semplici nomi come (Mario, Giovanni, ....)

Grazie

[Roby_72]

Il problema è la data. L'hai messa lì senza pensare:
- che si tratta di una variabile e come tale deve essere tratta
- che tipo di campo è quello che l'accoglie

Roby

[Rob2002]

Scusa il ritardo Roby,
ma la data è ok perchè quella Select funziona così, solo quando metto l'Array al posto, ad esempio, di una session.

Come posso formattare una serie di Array?

[optime]

il problema non è in sql. è che tu stai componendo una stringa, e cerchi di ficcarci un array. pere e mele non vanno bene assieme! trasforma l'array in una stringa (con join).

[Roby_72]

Devi indicare l'indice dell'array che ti serve ad esempio aryUser(0) se desideri il primo elemento.
Se li veuoi tutti devi scorrere l'array e al suo interno crearti una query dinamicamente.

Roby

[optime]

Originariamente inviato da Roby_72
Se li veuoi tutti devi scorrere l'array e al suo interno crearti una query dinamicamente.

si può usare la JOIN

[Rob2002]

E si fece notte fonda ....

ti posto lo script:

<%
'Creo l'Ado object
Set adoCon = Server.CreateObject("ADODB.Connection")
  
'Apro la connessione
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & server.mappath("/BD/test.mdb") & "; Persist Security Info = False"
  
Set rs1 = Server.CreateObject("ADODB.Recordset")

' Eseguo l'azione 
sql="SELECT  DISTINCT C_USERS FROM CAP WHERE C_CAP =  '" & session("mycap") & "'  OR C_CAP = '" & session("cap1") & "' OR C_CAP = '" & session("cap2") & "' OR C_CAP = '" & session("cap3") & "' OR C_CAP = '" & session("cap4") & "' OR C_CAP = '" & session("cap5") & "' OR C_CAP = '" & session("cap6") & "' OR C_CAP = '" & session("cap7") & "' OR C_CAP = '" & session("cap8") & "' OR C_CAP = '" & session("cap9") & "' OR C_CAP = '" & session("cap10") & "' AND ABILITATO = '1'"

rs1.Open SQL, adoCon

if rs1.eof = true then 

response.write("Non ci sono OFFERTE nel  CAP indicato")
else

'***************** ARRAY *****************************
' Dichiara variabili 
Dim aryUser
Dim i 

' Crea un array 
aryUser = rs1.getrows()

' Scorri l'array 
for i=0 to ubound(aryUser ,2)
 Response.Write(aryUser(0,i) & "
")      'stampa il primo campo
next

'*******************************************************

rs1.close
set rs1=nothing
set  adoCon = nothing
end if

%>

Ti prego Roby cerca di aiutarmi è importante per me risolvere questo ultimo baluardo. Grazie.

[wallrider]

Originariamente inviato da Rob2002
...la mia Select è:

rs.Source = "SELECT * FROM ADS WHERE AD_POSTER ='" & aryUser & "' AND AD_EXPIRED > date() AND AD_APPROVED = 1 ORDER BY AD_TITLE ASC"

...

come disse Optime

rs.Source = "SELECT * FROM ADS WHERE AD_POSTER ='" & join(aryUser,",") & "' AND AD_EXPIRED > date() AND AD_APPROVED = 1 ORDER BY AD_TITLE ASC"

[optime]

wallinobbello, ovviamente se si fa la join si dovrà usare una WHERE IN, non già una WHERE =. giusto?

[Rob2002]

Non va...
mi dice:

Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'join'

Ora se la prende con il Join.!