---
title: "Ta bort rad i databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/71476-ta-bort-rad-i-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Anders84"
published: "2003-03-18T13:40:44.000Z"
updated: "2003-03-18T14:32:15.000Z"
replies: 23
views: 535
page: 1
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/71476-ta-bort-rad-i-databas"
---

# Ta bort rad i databas

_Sida 1 av 2._

## #1 — Anders84, 2003-03-18T13:40Z

Hur tar jag bort en hel rad i en databas?

MVH Anders

Permalänk: https://www.webforum.nu/p/71476

## #2 — Sebbe, 2003-03-18T13:43Z

```
strSQL = "DELETE FROM tabell WHERE ID = " & Request.QueryString("id")
```

 :)

Permalänk: https://www.webforum.nu/p/983129

## #3 — Anders84, 2003-03-18T13:55Z

Varför vill inte detta funka?

\<%
Call dbOpen(Conn)
Set rsTaBort = Server.CreateObject ("ADODB.Recordset")
	if (Request.QueryString ("delete") = 1 ) then
		anv = Request.QueryString("anv")
		sqlTaBort = "DELETE FROM anvandare WHERE anvandare =" & Request.QueryString("anv")
		rsTaBort.Open sqlTaBort,conn
		Conn.Close
	end if
%\>

MVH ANders

Permalänk: https://www.webforum.nu/p/983139

## #4 — m_soderlund, 2003-03-18T13:55Z

Och sen kan man ju bygga på saken så att det blir säkrare:

```
Dim Id
Id = Cint(Trim(Replace(Request.Querystring("id"),"'","")))
```

Permalänk: https://www.webforum.nu/p/983140

## #5 — @nders, 2003-03-18T13:58Z

På vilket sätt fungerar det inte?
Felmeddelande?

Permalänk: https://www.webforum.nu/p/983143

## #6 — Anders84, 2003-03-18T13:59Z

Inget alls händer, blir inget felmeddelande

Permalänk: https://www.webforum.nu/p/983145

## #7 — @nders, 2003-03-18T14:01Z

Kontrollera att du kommer in i if-satsen. Du får alltid strängar från Request.Querystring, för övrigt, därför ska du inte jämföra med ett tal.

```
<% 
Call dbOpen(Conn) 
Set rsTaBort = Server.CreateObject ("ADODB.Recordset") 
if (Request.QueryString ("delete") = [b]"1"[/b] ) then 
anv = Request.QueryString("anv") 
sqlTaBort = "DELETE FROM anvandare WHERE anvandare =" & anv
rsTaBort.Open sqlTaBort,conn 
Conn.Close 
end if 
%>
```

Permalänk: https://www.webforum.nu/p/983146

## #8 — m_soderlund, 2003-03-18T14:03Z

Eeeeller varför inte skippa Recordsetet?

```
If Cint(Request.QueryString("delete"))=1 Then 
Dim anv
anv = Trim(Replace(Request.QueryString("anv"),"'",""))
Conn.Execute "DELETE *FROM anvandare WHERE anvandare=" & anv,,128
End if
```

Permalänk: https://www.webforum.nu/p/983147

## #9 — @nders, 2003-03-18T14:04Z

Och ännu lite snyggare:
\* Utan onödigt recordset
\* Ska du stänga conn-objektet i if-satsen kanske öppningen hör hemma i if-satsen också?

```
<% 
if (Request.QueryString ("delete") = "1" ) then 
   Call dbOpen(Conn) 
   anv = Request.QueryString("anv") 
   sqlTaBort = "DELETE FROM anvandare WHERE anvandare =" & anv
   Conn.Execute sqlTaBort, , 128
   Conn.Close 
end if 
%>
```

mvh

Permalänk: https://www.webforum.nu/p/983148

## #10 — solbulle, 2003-03-18T14:05Z

```
<%
if Request.QueryString("delete") = "1" then 
	Call dbOpen(Conn) 
	Conn.execute "DELETE FROM anvandare WHERE anvandare =" & Request.QueryString("anv"),,128
	Conn.Close 
end if 
%>
```

Permalänk: https://www.webforum.nu/p/983150

## #11 — m_soderlund, 2003-03-18T14:08Z

Massa bra alternativ blev det, men mitt blev väl säkrast, eller..? En kombination av @nders, mitt och solbulles verkar bäst, eller?
I alla fall, massa förslag blev det!

Permalänk: https://www.webforum.nu/p/983152

## #12 — Anders84, 2003-03-18T14:11Z

jag fick faktiskt inte nån av koderna att funka måste vara nått annat som är fel med vad vet jag inte.

MVH Anders

Permalänk: https://www.webforum.nu/p/983156

## #13 — solbulle, 2003-03-18T14:13Z

Hur ser länken ut som skickar dig till den aktuella sidan?

Permalänk: https://www.webforum.nu/p/983157

## #14 — m_soderlund, 2003-03-18T14:13Z

Men vad får du för felmeddelande..?

Permalänk: https://www.webforum.nu/p/983158

## #15 — Anders84, 2003-03-18T14:14Z

Får inget felmeddelande. ska jag skicka hela koden lr?

Permalänk: https://www.webforum.nu/p/983159

