Select complessa

[vpoppa]

Ho scritto la seguente SELECT ricavata da ACCESS:

str_budget = "SELECT Scheda_Budget.CODID, Scheda_Budget.ANNO, Sum(Scheda_Budget.IMP_ASS) AS SommaDiIMP_ASS
FROM Scheda_Budget
GROUP BY Scheda_Budget.CODID, Scheda_Budget.ANNO
HAVING (((Scheda_Budget.CODID)='" &codid& "'))"
set rs_budget = server.createobject("adodb.recordset")
rs_budget.open str_budget, connobj, 3, 3

ma mi da il seguente errore:

Errore di compilazione di Microsoft VBScript error '800a03fd'
Previsto 'Case'

Qualcuno sà aiutarmi???

Grazie.

Vincenzo

[teorema55]

Per il momento l'errore non è nella logica della query (che infatti, almeno nel mio test, funziona........vedi questa prova ).

Il CASE cui si riferisce il messaggio di errore sembra relativo all'istruzione SELECT, che viene riconosciuta come istruzione ASP e non come istruzione SQL.

Come valorizzi la variabile codid?

[vpoppa]

url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.mappath("SchedeProgetto.mdb")
set connobj = Server.CreateObject( "ADODB.Connection" )
connobj.Open url_DB
str_scheda = "select * from SchedaP"
set rs_scheda = server.createobject("adodb.recordset")

if not rs_scheda.eof then

codid = rs_scheda("CODID")

str_obj = "select DENOMINAZIONE from SchedaOBJ where CODID='" &codid& "'"
set rs_obj = server.createobject("adodb.recordset")
rs_obj.open str_obj, connobj, 3, 3

str_budget = "SELECT Scheda_Budget.CODID, Scheda_Budget.ANNO, Sum(Scheda_Budget.IMP_ASS) AS SommaDiIMP_ASS
FROM Scheda_Budget
GROUP BY Scheda_Budget.CODID, Scheda_Budget.ANNO
HAVING (((Scheda_Budget.CODID)='" &codid& "'))"

set rs_budget = server.createobject("adodb.recordset")
rs_budget.open str_budget, connobj, 3, 3

....

[teorema55]

Controlla se viene letto correttamente aggiungendo la riga in rosso:

str_budget = "SELECT Scheda_Budget.CODID, Scheda_Budget.ANNO, Sum(Scheda_Budget.IMP_ASS) AS SommaDiIMP_ASS 
FROM Scheda_Budget 
GROUP BY Scheda_Budget.CODID, Scheda_Budget.ANNO 
HAVING (((Scheda_Budget.CODID)='" &codid& "'))" 
response.write(str_budget):response.end 
set rs_budget = server.createobject("adodb.recordset") 
rs_budget.open str_budget, connobj, 3, 3

Lo script stamperà a video la query e poi si bloccherà, così potrai controllarla.........

[vpoppa]

Non funzionava perchè su più righe.
Su una riga funziona correttamente.

Grazie.

Vincenzo

[teorema55]

Ok, buon proseguimento.........