ASP: 1 asp spørsmål ( slette poster )

[Frupp]

Heisann

 

Nå skal jeg prøve forklare noe her :razz:

 

Jeg har en side der man kan slette klasser fra databasen, men det går an å slette klasser som det er påmeldt folk i ( Dette er et O-lagssystem ). Det skulle ikke gått an å få slettet klasser hvis de ikke var tomme. Jeg klarer å få til at d ikke går an å slette klasser dersom man vil slette bare en omgangen, men dersom man velger to så virker det ikke.

 

Det fungerer på den måten at alle klassene kommer opp nedover med en checkbox foran ( checkboxen inneholder ID'ene til klassene ). Så bare merker man av dem man vil slette...

 

Noen som kan hjelpe meg litt?

 

Her er koden til de to filene

( Dette er koden til slett klubber men de fungerer på akkuratt samme måte, det skulle heller ikke gått an slettet klubber det er påmeldt folk fra ) include fila inneholder åpning av forbindelse til databasen )

 

EDIT: Se ID 3

 

Jeg har prøvd en del forskjellig men får bare til hvis man merker 1 klubb om gangen...

Det holder at dersom man merker to klasser, en tom og en med påmeldte i, så får man feilmelding, uten at den tomme blir slettet

 

Noen som har noen gode ideer?

 

tusen takk :smile:

 

 

[ Denne Melding var redigert av: Frupp på 2002-05-27 14:23 ]

[christt]

Quote:

<% Dim RS, MyConn, SQL, SQL2 SQL = "DELETE FROM klubber WHERE klubbID IN("&request.form("toDelete")&")" 'grab the value(s) selected from the checkboxes SQL2 = "DELETE FROM klubber WHERE klubbID IN("&request.form("toDelete")&")" Set RS = MyConn.Execute(SQL) Set RS = MyConn.Execute(SQL2) 'both tables use ID as the key field and both corresponding records are deleted MyConn.Close Set MyConn = Nothing %>

 

Hvorfor kjører du to like queries?

Da er det klart at du får error, du kan ikke lsette noe to ganger på rad...

[Frupp]

beklager, jeg hadde rota litt i fila.. de linjene er egentlig ikke med =P

Her er klasse koden, som jeg egentlig skulle lime inn med domene gikk ned så jeg fikk ikke henta fila

 

slett_klasse.asp

----------------

<%

'<======== START AVMELDING ========>

 

Set RS=Server.CreateObject("ADODB.RecordSet")

 

RS.Open "Select * From klasser ORDER BY klasseID", MyConn

 

Do While Not RS.eof

%>

<table>

<tr>

<td>

<form action="bekreftslettklasse.asp" method="Post">

<INPUT Type=CheckBox Name="toDelete" Value="<% = RS("ID")%>"></td>

<TD><% = RS("klasseID")%></TD>

<TD><% = RS("beskrivelse")%></TD>

 

</TR>

<%

RS.movenext

Loop

%>

</table>

<%

RS.close

MyConn.close

%>

<input type="submit" value="Slett Klasse">

</form>

</table>

 

<%

'<======== SLUTT AVMELDING ========>

%>

<!--#INCLUDE FILE = "../include/bunnadmin.asp"-->

 

 

 

bekreftslettklasse.asp

----------------------

<%

Dim RS, MyConn, SQL

 

SQL = "DELETE FROM klasser WHERE ID IN("&request.form("toDelete")&")"

 

Set RS = MyConn.Execute(SQL)

 

MyConn.Close

Set MyConn = Nothing

%>

 

<center><font color="red">Du har slettet klasse®</font>

<!--#INCLUDE FILE = "../include/bunnadmin.asp"-->

 

 

Jeg har prøvd å sjekke om det er noen påmeldte i klassen, og skrive ut feilmelding dersom det er det, og dette virker, men bare hvis jeg merker av en klasse, for jeg finner ikke helt ut hvordan jeg bruker den IN kommandoen..

[ilpostino]

har nettop gjort noe lignende i en case-oppgave på skolen. der skal de jeg har laget nettsiden for kunne slette kunder/leverandører/produkter fra databasen sin. slik jeg har forstått det skal du gjøre noe lignende.

 

jeg fant ut at det var best å bruke commando-objektet for å slette poster i databasen og har gjort dette:

 

Dim idVare

idVare = request.querystring("Vare")

 

objCommand.Commandtext = "DELETE FROM varer WHERE vareId LIKE '" & idVare & "'"

 

som du ser slenges id'en til varen i url'en. denne hentes i dette scriptet for så å slette alle poster med dette id-nummeret.

 

hvis du vil ha scriptfilene jeg har brukt send meg en mail..