Notifikationer

Markér alle som læst Log ud

moore Nybegynder

18. oktober 2003 - 16:13 Der er 8 kommentarer og
1 løsning

delete funktion

Hej

Jeg sidder med et problem, som jeg håber i kan hjælpe med.

Jeg har en DB hvor jeg får vist alle posterne på skærmen. Det som jeg så gerne vil have er flg :

Helt til højre skal der være et link ud fra HVER ting som står i DB'en med skriften "SLET", og når man trykker der, så skal posten slettes.

Jeg kan simpelthen ikke huske hvordan man gør.

Håber en kan hjælpe ...

Synes godt om

wilweb Nybegynder

18. oktober 2003 - 16:25 #1

noget á la dette her?

Response.write "<a Href='denne_side.asp'?Slet='"& din_variabel &"'>Slet</a>"

strSQL = "Delete from din_tabel where din_række='" & din_variable & "'"
Set rs = Conn.Execute(strSQL)

Synes godt om

wilweb Nybegynder

18. oktober 2003 - 16:35 #2

Dette burde gøre det!

<%
strBruger = request.QueryString("strBruger")
Response.write "<a Href='slet.asp?Slet=true?strBruger='"& strBruger &"'>Slet</a>"

If Request.QueryString("Slet") = true then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db/database.mdb")
Conn.Open DSN
'skriver til DB
strSQL = "Delete from personer where strBruger='" & strBruger &"'"
Set rs = Conn.Execute(strSQL)
'Luk database
Conn.Close
Set Conn = Nothing
response.Write( strBruger & " er slettet!")
end if
%>

Synes godt om

wilweb Nybegynder

18. oktober 2003 - 16:35 #3

jeg prøver det lige for at være sikker!

Synes godt om

moore Nybegynder

18. oktober 2003 - 16:36 #4

Jeg kan også prøve at sende det til dig pr. email..
Måske du så nemmere kan se de filer jeg arbejder med ?

Synes godt om

netro Nybegynder

18. oktober 2003 - 16:51 #5

If IsNumeric(CStr(Request("delete"))) Then
Conn.Execute("Delete * From Tabel Where ID = " & Request("delete"))
End If

Set rs = Conn.Execute("Select * From Tabel")
While Not rs.EOF
Response.Write "<a href='dinside.asp?delete=" & rs("ID") & "'>Slet post nr. " & rs("ID") & "</a><br>"
rs.MoveNext
Wend

Synes godt om

moore Nybegynder

18. oktober 2003 - 16:56 #6

mystisk.. prøver lige at poste det herinde..

Har 2 sider...

SIDE 1 ... SPILLETIDERTEST.ASP

<%@ Language=VBScript %>


<html>
<head>
<title>Sound Of Memphis</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">

</style>
<link rel="stylesheet" href="style.css"></head>

<body >
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td>
<p align=center> Tour listen er under konstant opdatering! </p>
<%

dim objConn, oRS, SQL

Set objConn = Server.CreateObject("ADODB.Connection")

'--oprette recordset
objconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("spilletider.mdb")
Set oRS = Server.CreateObject("ADODB.Connection")

'--Åbne recordset
set oRS = objConn.Execute("SELECT Spillested, ugedag, spilletid, by FROM spilletider order by spilletid")

'--Udskriv poster

Tabel oRS

oRS.Close
Set oRS = Nothing
objConn.Close
Set objConn = Nothing

%>

</td>
</tr>
</table>
</body>
</html>

SIDE 2 ..... TABEL.ASP

<center>
<%
Sub Tabel(Byref objRecordSet)
Dim i
Response.Write"<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=2 ALIGN=CENTER frame=below>"

'udskriv header( feltnavn)
Response.Write "<tr bgColor=#CDC9C9>"

For i = 0 to objRecordset.Fields.Count - 1

Response.Write "<td><font face=arial size=1><b>" & objRecordset.fields.item(i).name & "</b></font></td>"
Next

if request("action") = "slet" then
slet = "DELETE FROM board where ID =" & request("ID")
objRS.Open slet, strConn
end if

Response.Write "</tr>"

'udskriv krop (feltpost)
j=0
Do While Not objRecordset.EOF
j=j+1
if(j mod 2)=0 then
Response.Write "<tr bgColor=#F8F8FF>"
else Response.Write "<tr bgColor=#E8E8E8>"
End if
For i = 0 to objRecordset.Fields.Count - 1
Response.Write "<td><font face=arial size=2>" & objRecordset.fields.item(i).value & "</font></td>"
Next

response.write "<a href='spilletidertest.asp'?slet= & action & ="'>slet</td></a>"
strSQL = "Delete from din_tabel where ID='" & ID & "'"
Set objrs = Conn.Execute(strSQL)

objRecordset.MoveNext
Response.Write "</tr>"

Loop

Response.Write "</table>"
End Sub
%>
</center>

Synes godt om

wilweb Nybegynder

18. oktober 2003 - 22:45 #7

denne her virker, måske kan den hjælpe dig til at se hvad der skal lave om på:

<html>
<head>
<title>slet_db</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN

strId = CInt(Request.QueryString("Id"))
strBruger = request.QueryString("Bruger")

If strBruger <> "" then
'skriver til DB
strSQL = "Delete from personer where Id=" & strId
Set rs = Conn.Execute(strSQL)
response.Write( strBruger & " er slettet! <a Href='slet-fra-db.asp'> Tilbage</a>")

else
'vis alle brugere
strSQL = "Select * From personer"
Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF
Response.write rs("strBruger") & " " & "<a Href='slet-fra-db.asp?Id="& rs("Id") & "&Bruger=" & rs("strBruger") & "'>Slet</a><br>"
rs.MoveNext
Loop
end if
'Luk database
Conn.Close
Set Conn = Nothing
%>
</body>
</html>

Synes godt om

moore Nybegynder

19. oktober 2003 - 12:09 #8

Synes godt om

wilweb Nybegynder

19. oktober 2003 - 12:20 #9

moore fik du hvad du skulle bruge?? Og hvad var der galt med mit svar?

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS