cancellazione record

[forte78]

ho questa query



<%
Dim codiceid
Dim oCon

Set oCon=Server.CreateObject("ADODB.Connection")
oCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/public/databaseimm.mdb")

codiceid = Request.Querystring("cod")

If codiceid<>"" Then

'Eliminazione dell'immobile
oCon.Execute "DELETE FROM immobili WHERE codiceimmobile=" & codiceid

'Eliminazione dei riferimenti in altre tabelle
oCon.Execute "DELETE FROM accordi WHERE codiceimmobile='" & codiceid & "'"
oCon.Execute "DELETE FROM colloqui WHERE codiceimmobile='" & codiceid & "'"
oCon.Execute "DELETE FROM StoricoVariazioni WHERE codiceimmobile=" & codiceid
oCon.Execute "DELETE FROM databaseric_colloqui WHERE codiceimmobile='" & codiceid & "'"

End IF

oCon.Close

Response.Redirect "risarccod.asp"
%>



Mi permette di cancellare tutto quello che riguarda quel codice numerico in piu tabelle.

Ora ho creato questo nella pagina precedente


<script>

function ChangeOrderBy(sValue)
{
if (document.all("OrderBy")!=null)
{
document.all("OrderBy").value = sValue;
if (document.all("sampleform")!=null)
document.all("sampleform").submit();
}
}

function OpenPage(sValue)
{
if (document.all("IniziaPer")!=null) {

document.all("IniziaPer").value = sValue;
if (document.all("sampleform")!=null) {
document.all("sampleform").submit();
}
}
}





function checkAll(bChecked)
{
var oChk = document.all("codiceid");

if (oChk.length!=null) {
for (var i=0;i<oChk.length;i++)
oChk[i].checked=bChecked;
} else {
if (oChk!=null)
oChk.checked=bChecked;
}
}

</script>








<script>


function stampa()
{
var oFrm = document.all("frmPubblicita");
if (oFrm!=null) {

oFrm.action = "arccanc.asp?cod=<%=Request.Querystring("cod") %>";
oFrm.target = "_self";
oFrm.submit();




}
}


</script>




con relativo check

<input type="checkbox" onclick="checkAll(this.checked)">

<input type="checkbox" name="codiceid" value="<%=objrs("codiceimmobile")%>">



Cosa voglio fare quest'ultimo elenco è dove vado a visualizzare i relativi articoli e i check relativi vorrei che se seleziono ad esempio il n.5-7-9 la pagina successiva cioè questa cioè quella precedente :





<%
Dim codiceid
Dim oCon

Set oCon=Server.CreateObject("ADODB.Connection")
oCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/public/databaseimm.mdb")

codiceid = Request.Querystring("cod")

If codiceid<>"" Then

'Eliminazione dell'immobile
oCon.Execute "DELETE FROM immobili WHERE codiceimmobile=" & codiceid

'Eliminazione dei riferimenti in altre tabelle
oCon.Execute "DELETE FROM accordi WHERE codiceimmobile='" & codiceid & "'"
oCon.Execute "DELETE FROM colloqui WHERE codiceimmobile='" & codiceid & "'"
oCon.Execute "DELETE FROM StoricoVariazioni WHERE codiceimmobile=" & codiceid
oCon.Execute "DELETE FROM databaseric_colloqui WHERE codiceimmobile='" & codiceid & "'"

End IF

oCon.Close

Response.Redirect "risarccod.asp"
%>

mi cancelli tutti i codici selezionati in tutte le tabelle del db.

Come posso comportarmi grazie del Vs. aiuto in anticipo attendo notizie.


Salve.

[Roby_72]

WHERE codiceimmobile IN ("& codiceid &")"

Roby

[forte78]

<%
Dim codiceid
Dim oCon

Set oCon=Server.CreateObject("ADODB.Connection")
oCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/public/databaseimm.mdb")

codiceid = Request.Querystring("codiceid")

If codiceid<>"" Then

'Eliminazione dell'immobile
oCon.Execute "DELETE FROM immobili WHERE codiceimmobile IN ("& codiceid &")"

'Eliminazione dei riferimenti in altre tabelle
oCon.Execute "DELETE FROM accordi WHERE codiceimmobile IN ("& codiceid &")"
oCon.Execute "DELETE FROM colloqui WHERE codiceimmobile IN ("& codiceid &")"
oCon.Execute "DELETE FROM StoricoVariazioni WHERE codiceimmobile IN ("& codiceid &")"
oCon.Execute "DELETE FROM databaseric_colloqui WHERE codiceimmobile IN ("& codiceid &")"

End IF

oCon.Close

Response.Redirect "risarccod.asp"
%>



dunque non mi da nessun errore ma non mi rileva nessuna cancellazione quindi non funziona ... x me non riesce a mantenere tra le 2 pagine i codici selezionati

fammi sapere grazie

[wallrider]

se non ricordo male, fra i parametri della execute c'è anche affectedrows, che ti dice quante righe sono state modificate dalla query.

commenta il redirect e fatti stampare a video quante righe sono state modificate

[Roby_72]

Non è che devi andare a caso... basta che stampi le query a video e vedi cosa cerchi di esguire.

Roby

[forte78]

scusa l'ignoranza ma non ti ho capito

[Roby_72]

sql = "DELETE FROM accordi WHERE codiceimmobile IN ("& codiceid &")"
response.write sql
response.end

Roby

[forte78]

DELETE FROM accordi WHERE codiceimmobile IN ()

come pensavo e come dicevo prima si perde tra le 2 pagine cosa c'è che non tiene questi codici....

[Roby_72]

Che sia questo????????

codiceid = Request.Querystring("cod")

Forser li passi con un form con metodo POST e la querystring con va bene??

Roby

[forte78]

ho eliminato il method post , poi ho corretto cod con codiceid e finalmente la responsewrite mi ha restituito tutti i dati che avevo selezionato. Quindi funziona.

Ora il codice completo è questo:



<%
Dim sCodiceid
Dim oCon

Set oCon=Server.CreateObject("ADODB.Connection")
oCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/public/databaseimm.mdb")

sCodiceid = Request.Querystring("cod")

If sCodiceid<>"" Then

'Eliminazione dell'immobile
oCon.Execute "DELETE FROM immobili WHERE codiceimmobile IN ("& sCodiceid &")"

'Eliminazione dei riferimenti in altre tabelle
oCon.Execute "DELETE FROM accordi WHERE codiceimmobile IN ("& sCodiceid &")"
oCon.Execute "DELETE FROM colloqui WHERE codiceimmobile IN ("& sCodiceid &")"
oCon.Execute "DELETE FROM StoricoVariazioni WHERE codiceimmobile IN ("& sCodiceid &")"
oCon.Execute "DELETE FROM databaseric_colloqui WHERE codiceimmobile IN ("& sCodiceid &")"

End IF

oCon.Close

Response.Redirect "risarccod.asp"
%>



mi da errore su questa riga
oCon.Execute "DELETE FROM colloqui WHERE codiceimmobile IN ("& sCodiceid &")"

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

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/public/arccanc.asp, line 18


ti informo che nella tabella colloqui il campo codiceimmobile è un campo testo mentre nel controllo della tabella immobili il campo codiceimmobile è contatore......

Spero di essere stato chiaro