## #16 — solbulle, 2003-03-18T14:14Z

```
<%
if Request.QueryString("delete") = "1" then 
	Call dbOpen(Conn) 
	Conn.execute "DELETE FROM anvandare WHERE anvandare ='" & Request.QueryString("anv") & "'",,128
	Conn.Close 
end if 
%>
```

Permalänk: https://www.webforum.nu/p/983160

## #17 — Anders84, 2003-03-18T14:18Z

Hur jag än gör så vill de inte funka och de som är jobbigt är att man inte får nått felmeddelande \*suck\*

Permalänk: https://www.webforum.nu/p/983164

## #18 — solbulle, 2003-03-18T14:19Z

Visa hela koden samt hur länken ser ut som för dig till denna sidan!

Permalänk: https://www.webforum.nu/p/983165

## #19 — Anders84, 2003-03-18T14:20Z

\<!--#include file="adminkoll.asp" --\>
\<!--#include file="../../koppling.asp" --\>
\<html\>
\<head\>
\<title\>Untitled Document\</title\>
\<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"\>
\</head\>

\<body bgcolor="#FFFFFF" text="#000000"\>

\<p\>L&auml;gg till 
  ny anv&auml;ndare\</p\>
\<form action="addusr.asp" method=post\>
\<table width="70%" border="0" cellspacing="0" cellpadding="0"\>
  \<tr\> 
    \<td\> 
      \<div align="right"\>Anv&auml;ndarnamn: 
        \</div\>
    \</td\>
    \<td\>  
      \<input type="text" name="anv"\>
      \</td\>
    \<td\>&nbsp;\</td\>
  \</tr\>
  \<tr\> 
    \<td\> 
      \<div align="right"\>L&ouml;senord: 
        \</div\>
    \</td\>
    \<td\>
      \<input type="text" name="losen"\>
      \</td\>
    \<td\>&nbsp;\</td\>
  \</tr\>
  \<tr\> 
    \<td\>
        \<div align="right"\>Admin: 
          \</div\>
    \</td\>
      \<td\>
        \<input type="checkbox" name="admin" value="1"\>
      \</td\>
    \<td\>&nbsp;\</td\>
  \</tr\>
  \<tr\> 
    \<td\> 
      \<div align="right"\>\</div\>
    \</td\>
    \<td\>&nbsp;\</td\>
    \<td\>&nbsp;\</td\>
  \</tr\>
  \<tr\> 
    \<td\> 
      \<div align="right"\>\</div\>
    \</td\>
    \<td\> 
      \<input type="submit" name="Skicka" value="Spara"\>
      \</td\>
    \<td\>&nbsp;\</td\>
  \</tr\>
\</table\>
\</form\>

\<% 

if (Request.QueryString ("delete") = "1" ) then 
   Call dbOpen(Conn) 
   anv = Request.QueryString("anv") 
   sqlTaBort = "DELETE FROM anvandare WHERE anvandare =" & anv
   Conn.Execute sqlTaBort, , 128
   Conn.Close 
end if 
%\>

\<table width="70%" border="0" cellspacing="0" cellpadding="0"\>
\<tr\>\<td\>\<b\>Förnamn:\</b\>\</td\>\<td\>\<b\>Efternamn:\</b\>\</td\>\<td\>\<b\>Användarnamn:\</b\>\</td\>\<td\>\<b\>Behörighet:\</b\>\</td\>\</tr\>
\<tr\>\<td colspan="4"\>\<hr\>\</td\>\</tr\>
\<%
SQL = "SELECT anvandare, fnamn, enamn, typ FROM anvandare ORDER BY anvandare"
set Rs = Conn.Execute(SQL)
Do Until Rs.EOF
%\>
  \<tr\>
	\<td\>\<%=Rs("fnamn")%\>\</td\>
	\<td\>\<%=Rs("enamn")%\>\</td\>
	\<td\>\<%=Rs("anvandare")%\>\</td\>
	\<td\>\<% if Rs("typ") = 1 then%\>Admin\<%end if%\>\</td\>
    \<td\>\<a href ="lista.asp?&delete=1&anv=\<%=Rs("anvandare")%\>"\>ta bort\</a\>\</td\>
  \</tr\>
\<%
Rs.MoveNext
Loop
Rs.Close
Conn.Close
%\>
\</table\>
\</body\>
\</html\>

\<%
if Request.QueryString("delete") = "1" then 
	Call dbOpen(Conn) 
	Conn.execute "DELETE FROM anvandare WHERE anvandare =" & Request.QueryString("anv"),,128
	Conn.Close 
end if 
%\>

Permalänk: https://www.webforum.nu/p/983166

## #20 — solbulle, 2003-03-18T14:22Z

```
<td><a href ="lista.asp?delete=1&anv=<%=Rs("anvandare")%>">ta bort</a></td>
```

Har du verkligen "tabort"-koden på två ställen i din kod?!?

Permalänk: https://www.webforum.nu/p/983167

---

Tråden på webben: https://www.webforum.nu/amne/asp/71476-ta-bort-rad-i-databas  
Nästa sida: https://www.webforum.nu/amne/asp/71476-ta-bort-rad-i-databas/page2.md
